Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Macro - modification d'objets (suite)

  • Initiateur de la discussion Initiateur de la discussion Hub
  • 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 !

Hub

XLDnaute Occasionnel
Bonjour à tous,

vous trouverez en pièce jointe un exemple et sa question.

Lorsque j’exécute la macro « manuellement », il n’y a pas de problème, l’objet souhaité apparaît ou disparait.
Lorsque je modifie la valeur de la cellule A10, la macro ne s’exécute pas. Pourquoi ???
J’ai comme l’impression qu’une macro est forcément liée au « cochage » d’un bouton !!!
Dans ce cas, comment utiliser la condition « If » dans l’exemple ci-dessous ?

Sub Forme()
If [A11] = 1 Then
Feuil3.Shapes("Rectangle 4").Visible = True
Feuil3.Shapes("Ellipse 5").Visible = False
ElseIf [A11] = 2 Then
Feuil3.Shapes("Rectangle 4").Visible = False
Feuil3.Shapes("Ellipse 5").Visible = True
Else
End If
End Sub

Pour sélectionner un objet, il faut déclarer le nom de la feuille. Ce qui sous entend qu’il faut réactualiser la macro si on renomme la feuille, est ce bien cela ?

D’avance merci pour votre réponse,

@+
 

Pièces jointes

Re : Macro - modification d'objets (suite)

salut

comme Tentative te le propose 😀, avec une évènementielle mais ici, avec une seule macro et prévision du masquage intégral.
Dans la page de code de la feuille
Code:
Private Sub Worksheet_Change(ByVal R As Range)
  If R.Address <> "$A$10" Then Exit Sub
  Me.Shapes("Rectangle 4").Visible = R <> ""
  Me.Shapes("Ellipse 5").Visible = R <> ""
  Me.Shapes("Rectangle 4").Visible = R = 1
  Me.Shapes("Ellipse 5").Visible = R = 2
End Sub
 

Pièces jointes

- 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
Réponses
2
Affichages
4 K
T
Réponses
2
Affichages
2 K
Tibooo
T
Réponses
17
Affichages
2 K
J
Réponses
19
Affichages
3 K
jannine NOLAM
J
L
Réponses
2
Affichages
687
A
Réponses
3
Affichages
1 K
AppleDance
A
A
Réponses
21
Affichages
3 K
armorik75
A
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…