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

[dgeo27]

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

 

[phlaurent55]

Bonjour dgeo

For Each cellule In Sheets("Facturier_2018").Range("B1:B5000").

à+
Philippe

 

[dgeo27]

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

 

[dgeo27]

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

 

[ChTi160]

Bonjour dge27
Bonjour le Fil ,le Forum
sans fichier pas évident !
bonne Journée
Amicalement
jean marie

 

[dgeo27]

c'est bon j'ai trouver merci à tous