Filtre noms sur plusieurs feuilles

Bonjour Le Forum,

J'ai 21 feuilles avec des noms, sur ma 1ère, j'ai tous mes noms (la récap), mais ils sont dispersés sur plusieurs feuilles car plusieurs catégories, je voudrais savoir si avec ce bout de macro, il serait possible de positionner les noms qui sont par exemple sur la feuille 18 quand je cherche dupont sur ma récap, il s'affiche aussi sur la feuille 18.

Private Sub CommandButton1_Click()

Filtre_noms

End Sub

Par avance, merci.

Bien cordialement.

ericp

Bonjour,

pas sûr d'avoir bien compris

peux-tu mettre un fichier anonymisé avec juste deux feuilles ?

Bonjour Steelson,

Merci de m"avoir répondu, en PJ, un test.

bien à toi.

Sauf erreur de compréhension de ma part

Sub Filtre_noms()
    L = InputBox("Initiale des noms désirée ? :")
    For Each feuille In Worksheets
        feuille.Range("$c$2:$t$3000").AutoFilter Field:=2, Criteria1:="=" & L & "*", Operator:=xlAnd
    Next
End Sub

Ca me beug et me dis en jaune

'Feuille.Range("$c$2:$t$3000").AutoFilter Field:=2, Criteria1:="=" & L & "*", Operator:=xlAnd

Peut être parce que mes feuilles portent toutes un nom différents ?

Tu dois avoir une feuille qui n'est pas formatée de la même façon ?

Cela fonctionne très bien avec le fichier test.

Déroule cette macro avec un debug.print

Sub Filtre_noms()
    L = InputBox("Initiale des noms désirée ? :")
    For Each feuille In Worksheets
debug.print feuille.name
        feuille.Range("$c$2:$t$3000").AutoFilter Field:=2, Criteria1:="=" & L & "*", Operator:=xlAnd
    Next
End Sub

et ouvre la fenêtre d'exécution (Ctrl+G)

et regarde sur quelle feuille cela plante

Ca ne beug pas mais cela me fait le tri qu'au niveau de la recap, sur les autres feuilles rien, peut être parce que j'ouvre les feuilles avec une controle activX

j'ai oublié de mettre une autre PJ

Dans ce fichier, il n'y a pas la modification de la macro que j'ai proposée ! ?

Sub Filtre_noms()
    L = InputBox("Initiale des noms désirée ? :")
    For Each feuille In Worksheets
        feuille.Range("$b$1:$t$3000").AutoFilter Field:=1, Criteria1:="=" & L & "*", Operator:=xlAnd
    Next
End Sub

Bonsoir Steelson,

Excuse moi, je m'étais trompé de fichier, c'est ok, je te remercie pour ton talent à avoir résolu mon problème.

bien cordialement.

ericp