Microsoft 365 Afficher ou masquer une shape selon la cellule sélectionnée

[pat66]

Bonjour le forum,

est il possible d'afficher une forme selon la cellule sélectionnée ?

exemple : je sélectionne la cellule Y22, la forme s'affiche et je sélectionne n'importe quelle autre cellule, la forme est masquée ?

merci

 

[sylvanu]

Bonjour Pat,
Un essai en PJ avec :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Not Intersect(Target, [Y22]) Is Nothing Then
        Shapes("Image 2").Visible = True
    Else
        Shapes("Image 2").Visible = False
    End If
End Sub

 

[patricktoulon]

re
bonjour
apprenez a vous servir d'un boolean
en une seule ligne ça donne ceci

'renouvelez l’opération pour d'autres shapes autant que vous le voulez  de la même facon
'
Private Sub Worksheet_SelectionChange(ByVal Target As Range)

ActiveSheet.Shapes("toto").Visible = (Target.Address(0, 0) = "Y2")

End Sub

 

[sylvanu]

Bonjour Patrick,

apprenez a vous servir d'un boolean

Sauf que très généralement la macro intégrée dans le "vrai" fichier ne fait pas que cela, ce n'est qu'une action parmi d'autres.
J'aurais du écrire :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Not Intersect(Target, [Y22]) Is Nothing Then
        Shapes("Image 2").Visible = True
        ' Mettre ici les autres actions quand l'image est affichée
    Else
        Shapes("Image 2").Visible = False
        ' Mettre ici les autres actions quand l'image est masquée
    End If
End Sub

 

[patricktoulon]

re
Bonjour @sylvanu et alors ?

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Shapes("toto").Visible = (Target.Address(0, 0) = "Y2")
    
    If Not Intersect(Target, [Y22]) Is Nothing Then
        ' Mettre ici les autres actions quand l'image est affichée
    Else
        ' Mettre ici les autres actions quand l'image est masquée
    End If
End Sub

 

[pat66]

Messieurs,

j'ai l'impression d'assister au combat des titans, merci pour cette belle démonstration

vos solutions répondent parfaitement à mes attentes

merci beaucoup