XL 2016 Clic sur une Forme nommée > Filtre sur une seconde feuille

[JRBBT]

Bonjour,
Tjrs aussi à l'aise dans réalisation de macro, j'ai besoin d'un nouveau coup de pouce.

Dans une Feuil1 représentant un schéma de matériels avec des Formes insérées et nommées (R1, R2...),
je souhaiterai lorsque que je double clique sur la Forme, être redirigé sur la Feuil2,
et filtrer sur la ligne commençant par le nom de la Forme cliquée en Feuil1.

Joint un exemple de fichier.
Merci d'avance.

 

[Staple1600]

Bonsoir

Affecter cette macro aux cinq boutons

Sub filterSH()
Dim CritZ
CritZ = ActiveSheet.Shapes(Application.Caller).TextFrame2.TextRange
Feuil2.Activate
Feuil2.[A2].AutoFilter 1, CritZ
End Sub

PS: test OK sur votre fichier exemple.

NB: Enregistrer votre fichier en *.xlsm et pas en *.xlsx
(le *.xlsx ne peut pas contenir de macros)

 

[JRBBT]

Bonsoir,
Merci !!!
Je viens de tester et cela semble être nickel. Je testerai demain dans mon fichier original.
Cdt.