Multiple boutons à bascule

[apnart]

Bonjour,

J'ai fait des recherches sur le forum mais n'ai pas trouvé mon bonheur 🙁

Je voudrais faire une sorte de choix par des boutons à bascule (4 choix pour commencer, mais + à l'avenir).

L'idée c'est que lorsqu'on appuie sur 1 des boutons à bascule, les autres remontent, et si le bouton est déjà enfoncé, si on appuie quand même dessus que cela ne change rien.

J'ai fait le code ci-dessous, mais ça tourne en rond et bloque excel 🙁

(mes boutons s'appellent PGU1 à 4

Private Sub PGU1_Click()

    If PGU1.Value = True Then
        PGU2.Value = False
        PGU3.Value = False
        PGU4.Value = False
    Else
        PGU1.Value = True
    End If


End Sub


Private Sub PGU2_Click()


    If PGU2.Value = True Then
        PGU1.Value = False
        PGU3.Value = False
        PGU4.Value = False
    Else
        PGU2.Value = True
    End If


End Sub


Private Sub PGU3_Click()


    If PGU3.Value = True Then
        PGU1.Value = False
        PGU2.Value = False
        PGU4.Value = False
    Else
        PGU3.Value = True
    End If


End Sub


Private Sub PGU4_Click()


    If PGU4.Value = True Then
        PGU1.Value = False
        PGU2.Value = False
        PGU3.Value = False
    Else
        PGU4.Value = True
    End If


End Sub

Si vous avez des idées pour moi, welcome !

Merci d'avance 🙂

 

[Efgé]

Re : Multiple boutons à bascule

Bonjour apnart
regarde ce fil peut être
Cordialement

 

[apnart]

Re : Multiple boutons à bascule

Merci FG,

Houlà... y a du code là 😱 je ne pensais pas ça si compliqué.

Je voudrais faire ça directement sur une feuille, pas dans une form... ça change quelque chose ?

Merci d'avance,
Bruno.

 

[Efgé]

Re : Multiple boutons à bascule

Re
Oui, ça change quelques trucs.
La façon dont on incorpore les boutoons à la classe par exemple.
La version UserForme est, à mon avis, la plus simple, surtout que le fil en lien donne presque tout ce qui est nécessaire.
Cordialement