Utilisation de deux Toggle button

Bonsoir,

J'essaie d'utiliser deux ToggleButton pour renseigner une information ou l'autre ou bien les deux informations, dans une cellule définie.

J'ai bidouillé ce code, ça marche et ça marche pas en même temps...

Lorsque je clique sur le bouton 1 la lettre A s'inscrit.

Lorsque je clique sur le bouton 2 la lettre B s'inscrit

Si je clique sur les deux, alors "AB" s'affiche.

Jusque là tout va bien.

En revanche, lorsque je clique à nouveau sur le bouton 1 ou 2, il reste "AB" d'affiché. Visiblement mon code est assez mal ficelé, ce qui ne me surprend pas. J'ai espoir que vous m'éclairiez avec vos lanternes !

Private Sub ToggleButton1_Click()
If ToggleButton1.Value Then Cells(24, 5) = "A"
If ToggleButton1.Value And ToggleButton2.Value Then Cells(24, 5) = "AB"
If ToggleButton1.Value = False And ToggleButton2.Value = False Then Cells(24, 5) = ""
'Cells(24, 5) = "A"
End Sub

Private Sub ToggleButton2_Click()
If ToggleButton2.Value Then Cells(24, 5) = "B"
If ToggleButton2.Value And ToggleButton1.Value Then Cells(24, 5) = "AB"
If ToggleButton2.Value = False And ToggleButton1.Value = False Then Cells(24, 5) = ""
'Cells(24, 5) = "B"
End Sub

J'ai mis un petit fichier Excel au cas où.

Merci de votre attention !

Bonne soirée !

Bonsoir,

Private Sub ToggleButton1_Click()
 If ToggleButton1 And ToggleButton2 Then Cells(24, 5) = "AB"
 If ToggleButton1 And Not ToggleButton2 Then Cells(24, 5) = "A"
 If Not ToggleButton1 And ToggleButton2 Then Cells(24, 5) = "B"
 If Not ToggleButton1 And Not ToggleButton2 Then Cells(24, 5) = ""
End Sub

Private Sub ToggleButton2_Click()
 If ToggleButton2.Value And ToggleButton1 Then Cells(24, 5) = "AB"
 If ToggleButton2 And Not ToggleButton1 Then Cells(24, 5) = "B"
 If Not ToggleButton2 And ToggleButton1 Then Cells(24, 5) = "A"
 If Not ToggleButton2 And Not ToggleButton1 Then Cells(24, 5) = ""
End Sub

Bonne soirée

Bonjour,

à tester,

Private Sub ToggleButton1_Click()
ToggleButton
End Sub

Private Sub ToggleButton2_Click()
ToggleButton
End Sub

Sub ToggleButton()
v1 = Me.ToggleButton1.Value
v2 = Me.ToggleButton2.Value
v = v1 & v2
    Select Case v
        Case "FauxFaux": Cells(24, 5) = ""
        Case "VraiFaux": Cells(24, 5) = "A"
        Case "FauxVrai": Cells(24, 5) = "B"
        Case "VraiVrai": Cells(24, 5) = "AB"
    End Select
End Sub

Bonsoir,

Vous avez répondu quasiment en même temps, mais avec des solutions différentes.

Je les ai testé et toute deux fonctionne très bien !

Merci beaucoup pour votre aide !

Je m'en vais m'amuser avec mes boutons maintenant

Bonne soirée !

A bientôt.

une version courte:

dans la feuille de code de la feuille:

Private Sub ToggleButton1_Click()
 Cells(24, 5).Value = TogB(ToggleButton1, ToggleButton2)
End Sub

Private Sub ToggleButton2_Click()
 Cells(24, 5).Value = TogB(ToggleButton1, ToggleButton2)
End Sub

Function TogB(V1, V2) As String
 Dim T
 T = [{"AB","A";"B",""}]
 TogB = T(V1 + 2, V2 + 2)
End Function

Haha encore plus complexes !

Merci beaucoup !