Salut Patrick, le Forum
Pourquoi ne pas mettre deux options boutons, par défaut ils "switchent" automatiquement... ? tu n'aurais pas ce souci !
Bon enfin j'ai fait des test just for the fun...
Je croyais avoir le bon bout avec ceci :
Private Sub OptionButton1_Click()
Dim NBclick As Boolean
Static Click As Byte
NBclick = Application.WorksheetFunction.ISODD(Click)
OptionButton1 = NBclick
Else: OptionButton1 = False
End If
End Sub
Mais NIET NIET, la fonction IsOdd (XLA Analysis ToolPak) n'est semble-t'il pas reconnue par VBA... (?)
Donc voici un truc un peu tiré par les cheveux, mais qui marche avec un seul OptionButton sur un UserForm...
Private Sub OptionButton1_Click()
Static Click As Byte
Click = Click + 1
Select Case Click
Case 1: OptionButton1 = True
Case 2: OptionButton1 = False
Case 3: OptionButton1 = True
Case 4: OptionButton1 = False
Case Else: MsgBox "C'est pas un peu fini de me cliquer dessus !!", vbExclamation, "Message de l'OptionButton"
End Select
Private Sub OptionButton1_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
OptionButton1 = False
End Sub
Enfin c'est juste for the Fun, car moi j'utiliserai plutôt une CheckBox plutôt qu'un OptionButton... Mais bon le "client est Roi" !!
Bon Aprèm
@+Thierry
PS encore une utilisation de Static pour Schmail, LaurentTBT et Zon...
