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