Excel : faire une Recherche Nom

Bonjour,

je comprends pas Public Sub chercher(cher, c)... et toutes les Dim qu'il y a en-dessous.
tu peux me les expliquer svp ?

Bonjour,

"chercher" est une procédure qui prend en paramètre "cher" la valeur à chercher et "c" la colonne de recherche> "C" est la colonne de reherche ? Ce n'est pas le cas sur ma feuille "base".

Ce que je cherche à comprendre, c'est comment on arrive à avoir une recherche quelle que soit la case dans la case dans laquelle on saisit la recherche (Nom ou prénom, ...).

Pour les DIM, si je scomprends bien, il suffit de resaisir le code tel quel, quelle que soit le type de recherche; c'est bien ça ?

Ensuite, je tente de comprendre
With Sheets("base")
If rech = "" Then Exit Sub
Do
Set sel = .Cells.Find(What:=rech, After:=.Cells(l, c), _
LookIn:=xlValues, LookAt:=xlPart, _
SearchOrder:=xlByColumns, _
SearchDirection:=xlNext, MatchCase:=False)
If sel Is Nothing Then Exit Do
If sel.Column <> c Then Exit Do
If sel.Row <= l Then Exit Do
l = sel.Row
valide = True
For i = 1 To 4
If recherche.Controls("TextBox" & i).Value <> "" _
And InStr(1, LCase(.Cells(l, i).Value), LCase(recherche.Controls("TextBox" & i).Value)) = 0 Then valide = False
Next i
If valide Then
recherche.ListBox1.AddItem _
(.Cells(l, 1).Value & " " & _
.Cells(l, 2).Value & " " & _
.Cells(l, 3).Value & " " & _
.Cells(l, 4).Value)
recherche.ListBox1.List(n, 2) = sel.Row
n = n + 1
End If
Loop
End With
End Sub

Mais là, c'est coton pour moi...

???