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

NONO14 · 3 Octobre 2024

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 · 4 Octobre 2024

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

Dan · 3 Octobre 2024

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 · 3 Octobre 2024

Bonjour,

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

NONO14 · 3 Octobre 2024

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 · 3 Octobre 2024

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 · 3 Octobre 2024

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

NONO14 · 3 Octobre 2024

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 · 3 Octobre 2024

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 · 3 Octobre 2024

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

NONO14 · 3 Octobre 2024

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 · 3 Octobre 2024

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

OptionButton

TooFatBoy · 3 Octobre 2024

Apparemment dans Excel ça s'appelle OptionButton.

NONO14 · 3 Octobre 2024

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 · 3 Octobre 2024

Je vais utiliser les OptionButton.

Dan · 3 Octobre 2024

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 Impliqué

vgendron

Dan

XLDnaute Barbatruc

TooFatBoy

XLDnaute Barbatruc

NONO14

XLDnaute Impliqué

NONO14

XLDnaute Impliqué

TooFatBoy

XLDnaute Barbatruc

NONO14

XLDnaute Impliqué

Dan

XLDnaute Barbatruc

TooFatBoy

XLDnaute Barbatruc

NONO14

XLDnaute Impliqué

NONO14

XLDnaute Impliqué

TooFatBoy

XLDnaute Barbatruc

NONO14

XLDnaute Impliqué

NONO14

XLDnaute Impliqué

Dan

XLDnaute Barbatruc

Discussions similaires