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

[NONO14]

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

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

 

[NONO14]

On s'est pris la tête ce matin.
J'ai du partir pour raison médicale, je reviens cet après-midi
Désolé

 

[TooFatBoy]

On s'est pris la tête ce matin.
J'ai du partir pour raison médicale, je reviens cet après-midi
Désolé

C'est nous qui sommes désolés pour toi.

 

[ChTi160]

Bonjour le Fil
je me pose une question Lol
dans cette procédure
Tu dis :

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.

'Si la CheckBox 1 est cochée
'alors toutes les CheckBox sont désactivées

donc : y compris celle qui est Clicker donc
peux tu m'explique le But ?
Cordialement
jean marie

 

[vgendron]

@ChTi160
je crois qu'il suffit de comprendre
si la chekbox1 est cochée, alors toutes les AUTRES checkbox sont désactivées...

 

[NONO14]

Bonjour le Fil
je me pose une question Lol
dans cette procédure
Tu dis :

'Si la CheckBox 1 est cochée
'alors toutes les CheckBox sont désactivées

donc : y compris celle qui est Clicker donc
peux tu m'explique le But ?
Cordialement
jean marie

Bonjour ChTi160
Je me suis mal exprimé, il aurait été idiot d'agir de la sorte. Le but était qu'il n'y ait qu'une seule case cochée.
Maintenant je n'ai plus ce soucis avec la solution de vgendron.
Merci tout de même d'avoir soulevée la question

 

[ChTi160]

Re
Merci vgendron
donc il faut introduire une comparaison !

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

un truc du genre
Jean marie

 

[Dudu2]

Sacré discussion de 5 pages pour checker une Checkbox à l'exclusion des autres !

 

[NONO14]

Re
Merci vgendron
donc il faut introduire une comparaison !

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

un truc du genre
Jean marie

Plus besoin avec le code de vgendron. Les Check sont dans le même GroupeName, alors dès qu'une case est cochée les autres sont décochées

 

[Dudu2]

Ah ben mince alors, moi qui croyait avoir fait un code pour gérer la sélection unique d'une CheckBox parmi les CheckBoxes d'un GroupName !

 

[TooFatBoy]

Quand on ne veut qu'une seule option active à la fois, on utilise des boutons radio.
Ils sont justement faits pour ça.

Maintenant que tu n'as plus qu'une seule Frame, ils dialogueront automatiquement entre eux pour que seul le dernier sélectionné soit coché.
Donc si tu remplaces toutes tes CheckBox par des OptionButton, et que tu supprimes toutes les macros inutiles, alors là tu as vraiment simplifié ton code, et aussi la maintenance de celui-ci.

 

[Staple1600]

Bonjour le fil,

@NONO14
La discussion étant préfixée Microsoft 365, et pour rejoindre la suggestion de @TooFatBoy

Et accessoirement, ca colle pile poil au principe K.I.S.S (chevillé à mon clavier chaque fois que j'ouvre Excel)

 

[ChTi160]

Bonjour,
Question on a 7 CheckBox ou OptionButton
(7 jours)
On clique sur l'un , il se met a True , les autres ne sont pas à True . Que doit engendrer la mise de ce Control a True. Si on met ce control a False que doit il se passer ?
Il y a devant chaque control (jour) une ligne de TextBox (horaires) y'a t'il une interaction entre le control jour et ces textBox par exemple les masquer(si control jour a False
Bonne journée
Jean marie

 

[NONO14]

Bonjour TootFatB

Quand on ne veut qu'une seule option active à la fois, on utilise des boutons radio.
Ils sont justement faits pour ça.

Maintenant que tu n'as plus qu'une seule Frame, ils dialogueront automatiquement entre eux pour que seul le dernier sélectionné soit coché.
Donc si tu remplaces toutes tes CheckBox par des OptionButton, et que tu supprimes toutes les macros inutiles, alors là tu as vraiment simplifié ton code, et aussi la maintenance de celui-ci.

Bonjour TootFatBoy
Je ne comprends plus, dois-je mettre des CheckBox ou des OptionButton. vgendron m'a donné un code avec des CheckBox et il fonctionne très bien, ça fait le job.

 

[NONO14]

Bonjour,
Question on a 7 CheckBox ou OptionButton
(7 jours)
On clique sur l'un , il se met a True , les autres ne sont pas à True . Que doit engendrer la mise de ce Control a True. Si on met ce control a False que doit il se passer ?
Il y a devant chaque control (jour) une ligne de TextBox (horaires) y'a t'il une interaction entre le control jour et ces textBox par exemple les masquer(si control jour a False)
Edit : Je mets une vidéo de mon interprétation lol
(Moi j'utilise des CommandButton)
Bonne journée
Jean marie

Bonjour ChTi160,
Merci beaucoup pour ton exemple très intéressant. Cependant, dans mon cas, la saisie doit être automatique lors du clic, on récupère l'heure système, il n'est pas question de saisie.

 

[Dudu2]

@NONO14, si tu as un code qui fonctionne avec des CheckBoxes qui te donnent la liberté d'avoir des cadres ou pas, pourquoi tout changer pour passer sur des OptionButtons ? D'ailleurs je ne comprends pas pourquoi tu as supprimé ces cadres. C'était plus "design" avec.
En plus les OptionButtons c'est moche. Ce petit cercle ridicule avec son petit point ridicule...

Les CheckBoxes, quelle élégance !

D'ailleurs, si j'ai fait une ressource qui permet de gérer les CheckBoxes facilement, c'est principalement pour des raisons esthétiques.