BOnjour,
Excuses- moi, mais je pensais que Polux allait montrer une démo car sa proposition par filtre paraissait intéressante et je n'ai donc pas donné suite
pour le 2
modif en gras
Private Sub TextBox1_Change()
Dim tablo
lettre = UCase(TextBox1.Value)
If lettre = "" Then Exit Sub
ReDim tablo(0)
Range("C2:C150").ClearContents
derlig = Sheets("liste").Range("A65536").End(xlUp).Row
With Sheets("liste")
For cptr = 1 To derlig
test = .Cells(cptr, 1)
If .Cells(cptr, 1) Like "*" & lettre & "*" Then
tablo(cptr_tablo) = .Cells(cptr, 1)
cptr_tablo = cptr_tablo + 1
ReDim Preserve tablo(cptr_tablo)
End If
Next
End With
Cells(2, 3).Resize(UBound(tablo) + 1, 1) = Application.Transpose(tablo)
End Sub
Pour le 1 si les données sont à droite de la désignation tu peux employer le fonction "rechercheV" sinon il faut employer la fonction imbriquée index-equiv
:-x