Excel-VBA: Afficher dans une ListBox

[@abdoulayediop108]

Merci beaucoup monsieur le formateur

[@samitdm2768]

Merci beaucoup pour ce tutoriel

[@RomualdCorreze]

Avec plaisir

[@axellecardonnel5176]

Merci Chef Correze

[@MohAboAbdo]

Merci beaucoup, mon cher monsieur.

[@pierrefaye10]

Super ! Exactement ce que je cherchais. Gros merci!

[@RomualdCorreze]

Génial !

[@trijkdev-hub]

Merci pour la video

[@maximeberte8682]

Un grand merci, c'est très bien expliqué

[@RomualdCorreze]

Merci à vous

[@oliviercroon6426]

Bonjour, super tuto, j'ai un petit soucis avec ce code, il m'indique une erreur Private Sub TextBox1_Change() Feuil2.Cells.Clear Feuil2.[K1] = bddFeuil1.Cells(1, critere) Feuil2.[K2] = Me.TextBox1.Value & "*" Feuil1.[A1].CurrentRegion.AdvancedFilter Action:=xlfitercopy, _ criteriarange:=Feuil2.[K1:K2], _ copytorange:=Feuil2.[A1], Unique:=False If Feuil2.[A1].CurrentRegion.Rows.Count > 1 Then Set plageFeuil2 = Feuil2.[A1].CurrentRegion.Offset(1).Resize(Feuil2.[A1].CurrentRegion.Rows.Count - 1) Me.ListBox1.RowSource = plageFeuil2.adress(external:=True) End If End Sub L'erreur est en Feuil2.[K1] = bddFeuil1.Cells(1, critere) ??????? il est indiqué:" erreur d'execution '424' objet requis" merci d'avance

[@RomualdCorreze]

Bonjour Olivier, ce n'est pas parce que telle ligne est surlignée en jaune dans l'editeur VBA que l'erreur se trouve là... 1: avez-vous bien mis un espace avant l'underscore (_) en fin de chaque ligne ? 2: en anglais "adresse" s'écrit "address" (avec 2 "d") c'est très important. 3: avez-vous défini vos noms ?

[@oliviercroon6426]

@@RomualdCorreze merci pour la réponse, je vérifie mon orthographe :) et reviens vers vous.

[@oliviercroon6426]

@@RomualdCorreze orthographe vérifié et code super un grand merci

[@alainbushcraft9636]

Bonjour Romuald, je suis sur une petite base de donnée, et je rencontre un problème et je me demande si tu pourrais m'aider, quel code faut il pour que ma listbox ce mais t'ajour lorsque que j'envois les données dans ma feuille Excel?. Merci pour ton aide.

[@RomualdCorreze]

Bonjour Alain, c'est pas très clair, d'où envoi-tu les données sur la feuille excel ? si c'est de la listbox, il n'y a pas de mise à jour puisque les données sont les mêmes....

[@ghor2379]

Ça marche pas pour les caractères numériques comme 1 ou 8. Une solution ?

[@RomualdCorreze]

placez une apostrophe devant toutes les valeurs numériques à trier

[@Junglisthighflow]

Bonjour, Merci pour ce tuto. J'ai le même problème que kasongo, le filtre n'affiche pas les caracteres numériques... ça fait 3 fois que je repasse le tuto, et il n'y a aucune erreur dans mes lignes de code. Y a t-il quelque chose à faire en amont? un paramétrage à régler dans Excel?

[@RomualdCorreze]

Bonjour, non tout est montré dans la vidéo. avec le même logiciel Excel 2016 si vous faites la même chose vous obtenez obligatoirement le même résultat.

[@alicecorbay2497]

Bonjour, lorsque j'essaie d'executer, j'ai l'erreur suivante : " a méthode AdvancedFilter de la classe Range a échoué" . Ce serait apparemment dû au fait que le classeur soit partagé. Mais je ne comprends pas très bien comment résoudre cette erreur. Pourriez-vous m'aider s'il vous plait ? Merci d'avance !

[@RomualdCorreze]

Bonjour Alice, vous avez du faire une petite erreur de frappe, voici la ligne : 'on copy la bdd de feuil1 triée, dans feuil2 Feuil1.[A1].CurrentRegion.AdvancedFilter Action:=xlFilterCopy, _ CriteriaRange:=Feuil2.[K1:K2], _ CopyToRange:=Feuil2.[A1], Unique:=False

[@alicecorbay2497]

@@RomualdCorreze En effet, merci pour votre réponse !

[@julienffr3170]

Bonjour, Monsieur la liste box n'affiche rien quand je mets un nombre ou un chiffre. Dans mon cas c'est pour trouver des moteurs de la même année de conception. Pouvez-vous m'éclairer svp?

[@RomualdCorreze]

Bonjour Julien, vous devez transformer vos nombres et chiffres en chaines de texte ! placez une apostrophe devant les valeurs numériques. Ex : '1950 pour l'année 1950

[@julienffr3170]

@@RomualdCorreze Merci!

[@MrMicpid]

Bonjour et mer ci pour cette vidéo. J'ai moi aussi un souci, dans mon tableau colonne A j'ai une série de chiffre de 19 à 60. Lorsque je saisie comme critère le 3 j'ai le résultat convenu mais si je saisie 1 ou 2 ou 4 je n'ai aucun résultat (je précise que ces chiffres son en mode texte. Merci d'avance pour votre aide

[@RomualdCorreze]

Bonjour, je ne peux vous dire grand chose sans voir ce que vous avez fait, mais mettez une apostrophe devant tous vos nombres ça peut vous aider

[@justinkin4261]

Bonjour, Je sollicite votre aide pour la ListBox. En choisissant une formule dans ma combobox (sur la feuille excel: colonneC à partir de la ligne5), je veux que la composition du mélange non nulle apparaisse dans la ListBox notamment le nom de la Matière Première (Ligne 2 Colonnes E à BQ) le code MP ( Ligne 3 Colonnes E à BQ) ainsi que la quantité. Une formule peut avoir 4 ou 5 ou 6 matières premières. Merci pour votre aide. Cordialement

[@RomualdCorreze]

Bonjour, ce travail prend du temps car il faut reprendre tout ce que vous avez fait, corriger les erreurs, etc... c'est le genre de travail que je fais contre rémunération pour mon association UP1, me contacter via up1.fr cordialement

[@lesfilsdeclo]

Bonjour et Waouh , j'ai mis votre code en place dans un fichier que je peaufine, je vous remercie pour ce cadeau que vous nous faîtes, exactement ce que je voulais. 👍 Par contre chez moi la recherche ne marche pas sur les cellules où il se trouve un nombre ? Merci

[@RomualdCorreze]

Bonjour et merci pour le compliment, pour les nombres vous devez mettre une apostrophe juste devant ex: '123 pour pouvoir les trier.

[@krisklaver5389]

C'est possible d'avoir le code ?

[@RomualdCorreze]

bonjour... le code est montré et expliqué dans la vidéo gratuitement si vous voulez vous pouvez télécharger le classeur complet, avec le code à cette adresse : www.up1.fr/Video_semaine.php?lecture=AFFICHAGE_DANS_LISTBOX

[@simeonafro7978]

merci pour ce tuto , mais j'aimerais savoir comment transférer les données de la liste dans une autre feuille de calcule

[@RomualdCorreze]

bonjour, pour cela inutile de passer par la listbox, bouclez sur votre base de données puis collez sur l'autre feuille.

[@messaoudboucetta5655]

Merci beaucoup J'aimerais pouvoir si possible chercher et filtrer des informations dans un tableau et les afficher sur une nouvelle feuille. est-ce possible ? Merci

[@RomualdCorreze]

Bonjour, oui c'est possible, créez une nouvelle feuille avec sheets.add et reportez les valeurs du tableau dans la feuille avec une boucle

[@messaoudboucetta5655]

@@RomualdCorreze merci beaucoup. Je suis débutant sur excel. Auriez-vous un code ? Merci beaucoup

[@RomualdCorreze]

@@messaoudboucetta5655 envoyez moi votre tableau et dites moi quelles infos vous voulez afficher dans la nouvelle feuille par up1.fr

[@DidierROSTAGNI]

Bravo et merci beaucoup. Peux-t-on lancer la recherche sur 2 onglets (feuil 1 et 2) et filtrage en feuil 3 ? Si vous avez le temps. Didier

[@RomualdCorreze]

Bonjour et merci oui on peut lancer la recherche sur 2 feuilles mais c'est plus de travail.

[@kasongo-muteba-nawejjean-p6851]

merci pour le tuto si claire et limpide mais chez moi dans la zone textbox recherche les caractères numérique n'affichent rien ! Quelle peut être mon erreur? Merci de vos aides assistances!

[@RomualdCorreze]

Bonjour, en programmation une erreur peut venir d'à peu près n'importe où, la seule façon de faire et de reprendre votre éditeur VBA et la vidéo et de tout vérifier pas à pas.

[@videofil001]

Intéressant mais malheureusement pas assez d'explications dans la partie concernant les filtres. J'ai appliqué cela sur un classeur avec un seul critère défini par la combobox (criteriarange:=Feuil2.[K1]) mais le filtre ne fonctionne pas et je me retrouve avec la liste complète .

[@RomualdCorreze]

Cela n'est pas du tout prévu par ce tuto : le principe est d'afficher toutes les données correspondant à 1 critère EN FONCTION d'1 TYPE DE DONNEE. Dans le tuto si vous vous contentez d'afficher les noms, il est évident que tous les noms seront affichés. Si vous avez fait quelque chose de totalement différent, les explications du tuto n'ont plus rien à voir...

[@videofil001]

@@RomualdCorreze Ok merci pour votre réponse

[@theodubois8515]

Bonjour, merci pour cette vidéo, j'ai les lignes suivantes qui se mettent en erreur mais je ne vois où se trouve mon erreur. "Feuil11.[A1].CurrentRegion.AdvancedFilter Action:=xlFilterCopy, _ criteriarange:=Feuil12.[N1:N2], _ copytoryrange:=Feuil12.[A1], Unique:=False" Merci pour votre aide.

[@RomualdCorreze]

Bonjour Théo tu ne t'es pas beaucoup relu... c'est CopyToRange ;-)

[@pyancover5569]

@@RomualdCorreze Bjr j'ai le même problème et j'ai mit CopyToRange. mais en fait j'ai fait plusieurs criteres dans des combobox differente le filtre fonctionne sur la feuille, mais dans ma liste box j'ai toutes les lignes et je ne voudrais que les lignes que j'ai filtrée. je l'ai fait par rapport a des combobox et pas de zone de texte

[@RomualdCorreze]

@@pyancover5569 dans ce cas il faut adapter: en fonction des valeurs de comboboxes au lieu des valeurs de textboxes

[@pyancover5569]

@@RomualdCorreze Merci pour votre réponse très rapide. je suis sur un projet pour l'école et je bloque vraiment avec ça, j'ai essayé d'adapter mais je ne trouve vraiment pas le soucis, votre vidéo est super bien faite mais je l'ai regardée au moins 10 fois ahah et le fait de devoir adapter me perturbe. serait-il possible de se contacter? je vous remercie d'avance yannick

[@RomualdCorreze]

@@pyancover5569 allez sur up1.fr et contactez moi par là en m'expliquant tout en détail

[@fleuriannepicavet5737]

Bonjour, j'ai un petit problème de compréhension 😕 pouvez-vous me dire en détail ce que vous avez fait sur la feuille 2? J'ai copier/coller mon tableau mais faut-il écrire qu'elle que chose au préalable dans k1 et k2 ? Merci pour votre retour !

[@RomualdCorreze]

Bonjour Fleurianne, c'est déjà expliqué dans la vidéo à partir de la 12ème minute ;-)

[@philippebeaudet7615]

Bonjour, merci pour cette vidéo, toutefois, je pense que vous êtes passé par un système de filtre avancé au préalable. Pourriez-vous m'expliquer cette partie. Merci

[@philippebeaudet7615]

Désolé, je viens de trouver mon erreur !! Ma question ne tient plus, Merci

[@trijkdev-hub]

J'aime ajouter un bouton d'impression pour la recherche trouver dans un format word ou pdf

[@romainc.2162]

Bonjour merci pour cette vidéo très utile. Je débute en VBA et me demande si on peut dupliquer ce code pour faire une recherche sur plusieurs critères (je n’arrive pas à lier les textbox)? Merci pour votre réponse.

[@RomualdCorreze]

Bonjour oui c'est possible, voici un exemple : www.up1.fr/Video_semaine.php?lecture=Tris_et_Filtres

[@vincentbodart3762]

Super merci prevenez moi si le payement n'est pas passé...;)

[@saxmax7291]

Bonjour, merci beaucoup pour la vidéo qui devrait beaucoup m'aider dans mon travail. Cependant, je suis bien repassé sur mes lignes de codes et la ligne "Feuil2.[K1] = bddfeuil1.Cells(1, critere)" de la "Private Sub TextBox1_Change()" me fait défaut lorsque je test mon code : erreur d'excecution 424 "object requis" Auriez-vous une idée ?

[@RomualdCorreze]

Bonjour, depuis 2 ans bien sur je n'ai plus le code en tete, et je n'ai pas le temps de le reprendre pour vous répondre. Suivez la vidéo pas à pas, l'application se fait directement sous vos yeux, sinon téléchargez le classeur avec le code vba (le lien de téléchargement est sous la vidéo ou à cette adresse : www.up1.fr/Video_semaine.php?lecture=AFFICHAGE_DANS_LISTBOX

[@charlesrohart7720]

Bonjour, merci beaucoup pour votre vidéo. Cependant dans le : Me.combobox1.addItem feuil1.cells(1,col).value Cela me mets quand même une erreur d’exécution 424 : objet requis

[@RomualdCorreze]

Bonjour, alors reprenez la vidéo pas à pas et faites bien attention à faire comme moi. si vous faites exactement comme sur la vidéo vous aurez le même résultat. ;-)

[@SoumServicesFormation]

Salut. Merci beaucoup pour ce tutoriel très important. Cependant j'ai des soucis à deux niveaux. Premièrement je n'arrive pas à afficher le nombre de colonnes dans la lisbox. J'ai 12 colonnes. Deuxième j'ai une erreur quand je tape les premières lettres dans le texte box. Merci d'avance pour votre aide

[@RomualdCorreze]

Bonjour et merci, vos 2 problèmes sont expliqués dans la vidéo.

[@krisklaver5389]

J'ai moi aussi le mm problème

[@tortueninja9543]

@@RomualdCorreze Le premier pas du tout mdr...

[@RomualdCorreze]

si si mais il faut faire l'effort d'être attentif, je ne vais pas chercher à quelle minute et quelle seconde c'est dit à votre place ;-). par contre c'est 10 colonnes max.@@tortueninja9543

[@pds1409]

Merci, excellent tuto! J'ai essayé de reproduire avec une base de données différente. Tout fonctionne sauf que sur mes critères de recherche il y a des numéros de téléphone et des matricules mais la recherche ne les prend pas en compte. Pourriez vous me donner une piste svp. Merci d'avance.

[@RomualdCorreze]

Vous êtes un "pro" et "intelligent" et vous ne savez pas ça ? il faut transformer vos nombres en texte, tout simplement.

[@pds1409]

@@RomualdCorreze Avec vous je serais bientôt un pro! Merci🤗

[@alicecorbay2497]

Bonjour, je rencontre le même problème. Il ne trie pas lorsque je rentre un nombre dans la recherche., même en transformant le format de mes cellules en texte. Comment faire ? Merci d'avance

[@RomualdCorreze]

@@alicecorbay2497 bonjour, comment transformez-vous les cellules en texte svp ?

[@alicecorbay2497]

@@RomualdCorreze Dans l’onglet Accueil, je sélectionne la liste déroulante qui permet de changer le format. Je passe donc de standard à texte.

[@rahmouniilyes4825]

Merci pour la vidéo cependant j,arrive pas a effacer une ligne par son index.via listbox. Pourriez vous me filer un coup de main .encore merci.

[@RomualdCorreze]

Bonjour, le bouton effacer est expliqué dans la vidéo.

[@rahmouniilyes4825]

@@RomualdCorreze Bonjour, En faite je cherche comment sélectionner et supprimer un item ou plusieurs directement via llistbox ,sans passer par la feuille xls.

[@RomualdCorreze]

@@rahmouniilyes4825 ok !! et bien j'ai un tuto qui répond à votre demande le voici : www.up1.fr/Video_semaine.php?lecture=NewAgenda

[@teamvektor5092]

Bonjour, au niveau de: Feuil3.[A1].CurrentRegion.AdvancedFilter Action:=xlFilterCopy, _ criteriarange:=Feuil2.[K1:K2], _ copytorange:=Feuil2.[A1], Unique:=False L'erreur suivante apparait: Erreur d'execution '1004': Cette commande requiert au moins deux lignes de données sources. Vous ne pouvez l'utiliser sur une seule ligne de donnéess. Essayez la méthode suivante: Si vous utilisez un filtre avancé, sélectionnez une plage de cellules qui contient au moins deux lignes de données. Puis cliquez à nouveau sur la commande Filtre élaboré. Je ne sais pas quoi faire. Cordialement,

[@RomualdCorreze]

Bonjour, le mieux est de faire comme sur la vidéo, puisque dans la vidéo ça marche. sinon envoyez moi votre classeur...

[@hugomonteil2243]

Bonjour Monsieur, D'abord bravo pour ce tuto seulement je me retrouve bloqué assez rapidement. voici mon code : For col = 1 To 8 Me.ComboBox1.AddItem Feuil2.Cells(1, col).Value j'ai suivi à la lettre votre code et pourtant je ne peux pas récupérer mes colonnes dans ma Combobox. J'ai essayé plusieurs choses mais me voilà bloqué. Merci d'avance pour votre réponse

[@RomualdCorreze]

Bonjour Hugo... vous n"avez pas suivi "à la lettre" la vidéo sinon vous obtiendriez le même résultat... votre ou vos erreurs peuvent provenir de n'importe où dans le code, je ne peux pas deviner où vous les avez fait Reprenez la vidéo réellement pas à pas et vous aurez obligatoirement le même résultat cdlt

[@RencontreAnnecy]

Feuil1.[A1].CurrentRegion.AdvancedFilter Action:=xlFilterCopy, CritereiaRange:=Feuil3.[Z1:Z2], CopyToRange:=Feuil3.[A1], Unique:=False Cette ligne me fait bugué mon fichier Merci à vous pour m'aider

[@RomualdCorreze]

Vous avez modifié les cellules par rapport à la ligne d'origine que voici : Feuil1.[A1].CurrentRegion.AdvancedFilter Action:=xlFilterCopy, _ criteriarange:=Feuil2.[K1:K2], _ copytorange:=Feuil2.[A1], Unique:=False mais ce n'est pas parce que c'est cette ligne qui est marquée en jaune que l'erreur est là, il faut remonter en amont aussi loin que necessaire.

[@yass5721]

Bonjour Monsieur, Tout d'abord, je tiens à vous remercier pour votre tuto, c'est exactement ce que je cherchais. J'ai toutefois un problème lorsque j'exécute le code, il me renvoit cette erreur : Erreur d'exécution 424 : Objet requis. L'erreur semble se situer ici : Private Sub TextBox1_Change() Feuil4.Cells.Clear Feuil4.[K1] = bddFeuil3.Cells(1, critere) Feuil4.[K2] = Me.TextBox1.Value & "*" Feuil3.[A1].CurrentRegion.AdvancedFilter Action:=xlFilterCopy, _ criteriarange:=Feuil4.[K1:K2], _ copytorange:=Feuil4.[A1], Unique:=False If Feuil4.[A1].CurrentRegion.Rows.Count > 1 Then Set plageFeuil4 = Feuil4.[A1].CurrentRegion.Offset(1).Resize(Feuil4.[A1].CurrentRegion.Rows.Count - 1) Me.ListBox1.RowSource = plageFeuil4.Address(external:=True) End If End Sub Je regardé votre vidéo à 2 reprises pour comprendre mo nerreur et vérifier si je me suis planté lors de l'écriture mais je n'ai rien trouvé. Pouvez-vous m'aiguiller sur la nature du problème ? Cordialement.

[@RomualdCorreze]

Bonjour, 1 : Vous n'avez pas fait comme indiqué dans la vidéo (feuil2 dans la vidéo, Feuil4 chez vous) 2 : Vous n'avez pas suivi la vidéo dans le Set plageFeuil2 si vous avez également fait des transposition ailleurs, reprenez le tout ligne par ligne pour tout vérifier ou téléchargez le classeur... Cordialement