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

 

[Dan]

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

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

Call desactiver

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

 

[TooFatBoy]

Bonjour,

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

 

[NONO14]

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

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

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]

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]

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

 

[NONO14]

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]

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]

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

 

[NONO14]

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]

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

OptionButton

 

[TooFatBoy]

Apparemment dans Excel ça s'appelle OptionButton.

 

[NONO14]

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]

Je vais utiliser les OptionButton.

 

[Dan]

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