macro de recherche

[Philboy]

bonjour a tout le forum, voila, je souhaite modifier une macro que j'ai cree car le probleme c'est que quand je la lance, je doit taper exactement ce que je recherche sinon ca trouve rien, j'aimerai taper uniquement quelque caracteres pour que ca trouve quelque chose, la voila :



Sub Recherchecible()
Dim Plage As Range
Dim Adresse As String
Dim C As Object
Dim Mot As String
Dim TheRow As Integer

Mot = InputBox("CLIENT à rechercher ?")
'Contrôles avant recherche
If Mot = "" Then Exit Sub
If Application.CountIf(Range("A:A"), Mot) = 0 Then MsgBox "CLIENT INTROUVABLE!": Exit Sub
'Recherche du N°
Set Plage = Sheets("DONNEE CLIENT").Range("A:A")
With Plage
Set C = .Find(Mot)
If Not C Is Nothing Then
Adresse = C.Address
'Recherche en cas de doublons
Do
TheRow = C.Row
'Transport à la ligne du mot recherché
ActiveWindow.ScrollRow = TheRow
'Message définisant la ligne du mot recherché
MsgBox "LES DONNEES DU CLIENT " & Mot & " se trouve à la ligne " & TheRow
Set C = .FindNext(C)
Loop While Not C Is Nothing And C.Address <> Adresse
End If
Range("A2").Select
End With
End Sub



voila, merci d'avance pour les modif, car c'est vraiment chiant pour rechercher un client dans une liste

 

[Michel_M]

Salut Philboy, le forum

essaies en ajoutant un joker. après

If Mot = "" Then Exit Sub

insère cette ligne

mot=mot & "*"

etc

remarque: la recherche avec find commence APRES la 1° cellule de la plage, ici en A2
A& ne sera traité qu'en dernier.

Bon WE

Michel