Propriétés SpinButton

[kadelmalin]

Bonjour le forum,
Dans ce code la propriété "Visible" du formulaire Toupie est acceptée mais "Enabled" est refusée, est ce qu'il y a un autre moyen de désactiver l'un ou l'autre SpinButton.
le Code :
Private Sub Worksheet_Change(ByVal Target As Range)

If Range("C1").Value = 0 Then
ActiveSheet.Shapes("SpinButton1").Visible = True
ActiveSheet.Shapes("SpinButton2").Visible = False
Else
ActiveSheet.Shapes("SpinButton1").Visible = False
ActiveSheet.Shapes("SpinButton2").Visible = True
End If

End Sub
Merci.

 

[Modeste geedee]

Bonsour®

Bonjour le forum,
Dans ce code la propriété "Visible" du formulaire Toupie est acceptée mais "Enabled" est refusée, est ce qu'il y a un autre moyen de désactiver l'un ou l'autre SpinButton.
le Code :
Private Sub Worksheet_Change(ByVal Target As Range)

If Range("C1").Value = 0 Then
ActiveSheet.Shapes("SpinButton1").Visible = True
ActiveSheet.Shapes("SpinButton2").Visible = False
Else
ActiveSheet.Shapes("SpinButton1").Visible = False
ActiveSheet.Shapes("SpinButton2").Visible = True
End If

End Sub
Merci.

utiliser un spinbutton de la boite Contrôles ActiveX

 

[kadelmalin]

Merci Modeste pour votre réponse, j'ai déjà essayé le contole Activex mais il est lent par rapport au formulaire.

 

[kadelmalin]

J'ai trouvé une astuce pour conserver le contrôle Formulaire et les propriétés "Visible" en faisant superposer les 2 SpinButton. Merci de m'avoir accordé un peu de votre temps.