Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

LISTBOX : Faire appel à une colonne d'une autre feuille

  • Initiateur de la discussion Initiateur de la discussion dgeo27
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

dgeo27

XLDnaute Junior
Bonsoir,
J'ai un petit problème.
J'ai une LISTBOX qui me permet d'afficher les nom des factures sur une liste et de rechercher dedans facilement. Mais ma liste de facture est dans une autre feuilles...
Je n'arrive pas à transformer mon code vba pour faire appel à une colonne d'une autre feuille.

Voici mon code :

'LISTBOX liste déroulante'
Private Sub TextBox1_Change()
ListBox1.Clear
For Each cellule In Range("B1:B5000")
If cellule <> 0 Then
If InStr(LCase(cellule), LCase(TextBox1.Value)) > 0 Then
ListBox1.AddItem
ListBox1.List(ListBox1.ListCount - 1, 0) = cellule.Value
ListBox1.List(ListBox1.ListCount - 1, 1) = Cells(cellule.Row, 2)
End If
End If
Next cellule
End Sub
End Sub
If
End If
Next cellule
End Sub

Je cherche à modifier la phrase en rouge pour lui indiquer le chemin vers ma feuille Facturier_2018

Merci
 
Merci,

erreur de syntaxe..

'LISTBOX liste déroulante'
Private Sub TextBox1_Change() (souligner en jaune)
ListBox1.Clear
For Each cellule In Sheets("Facturier_2018").Range("B1:B5000"). (et celle-ci en rouge)
If cellule <> 0 Then
If InStr(LCase(cellule), LCase(TextBox1.Value)) > 0 Then
ListBox1.AddItem
ListBox1.List(ListBox1.ListCount - 1, 0) = cellule.Value
ListBox1.List(ListBox1.ListCount - 1, 1) = Cells(cellule.Row, 2)
End If
End If
Next cellule
End Sub
 
sa fonctionne merci beaucoup
c'était une erreur de ma part j'ai laissé le point final de la ligne :
For Each cellule In Sheets("Facturier_2018").Range("B1:B5000"). (.) !!!

Merci 🙂

Une astuce pour que la liste d'actualise de suite ?
quand on rajoute une facture on ne la voit pas dans la liste, il faut recommencer une recherche, ou alors couper et rallumer le programme ... Merci mille fois
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
10
Affichages
282
Réponses
10
Affichages
799
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…