Modif macro

[bergeal]

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

 

[pierrejean]

bonjour bergeal

il me semble que la methode Autofilter n'est pas la plus apropriée dans ce cas la

peux-tu creer un petit fichier-exemple sans données confidentiells

on essaiera de te proposer quelque chose

 

[bergeal]

bonjour et merci
voici le fichier demande

jean michel [file name=essai_20060412165806.zip size=21093]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/essai_20060412165806.zip[/file]

 

[pierrejean]

bonsoir jean Michel

une proposition

l'approche est du genre *aaa* qui donne tout ce qui contient le groupe de lettres specifie

il est possible de faire du aaa*

ou le lettres seront les premieres

tester et ne pas hesiter a revenir si probleme [file name=bergeal1.zip size=21427]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/bergeal1.zip[/file]

 

[bergeal]

Bonjour Pierre Jean

merci pour votre aide ,mais j'ai un pb
lorque que je copie la macro dans ma base cela ne fonctionne pas .
le resultat de la recherche ne me donne aucun resultat alors que la votre fonctionne dans l'exemple .
Jean michel

 

[bergeal]

re bonjour Pierre Jean

j'ai trouvé mon erreur

Merci de votre aide
Pourriez vous m'indiquer un livre ou autre pour que je puisse me perfectionner dans le VBa . Il y à beaucoup de levre et je ne sais pas le quel choisir .

Encore merci

jean michel