Macro pour afficher/masquer un objet

yannick42 · 7 Novembre 2009

Bonjour,

Comment peut on faire un organigramme hiérarchisé avec une macro qui permettrait de faire apparaitre ou disparaitre des sous ensembles ?

La macro proposé ne fonctionne pas. Pourquoi ?

Merci pour votre aide.

Yannick

PMO2 · 7 Novembre 2009

Re : Macro pour afficher/masquer un objet

Bonjour,

Dans votre macro France est un littéral et non une variable.
Il convient donc de l'écrire cernée par des double quotes (")

Code corrigé ci-dessous

Code:

Sub MontrerMasquer()
If ActiveSheet.Shapes("France").Visible = True Then
ActiveSheet.Shapes("France").Visible = False
Else: ActiveSheet.Shapes("France").Visible = True
End If
End Sub

Cordialement.

PMO
Patrick Morange

Staple1600 · 7 Novembre 2009

Re : Macro pour afficher/masquer un objet

Bonjour

Ou plus simple 😉

Code:

Sub MontrerMasquer()
    With ActiveSheet.Shapes("France")
        .Visible = Not .Visible
    End With
End Sub

yannick42 · 7 Novembre 2009

Re : Macro pour afficher/masquer un objet

Merci ! Cela fonctionne parfaitement.

A bientôt,

yannick

Macro pour afficher/masquer un objet

yannick42

Guest

Pièces jointes

PMO2

XLDnaute Accro

Staple1600

XLDnaute Barbatruc

yannick42

Guest

Discussions similaires

Macro pour afficher/masquer un objet

yannick42

Guest

Pièces jointes

PMO2

XLDnaute Accro

Staple1600

XLDnaute Barbatruc

yannick42

Guest

Discussions similaires

Privacy & Transparency

Privacy & Transparency