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

  • Initiateur de la discussion Initiateur de la discussion pat66
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

pat66

XLDnaute Impliqué
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
 
Bonjour Pat,
Un essai en PJ avec :
VB:
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
 

Pièces jointes

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

VB:
'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
 
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 :
VB:
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
 
re
Bonjour @sylvanu et alors ?
VB:
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
 
Dernière édition:
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
5
Affichages
377
Réponses
17
Affichages
261
Réponses
13
Affichages
350
Retour