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

jungleragadon

XLDnaute Nouveau
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!
 

Discussions similaires

Membres actuellement en ligne

Statistiques des forums

Discussions
311 725
Messages
2 081 943
Membres
101 849
dernier inscrit
florentMIG