Pourquoi je dois cliquer 2 fois pour activer le ToggleButton ?

Bonjour à tous,

J'ai un groupe de 3 ToggleButton qui lorsqu'ils s'activent désactivent les 2 autres.

Sauf que lorsque je clic sur un ToggleButton il faut que je clic dessus 2 fois pour que ça marche. Savez-vous comment rectifier cela ?

Merci =)

Private Sub GEDINFO_01NC_Click()

GEDINFO_01NC = True

GEDINFO_01NF = False

GEDINFO_01FP = False

End Sub

Private Sub GEDINFO_01NF_Click()

GEDINFO_01NF = True

GEDINFO_01NC = False

GEDINFO_01FP = False

End Sub

Private Sub GEDINFO_01FP_Click()

GEDINFO_01FP = True

GEDINFO_01NC = False

GEDINFO_01NF = False

End Sub

Bonjour, à l'ouverture de votre userform il faut au moins 1 des tooglebutton sur la position "True"

Ensuite dans votre code vous ne changez que si le toogle button cliqué est sur True sinon pas de changement :

Private Sub GEDINFO_01NC_Click()
If GEDINFO_01NC = True Then
    GEDINFO_01NF = False
    GEDINFO_01FP = False
End If

End Sub
Private Sub GEDINFO_01NF_Click()
If GEDINFO_01NF = True Then
    GEDINFO_01NC = False
    GEDINFO_01FP = False
End If
End Sub
Private Sub GEDINFO_01FP_Click()
If GEDINFO_01FP = True Then
    GEDINFO_01NC = False
    GEDINFO_01NF = False
End If
End Sub

Bonjour ...

changer l’évènement pour éviter la récursivité (rappel continu de l'évènement):

Private Sub GEDINFO_01NC_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
  GEDINFO_01NF = Not GEDINFO_01NC
  GEDINFO_01FP = Not GEDINFO_01NC
End Sub

Private Sub GEDINFO_01NF_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
  GEDINFO_01NC = Not GEDINFO_01NF
  GEDINFO_01FP = Not GEDINFO_01NF
End Sub

Private Sub GEDINFO_01FP_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
  GEDINFO_01NC = Not GEDINFO_01FP
  GEDINFO_01NF = Not GEDINFO_01FP
End Sub