Re : afficher résultat de recherche sur listbox1 dans lisbox2 sur 2 colonne
je réussi à avoir un fonctionnement de la macro de Bebere en enlevant:
else
ListBox2.AddItem c.offset(,-1)
ListBox2.listcount-1,1)=c
le résultat demandé s'affiche bien dans les 2 colonnes listbox2
exemple je recherche -> "Dup" le résultat est en listbox2:
Dupont jules
Dupont marcel
mais j'ai un nouveau problème
quant je sélectionne une ligne de la listebox2, j'incrémente des textbox pour le Nom, prénom, téléphone, adresse des ligne sélectionné
mais j'ai toujours le même résultat dans les testbox pour chaque ligne sélectionnée.
Private Sub ListBox2_Click()
Dim ReCherche As String
Dim L As Integer
Dim Plage As Range
Dim Cell As Range
'Dim maille As Boolean
ReCherche = ListBox2.Value
L = Sheets("Database").Range("A65536").End(xlUp).Row
Set Plage = Sheets("Database").Range("A2:E" & L)
For Each Cell In Plage
If Cell.Value = ReCherche Then
LRecherche = Cell.Row
End If
Next Cell
TextBox1 = Sheets("Database").Range("A" & LRecherche)
TextBox2 = Sheets("Database").Range("B" & LRecherche)
TextBox5 = Format(Sheets("Database").Range("C" & LRecherche), "00 00 00 00 00")
TextBox7 = Sheets("Database").Range("D" & LRecherche)
TextBox8 = Sheets("Database").Range("E" & LRecherche)
End Sub