Bonjour, voici ma macro pour ma base excel:
Sub rechercheV1()
Dim i As Integer, k As Integer
nom = InputBox('Quel est le nom de votre Client ?')
Selection.AutoFilter Field:=2, Criteria1:=nom
Range('A3').Select
i = 3
k = 1
Do While Not Cells(i, 1).Value = ''
Sheets('Feuil1').Rows(k).Value = Rows(i).Value
i = i + 1
k = k + 1
Loop
End Sub
je recherche les noms de mes clients dans le champ n° 2. Mais je suis obligé de taper le nom exact sinon je n'ai pas de reponse .Qu faut t il modifeir dans cette macro pour fair une recherche sur un partie du nom (ou sur les 3 1ere lettres ) lorsque que je ne connais pas bien l'othographe du nom !!!
Merci pour votre aide
Sub rechercheV1()
Dim i As Integer, k As Integer
nom = InputBox('Quel est le nom de votre Client ?')
Selection.AutoFilter Field:=2, Criteria1:=nom
Range('A3').Select
i = 3
k = 1
Do While Not Cells(i, 1).Value = ''
Sheets('Feuil1').Rows(k).Value = Rows(i).Value
i = i + 1
k = k + 1
Loop
End Sub
je recherche les noms de mes clients dans le champ n° 2. Mais je suis obligé de taper le nom exact sinon je n'ai pas de reponse .Qu faut t il modifeir dans cette macro pour fair une recherche sur un partie du nom (ou sur les 3 1ere lettres ) lorsque que je ne connais pas bien l'othographe du nom !!!
Merci pour votre aide