Microsoft 365 Résolu ! [VBA] Pilotage d'une image selon la valeur d'une cellule

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 !

ralph45

XLDnaute Impliqué
Bonsoir @tou.te.s,

Vous trouverez dans le fichier joint tout ce dont j'ai besoin...
À savoir que - selon la valeur de la cellule D5 (ici, "Oui" ou "Non") - mon image/shape doit comprendre 2 interactions :

changer de dimensions en hauteur et largeur ;
se voir affecter/désaffecter la macro du module 1 "AFFICHE_MESSAGE".

NB : oui, je sais, "désaffecter" n'est pas joli-joli, mais il est de circonstance en ces temps où l'on ne pense qu'au vide... (jeu de mot capillotracté). 😉 🙄

Merci par avance de vos lumières !

ralph45
 

Pièces jointes

Bonsoir.
Pourquoi pas comme ça tout simplement, dans le module de l'objet Worksheet :
VB:
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
   If Target.Address <> "$D$5" Then Exit Sub
   Me.Shapes("Rectangle : coins arrondis 1").Visible = Target.Value = "Oui"
   End Sub
Et affectez la macro à la forme une fois pour toutes.
Vous parliez de changer ses dimensions, mais les mettre à 0 le rend quasi invisible, alors pourquoi pas carrément invisible, n'est-ce pas. Comme ça on ne peut même plus cliquer dessus et il devient inutile de changer sa propriété OnAction.
 
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

Retour