Où est l'erreur????

Je souhaite grâce à une boîte de dialogue de type :

InputBox ("entrez votre nom:")

sheets("nom de la matrice").select

Selection.autoFilter

ActiveWindow.SamllScroll Down:=3

Selection.AutoFilter Field:=5, Criterial:="**Dupont**", operator:=_

sheets("nom de la matrice").select

Selection.autoFilter

ActiveWindow.SamllScroll Down:=3

Selection.AutoFilter Field:=5, Criterial:="**Laurent**", operator:=_

sheets("nom de la matrice").select

Selection.autoFilter

ActiveWindow.SamllScroll Down:=3

Selection.AutoFilter Field:=5, Criterial:="**Lolo**", operator:=_

xlAnd

End Sub

Lors de l'excécution de la macro, ma boîte de dialogue fonctionne mais lorsque je saisie un nom, seule les critères contenant olo** apparaît!

que dois-je faire pour que celà fonctionne? Merci de vos réponses

Sophia

Bonsoir,

Essaye ceci :

Sub test()
Dim a As String
a = InputBox("entrez votre nom:")
MsgBox a
Sheets("nom de la matrice").Select
With Selection
    .AutoFilter
    .AutoFilter Field:=5, Criteria1:=a
End With
End Sub

Amicalement

Dan

Merci Dan pour ta réponse,

mais se n'est ce que je veux faire..: ;ta macro me donne après la saisie du nom

le nom saisie.

alors que moi je souhaite quelle me selectionne sur la matrice contenant différent noms seulemnt le nom saisie dans la bôite de dialogue.

Je joins un petit fichier en espèrant que celà aidera

https://www.excel-pratique.com/~files/doc/AccesparNom.xls

Merci.

Merci

Re,

Pourquoi n'utilises-tu pas l'option existante dans le filtre auto ??

sinon par macro

Sub test()
Dim a As String
a = InputBox("entrez votre nom:")
Sheets("matrice").Select
With Selection
.AutoFilter Field:=4, Criteria1:="=*" & a & "*"
End With
End Sub

Amicalement

Dan

Edition : cette macro suppose que tes filtres sont toujours actifs. Le cas contraire te renverrait une erreur.

Merci Dan,

J'ai relancé ta première proposition qui marche du tonnerre... merci merci beaucoup

Bien cordialement.

Sophia