activation/désactivation Optionbutton

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

OUps 1) Désolé pour le Bold !!

OUps 2) Le test "IsOdd" est évidemment un mauvais copié collé... Voici ce qu'il faut lire de mon essaie qui ne fonctionne pas !

Private Sub OptionButton1_Click()
Dim NBclick As Boolean
Static Click As Byte
Click = Click + 1
NBclick = Application.WorksheetFunction.ISODD(Click)
OptionButton1 = NBclick
End Sub

Mais donc problème avec IsOdd...

@+Thierry

Merci Thierry pour la combine ...