Private Sub BnGoAge_Click()
Dim DerLig As Long, Cel As Range, VSearch As String
If Me.TextBox3.Value = "" Then
MsgBox "Merci de saisir un age !"
Exit Sub
End If
' Efface la liste existante
Me.ListBox1.Clear
' Valeur de recherche
VSearch = Me.TextBox3.Value
' Avec la feuille 1
With Sheets("Feuil1")
DerLig = .Range("A" & Rows.Count).End(xlUp).Row
' Pour chaque ligne
For Each Cel In .Range("A2:A" & DerLig)
' Si la valeur contenue dans la colonne D = celle recherchée
If [B][COLOR=blue].Range("D" & Cel.Row)[/COLOR][/B] = Val(VSearch) Then
' Inscrire le numéro de la ligne dans la 1ère colonne masquée
Me.ListBox1.AddItem Cel.Row
' Inscrire le nom et le prénom et l'age dans les 3 autres
Me.ListBox1.List(Me.ListBox1.ListCount - 1, 1) = Cel.Offset(0, 1)
Me.ListBox1.List(Me.ListBox1.ListCount - 1, 2) = Cel.Offset(0, 2)
Me.ListBox1.List(Me.ListBox1.ListCount - 1, 3) = Cel.Offset(0, 3)
End If
Next Cel
End With
End Sub