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

Dan · Jeudi à 17:52

Bonjour
Le tout est de savoir sur quelle action vous voulez décochez toutes les checkbox
Après mettez le code comme ceci dans un module ou dans l'usf

VB:

Sub desactiver
For Each ctrl In Me.Controls
  If TypeName(ctrl) = "CheckBox" Then
      ctrl.Enabled = False
  End If
Next ctrl
end sub

Puis vous appelez ce code lors de l'action d'un code dans votre userform en mettant ceci

CSS:

Call desactiver

NB : Si vous le placez dans un module vous remplacez le ME par le nom de votre userform
Crdlt

TooFatBoy · Jeudi à 18:03

Bonjour,

Si tu tiens absolument à cocher des trucs, utilise plutôt des boutons radio comme ça tu n'auras rien à programmer.

NONO14 · Jeudi à 18:03

Dan à dit:
Bonjour
Le tout est de savoir sur quelle action vous voulez décochez toutes les checkbox
Après mettez le code comme ceci dans un module ou dans l'usf

VB:

Sub desactiver For Each ctrl In Me.Controls If TypeName(ctrl) = "CheckBox" Then ctrl.Enabled = False End If Next ctrl end sub

Si vous le placez dans un module vous remplacez le ME par le nom de votre userform

Puis vous appelez ce code lors de l'action d'un code dans votre userform en mettant ceci

CSS:

Call desactiver

Crdlt

Bonjour Dan,
Je souhaite que les CheckBox soit désactivée si une des 10 est cochée.
Merci par avance pour votre aide

NONO14 · Jeudi à 18:04

TooFatBoy à dit:
Bonjour,

Si tu tiens absolument à cocher des trucs, utilise plutôt des boutons radio comme ça tu n'auras rien à programmer.

Des "bouton radio" c'est quoi ????

TooFatBoy · Jeudi à 18:06

C'est comme des cases à cocher mais rond, et un seul peut être "coché" à la fois.

NONO14 · Jeudi à 18:07

TooFatBoy à dit:
C'est comme des cases à cocher mais rond, et un seul peut être "coché" à la fois.

Ah, je ne connaissais pas, je vais regarder.
Merci pour l'information

Dan · Jeudi à 18:09

NONO14 à dit:
Bonjour Dan,
Je souhaite que les CheckBox soit désactivée si une des 10 est cochée.
Merci par avance pour votre aide

Vous utilisez le code que j'ai donné. Si la checkbox est décochée elle restera décochée
On n'a pas besoin de savoir si une est cochée ou pas
Le tout est que le code soit appelé depuis un autre code. genre par exemple Valider ou un reset de l'userform
Je n'ai pas la vue de votre fichier ....

TooFatBoy · Jeudi à 18:09

Je crois que dans Excel ça porte un autre nom.

NONO14 · Jeudi à 18:10

NONO14 à dit:
Ah, je ne connaissais pas, je vais regarder.
Merci pour l'information

Effectivement c'est plutôt plus intéressant.
Je vais donc changer mon Uf.
Merci beaucoup

NONO14 · Jeudi à 18:13

TooFatBoy à dit:
Je crois que dans Excel ça porte un autre nom.

OptionButton

TooFatBoy · Jeudi à 18:13

Apparemment dans Excel ça s'appelle OptionButton.

NONO14 · Jeudi à 18:14

Dan à dit:
Vous utilisez le code que j'ai donné. Si la checkbox est décochée elle restera décochée
On n'a pas besoin de savoir si une est cochée ou pas
Le tout est que le code soit appelé depuis un autre code. genre par exemple Valider ou un reset de l'userform
Je n'ai pas la vue de votre fichier ....

Non ça ne fonctionne pas. Lorsque je clique sur une CheckBox les autres sont bien désactivées, mais lorsque je clique sur le bouton "Annuler" pour modifier mon choix, je ne peux plus utiliser la Check cliquée auparavant.

NONO14 · Jeudi à 18:16

Je vais utiliser les OptionButton.

Dan · Jeudi à 18:23

Non ça ne fonctionne pas. Lorsque je clique sur une CheckBox les autres sont bien désactivées, mais lorsque je clique sur le bouton "Annuler" pour modifier mon choix, je ne peux plus utiliser la Check cliquée auparavant.

Je ne vous ai pas dit d'appeler le code depuis un code checkbox_click --> (Private Sub Chk_1_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

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

NONO14

XLDnaute Occasionnel

vgendron

Dan

XLDnaute Barbatruc

TooFatBoy

XLDnaute Barbatruc

NONO14

XLDnaute Occasionnel

NONO14

XLDnaute Occasionnel

TooFatBoy

XLDnaute Barbatruc

NONO14

XLDnaute Occasionnel

Dan

XLDnaute Barbatruc

TooFatBoy

XLDnaute Barbatruc

NONO14

XLDnaute Occasionnel

NONO14

XLDnaute Occasionnel

TooFatBoy

XLDnaute Barbatruc

NONO14

XLDnaute Occasionnel

NONO14

XLDnaute Occasionnel

Dan

XLDnaute Barbatruc

Discussions similaires