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 à 08:57

Dudu2 à dit:
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é.
Regarde la pièce jointe 1204499
Alors qu'avec le système des CheckBoxes il n'y a pas ces 2 inconvénients.
Regarde la pièce jointe 1204500

Bonjour Dudu2,
Merci beaucoup pour votre participation et votre exemple. J'ai mis en place votre code, cependant lorsqu'une CheckBox d'un groupe est cochée, elle reste cochée, même si l'on change de groupe. Peut-on palier à ça ?

Dudu2 · Vendredi à 09:09

Bonjour @NONO14,
Si tu veux que lorsque tu coches une CheckBox, une autre CheckBox se décoches, il faut que tu mettes ces 2 CheckBoxes dans le même groupe. C'est le groupe (propriété CheckBox.GroupName) qui permet ça.
Sinon qu'est-ce que tu appelles "groupe" ?

NONO14 · Vendredi à 09:23

Dudu2 à dit:
Bonjour @NONO14,
Si tu veux que lorsque tu coches une CheckBox, une autre CheckBox se décoches, il faut que tu mettes ces 2 CheckBoxes dans le même groupe. C'est le groupe (propriété CheckBox.GroupName) qui permet ça.
Sinon qu'est-ce que tu appelles "groupe" ?

J'ai mis respectivement chaque CheckBox dans son groupeName dans les propriétés de la CheckBox. Il y a donc 4 groupes.
Lorsque je clique sur une CheckBox j'ai ce message d'erreur qui apparaît " Erreur de compilation ! Variable ou procédure attendue et non une variable"
Voici mon fichier. Il s'agit du formulaire UfMenusAdmin. Mdp = admin01

vgendron · Vendredi à 09:28

Hello
Change le nom du module qui porte le meme nom que la macro
cependant.. tout comme les options button, ca ne fonctionne pas s'ils sont dans des frames différentes

NONO14 · Vendredi à 09:30

vgendron à dit:
Hello
Change le nom du module qui porte le meme nom que la macro
cependant.. tout comme les options button, ca ne fonctionne pas s'ils sont dans des frames différentes

Bonjour vgendron,
Merci pour ta réponse.

Dudu2 · Vendredi à 09:31

Voilà...
Dans le code de la ressource le module s'appelle Module_CheckBoxExclusive.
Importe-le tel quel de préférence.

NONO14 · Vendredi à 09:32

vgendron à dit:
Hello
Change le nom du module qui porte le meme nom que la macro
cependant.. tout comme les options button, ca ne fonctionne pas s'ils sont dans des frames différentes

Effectivement ça fonctionne mieux

vgendron · Vendredi à 09:32

et en fait, si, ca va marcher pour peu que tu mettes le meme groupname pour les 10 checkboxs..

NONO14 · Vendredi à 09:33

Dudu2 à dit:
Voilà...
Dans le code de la ressource le module s'appelle Module_CheckBoxExclusive.
Importe-le tel quel de préférence.

Oui, j'ai fait l'erreur de vouloir modifier le nom du module, ça fonctionne mieux à présent

Dudu2 · Vendredi à 09:33

@vgendron,

cependant.. tout comme les options button, ca ne fonctionne pas s'ils sont dans des frames différentes

Pourquoi dis-tu ça ?

NONO14 · Vendredi à 09:34

vgendron à dit:
et en fait, si, ca va marcher pour peu que tu mettes le meme groupname pour les 10 checkboxs..

Ok, je vais essayer, mais dans ce cas le module de Dudu2 n'a pu lieu d'être

vgendron · Vendredi à 09:36

Dudu2 à dit:
@vgendron,

Pourquoi dis-tu ça ?

m'a gouré
parce que j'ai essayé de cliquer sur les checkbox (après avoir renommé le module)
mais je n'avais pas vu que Nono avait placé les chk dans des groupes name différents
d'ou mon message rectificatif 38

Dudu2 · Vendredi à 09:36

Ok, je vais essayer, mais dans ce cas le module de Dudu2 n'a pu lieu d'être

Le GroupName c'est juste une information. Ça n'inclue aucun traitement.
Enfin, à ma connaissance.

NONO14 · Vendredi à 09:37

Dudu2 à dit:
@vgendron,

Pourquoi dis-tu ça ?

vgendron a raison, si je coche une Check dans le groupe1 et je coche une check dans le groupe 2, celle du 1 reste cochée.

vgendron · Vendredi à 09:40

bon après.. tout ce code pour gérer l'unicité de la selection de checkbox alors que l'option button est fait pour ca...
en plus.. un chef plutot borné qui va voir des coches va surement etre amené à te dire." Bah pourquoi je peux pas en selectionner plusieurs si je veux faire plusieurs choses à la fois.."

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

NONO14

XLDnaute Occasionnel

vgendron

NONO14

XLDnaute Occasionnel

Dudu2

XLDnaute Barbatruc

NONO14

XLDnaute Occasionnel

Pièces jointes

vgendron

XLDnaute Barbatruc

NONO14

XLDnaute Occasionnel

Dudu2

XLDnaute Barbatruc

NONO14

XLDnaute Occasionnel

vgendron

XLDnaute Barbatruc

NONO14

XLDnaute Occasionnel

Dudu2

XLDnaute Barbatruc

Pièces jointes

NONO14

XLDnaute Occasionnel

vgendron

XLDnaute Barbatruc

Dudu2

XLDnaute Barbatruc

NONO14

XLDnaute Occasionnel

vgendron

XLDnaute Barbatruc

Discussions similaires