Rendre une Shape visible ou invisible en fonction de 2 critéres

Bonjour,

Je souhaiterais faire en sorte qu'une FORME soit rendue visible si je clique sur une autre ("MONTRE") et si mon TCD a le résultat filtré : "CHOIX_1" (parmi les 3 choix)

Cela marche à moitié, je dois à chaque fois cliquer sur les autres choix du segment( choix 2 ou 3 ) pour que la forme disparaisse.

Je joint mon fichier pour plus de clarté dans mon explication.

Je vous remercie !

Bonjour EVOTUTIF,

15 téléchargements et pas encore de réponse ...

Si j'ai bien compris ta demande ... voici donc un essai ...

Changer le contenu dans module1 ...

Function AZERTY(s, ok, NomFeuille)
Set f = Sheets(NomFeuille)
f.Shapes(s).Visible = ok

If f.Shapes(s).Visible = False Then
   Feuil1.Shapes("CACHE").Visible = msoFalse
   Feuil1.Shapes("MONTRE").Visible = msoTrue
Else
   Feuil1.Shapes("CACHE").Visible = msoTrue
   Feuil1.Shapes("MONTRE").Visible = msoFalse
End If
End Function

ric

Désolé Eric mais cela ne fonctionne pas.

La forme Montre et Cache enléve ou fait apparaitre la Forme-01.

Mais si le segment est sur autre que "CHOIX_01", la forme_01 est cachée même si la FORME est sur MONTRE.

Bonjour EVOLUTIF,

Un autre essai ... lequel me semble fonctionnel ...

Basé sur ce comprends de la demande ... espérons que j'ai bien compris cette demande ...

Cerveau ... cerveau quand tu ne fonctionnes pas trop ...

ric

Parfait Eric, j'ai seulement rajouter 2 lignes dans chacunes des Macros pour que le Montre ou CACHE disparaisse en fonction de l'activation de l'un ou de l'autre.

Encore merci à vous !