plusieurs fois le meme Nom

[petchy]

bonjour
voila grace à Excalibur,je fair une recherche à l'aide d'un textbox
Private Sub TextBox9_Change()

Dim Plage As Range, cell As Range
Dim Recherche As String, Adresse As String
Dim Ligne As Integer, N As Integer
Dim C As Range
ListBox2.Clear
N = 0
Recherche = TextBox9.Value
Range("B2").Select
Ligne = Sheets(1).Range("B" & "65536").End(xlUp).Row
Set Plage = Sheets(1).Range("b" & "1:" & "B" & Ligne)
With Plage
Set C = .Find(Recherche)
If Not C Is Nothing Then
Adresse = C.Address
Do
If UCase(Recherche) = UCase(Left(C, Len(Recherche))) Then
ListBox2.AddItem C.Offset

End If
Set C = .FindNext(C)
Loop While Not C Is Nothing And C.Address <> Adresse
End If
End With

End Sub

j'ai bien les données qui s'affiche dans la listbox2,et quand je click sur une données j'ai les infos qui s'affichent dans les textboxs avec se code
Private Sub ListBox2_Click() 'MODE RETOUR VALEUR RECHERCHEE
Dim Recherche As String
Dim L As Integer
Dim Plage As Range
Dim cell As Range
Dim maille As Boolean
Recherche = ListBox2.Value
L = ThisWorkbook.Sheets("Database").Range("A65536").End(xlUp).Row
Set Plage = ThisWorkbook.Sheets("Database").Range("A2:E" & L)
For Each cell In Plage
If cell.Value = Recherche Then
LRecherche = cell.Row
End If
Next cell
MaskEdBox1 = WsBase.Range("A" & LRecherche)
TextBox1 = WsBase.Range("B" & LRecherche)
TextBox2 = WsBase.Range("C" & LRecherche)
decl = WsBase.Range("D" & LRecherche)
TextBox5 = WsBase.Range("E" & LRecherche)
End Sub
mais j'ai un probleme quand j'ai plusieurs fois le meme nom,il n'affiche pas les infos,et je peut avoir plusieurs le meme nom.
voyez vous un probleme dans se code ?
merci

 

[sousou]

Re : plusieurs fois le meme Nom

Bonjour Petchy
L'idéale serait le fichier ^pour pouvoir faire tourner le code

 

[petchy]

Re : plusieurs fois le meme Nom

salut sousou
voila le fichier,mais j'ai supprimer pas mal de chose pour l'envoyer,mais le principal est la