Macro pour afficher/masquer un objet

[yannick42]

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]

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

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]

Re : Macro pour afficher/masquer un objet

Bonjour


Ou plus simple

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

 

[yannick42]

Re : Macro pour afficher/masquer un objet

Merci ! Cela fonctionne parfaitement.

A bientôt,

yannick