Apparaître/Disparaître une forme selon les données d'une case

[jungleragadon]

Bonjour,

Je suis capable de faire apparaître/disparaître un bouton ActiveX en rentrant la valeur 10 dans la case A1 à l'aide de ce code:

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)

If Range("A1").Value = "10" Then

CommandButton1.Visible = True

Else

CommandButton1.Visible = False

End If

End Sub

Mais si je fais la même chose pour une forme cela ne marche pas:

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)

If Range("A1").Value = "10" Then

Rectangle2.Visible = True

Else

Rectangle2.Visible = False

End If

End Sub

Si quelqu'un est capable de me dire pourquoi ce serait très apprécier.

Merci!

 

[pierrejean]

Bonjour
Essayer avec
Rectangle 2.Visible = True (espace après Rectangle))

 

[jungleragadon]

Bonjour
Essayer avec
Rectangle 2.Visible = True (espace après Rectangle))

Merci pierrejean pour cette réponse rapide mais si j'écris Rectangle 2 le VBA mindique une erreur. Alors j'ai changé le nom de mon Rectangle pour Rectangle2 et il ne se passe simplement rien.

 

[haxa]

Bonjour
et avec ceci :
ActiveSheet.Shapes.Range(Array("Rectangle 2")).Visible = True

 

[jungleragadon]

Super ça marche! Merci!