valmelissa
XLDnaute Nouveau
Bonjour,
j'aimerai afficher les lignes d'un tableau excel obtenues par recherche dans une listbox. je ne sais comment faire.
je fais la recherche d'un mot, je le trouve et je recopie dans la listbox toute la ligne où ce mot a été trouvé.
j'espère m'être bien exprimé je vous envoie un bout de code
'bouton "VALIDER"
Private Sub CommandButton1_Click()
'déclaration des variables
Dim I As Integer
Dim J As Integer
Dim K As Integer
Dim Tablo
'recherche de la ligne ou figure le NOM (combobox1) dans la feuille "bdd"
With Sheets("bdd").Columns(3)
I = .Cells.Find(ComboBox1).Row
'selectionne la ligne et l'affecte à la variable Tablo (En fait c'est ici le problème car je ne sais comment
'lui dire recupère la ligne correspondant au resultat de la recherche)
Tablo = Sheets("bdd").Range("A2:J" & Sheets("bdd").Range("A65536").End(xlUp).Row)
With ListBox2
UserForm1.ListBox2.ColumnCount = UBound(Tablo, 2)
UserForm1.ListBox2.List = Tablo
End With
End With
Merci
j'aimerai afficher les lignes d'un tableau excel obtenues par recherche dans une listbox. je ne sais comment faire.
je fais la recherche d'un mot, je le trouve et je recopie dans la listbox toute la ligne où ce mot a été trouvé.
j'espère m'être bien exprimé je vous envoie un bout de code
'bouton "VALIDER"
Private Sub CommandButton1_Click()
'déclaration des variables
Dim I As Integer
Dim J As Integer
Dim K As Integer
Dim Tablo
'recherche de la ligne ou figure le NOM (combobox1) dans la feuille "bdd"
With Sheets("bdd").Columns(3)
I = .Cells.Find(ComboBox1).Row
'selectionne la ligne et l'affecte à la variable Tablo (En fait c'est ici le problème car je ne sais comment
'lui dire recupère la ligne correspondant au resultat de la recherche)
Tablo = Sheets("bdd").Range("A2:J" & Sheets("bdd").Range("A65536").End(xlUp).Row)
With ListBox2
UserForm1.ListBox2.ColumnCount = UBound(Tablo, 2)
UserForm1.ListBox2.List = Tablo
End With
End With
Merci