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

NONO14 · Jeudi à 17:24

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 · Vendredi à 10:23

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

NONO14 · Vendredi à 11:18

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 · Vendredi à 11:23

NONO14 à dit:
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 · Vendredi à 14:08

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.

VB:

'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 · Vendredi à 14:15

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

NONO14 · Vendredi à 14:16

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

VB:

'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 · Vendredi à 14:18

Re
Merci vgendron
donc il faut introduire une comparaison !

VB:

  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 · Vendredi à 14:42

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

NONO14 · Vendredi à 14:50

ChTi160 à dit:
Re
Merci vgendron
donc il faut introduire une comparaison !

VB:

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 · Vendredi à 16:21

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 · Vendredi à 16:42

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 · Hier à 08:46

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 · Hier à 08:56

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 · Hier à 09:42

Bonjour TootFatB

TooFatBoy à dit:
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 · Hier à 09:45

ChTi160 à dit:
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 · Hier à 10:03

@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.

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

NONO14

XLDnaute Occasionnel

vgendron

NONO14

XLDnaute Occasionnel

TooFatBoy

XLDnaute Barbatruc

ChTi160

XLDnaute Barbatruc

vgendron

XLDnaute Barbatruc

NONO14

XLDnaute Occasionnel

ChTi160

XLDnaute Barbatruc

Dudu2

XLDnaute Barbatruc

NONO14

XLDnaute Occasionnel

Dudu2

XLDnaute Barbatruc

TooFatBoy

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

ChTi160

XLDnaute Barbatruc

NONO14

XLDnaute Occasionnel

NONO14

XLDnaute Occasionnel

Dudu2

XLDnaute Barbatruc

Discussions similaires