Microsoft 365 Simplifier un code pour activer ou désactiver des CheckBox

NONO14 · 3 Octobre 2024

Bonjour à toutes et à tous,

Ayant remis à plat un projet, et pour suivre le bon conseil de TootFatBoys, je créé cette nouvelle discussion.
J'ai mis en place ce code qui permet de désactiver toutes les CheckBox de mon formulaire si il y en a une de cochée, hors, j'ai dix CheckBox à gérer.
Dois-je répéter ce code pour les dix ou existe t-il une manière de le simplifier pour qu'il s'applique si on clique sur une des dix CheckBox ?
Peut-être faut-il passer par un module... Je ne sais pas.
Merci par avance pour votre aide

VB:

Private Sub Chk_1_Click()
Dim ctrl As Control

'Si la CheckBox 1 est cochée
    If Chk_1.Value = True Then

'alors toutes les CheckBox sont désactivées
        For Each ctrl In Me.Controls
            If TypeName(ctrl) = "CheckBox" Then
                ctrl.Enabled = False
            End If
        Next ctrl

'Sinon elles restent activées
    Else
        For Each ctrl In Me.Controls
            If TypeName(ctrl) = "CheckBox" Then
                ctrl.Enabled = True
            End If
        Next ctrl
    End If
End Sub

vgendron · 4 Octobre 2024

j'en ai profité pour ajouter un nouveau module de classe qui permet de s'affranchir de tous les
private sub checkbox_click..

NONO14 · 3 Octobre 2024

Dan à dit:
Je ne vous ai pas dit d'appeler le code depuis un code checkbox_click
Là cela ne saurait fonctionner évidemment
SI vous voulez utiliser un genre d'option ON - OFF, les OptionButton sont à utiliser comme vous le dit Toofatboy

Ah d'accord, je n'avais pas compris. Dans mon cas, c'était au clic d'une Check.
Mais bon je vais passer par des OptionButton.
Merci beaucoup pour votre participation.

TooFatBoy · 3 Octobre 2024

Par contre attention, un bouton radio ça ne se décoche pas.

Du moins, pas en recliquant dessus, mais en cliquant sur un autre bouton radio.

Dan · 3 Octobre 2024

Ok

NONO14 à dit:
Ah d'accord, je n'avais pas compris. Dans mon cas, c'était au clic d'une Check.
Mais bon je vais passer par des OptionButton.
Merci beaucoup pour votre participation.

Ok pas de soucis

vgendron · 3 Octobre 2024

hello all

je te remets ici la meme réponse que sur l'autre post qui confirme ce qui t'a été dit ici

si une seule doit etre active, j'aurais plutot utilisé des optionsbutton (dans le meme groupe: voir propriété)
sinon, je ferais UNE macro appelée par tous les chk_x_click, et en paramètre, le nom du control appelant
(avec caller)

vgendron · 3 Octobre 2024

avec ton fichier sur lequel j'ai ajouté les Optionbutton + code initialize et le code associé au bouton "valider"

NONO14 · 3 Octobre 2024

vgendron à dit:
hello all

je te remets ici la meme réponse que sur l'autre post qui confirme ce qui t'a été dit ici

si une seule doit etre active, j'aurais plutot utilisé des optionsbutton (dans le meme groupe: voir propriété)
sinon, je ferais UNE macro appelée par tous les chk_x_click, et en paramètre, le nom du control appelant
(avec caller)

Les OptionButton fonctionnent bien, comme tu me l'avait suggéré ainsi que TootFatBoys.
Cependant, comme les OptionButton sont dans des Frames différentes et bien il y en a toujours un qui reste activé lorsque l'on change de Frame.

NONO14 · 3 Octobre 2024

vgendron à dit:
avec ton fichier sur lequel j'ai ajouté les Optionbutton + code initialize et le code associé au bouton "valider"

J'ai fais la même chose mais dans des Frames

vgendron · 3 Octobre 2024

Essai de mettre tous les Options Buttons dans le meme groupname ??
sinon.. il faut supprimer les frames (qui ne servent qu'à faire joli?) et tu mets des zones colorées en arrière plan???

TooFatBoy · 3 Octobre 2024

Perso, je ne comprends pas à quoi servent les trucs à cocher, que ce soient des cases à cocher ou des boutons radio.

Ne peut-on envisager simplement des boutons qui lancent l'action concernée ?

NONO14 · 3 Octobre 2024

TooFatBoy à dit:
Perso, je ne comprends pas à quoi servent les trucs à cocher, que ce soient des cases à cocher ou des boutons radio.

Ne peut-on envisager simplement des boutons qui lancent l'action concernée ?

ça fait partie des demandes, je ne pouvaient pas tout refuser.

NONO14 · 3 Octobre 2024

vgendron à dit:
Essai de mettre tous les Options Buttons dans le meme groupname ??
sinon.. il faut supprimer les frames (qui ne servent qu'à faire joli?) et tu mets des zones colorées en arrière plan???

Très bien , je vais faire ça. Et comment mettre des zones colorées en arrière plan ? On peut mettre plusieurs couleurs ? Je ne savais pas...

vgendron · 3 Octobre 2024

avec des labels et jouer avec les controls au premier plan

Dudu2 · 3 Octobre 2024

Bonjour,
J'arrive sans doute un peu tard dans la discussion mais j'avais fait une petite ressource pour ça:

VBA - UserForm - Groupes de CheckBoxes exclusives / à choix unique

Le fichier à télécharger contient: Le Module_CheckBoxExclusive à importer dans le projet VBA. Le UserForm1 comme exemple de mise en œuvre. Les principales caractéristiques: Permet de gérer facilement des CheckBoxes appartenant au même...

excel-downloads.com

Je viens de la passer en Version 3 pour identifier les CheckBoxes d'un group grâce à la propriété CheckBox.GroupName.

TooFatBoy · 3 Octobre 2024

NONO14 à dit:
ça fait partie des demandes, je ne pouvaient pas tout refuser.

Oui, je comprends. Mais là c'est complètement stupide cette histoire de case à cocher pour lancer une action.

Donc là, tu coches une case, tu désactives les autres cases à cocher (pourquoi ? Ben, on se le demande...), et ensuite tu lances l'action.
Ils n'ont rien trouvé de plus compliqué et stupide ? Ils s'en rendent compte au moins ???

Je compatis sincèrement et te souhaite bon courage pour le développement du projet.

Dudu2 · 4 Octobre 2024

Bonjour,

Désolé, il faut reprendre la V4 de la ressource car il y avait bug lorsque la CheckBox est dans un ou plusieurs Frames et/ou un ou plusieurs Multipage. Je ne savais pas que le UserForm.ActiveControl est alors le Frame ou le Multipage et non le Control CheckBox.

Repars sur les CheckBoxes en utilisant la V4 de la ressource, car les OptionButtons sont en groupes dans un Frame et indépendants des autres OptionButtons dans d'autres Frames, de plus, une fois qu'un OptionButton a été cliqué, il n'est plus possible d'en avoir aucun de marqué.

Alors qu'avec le système des CheckBoxes il n'y a pas ces 2 inconvénients.

Microsoft 365 Simplifier un code pour activer ou désactiver des CheckBox

NONO14

XLDnaute Impliqué

vgendron

NONO14

XLDnaute Impliqué

TooFatBoy

XLDnaute Barbatruc

Dan

XLDnaute Barbatruc

vgendron

XLDnaute Barbatruc

vgendron

XLDnaute Barbatruc

Pièces jointes

NONO14

XLDnaute Impliqué

NONO14

XLDnaute Impliqué

vgendron

XLDnaute Barbatruc

TooFatBoy

XLDnaute Barbatruc

NONO14

XLDnaute Impliqué

NONO14

XLDnaute Impliqué

vgendron

XLDnaute Barbatruc

Pièces jointes

Dudu2

XLDnaute Barbatruc

VBA - UserForm - Groupes de CheckBoxes exclusives / à choix unique

TooFatBoy

XLDnaute Barbatruc

Dudu2

XLDnaute Barbatruc

Discussions similaires