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

vgendron · Hier à 12:04

Dudu2 à dit:
Histoire de prolonger cette discussion amicale au bistrot d'XLD, je reviens sur la classe de @vgendron et j'ai 2 remarques:

La propriété de la classe Public usf As Object ne sert à mon avis à rien et peut être supprimée (et donc aussi Set usf = uf)

Je me demande aussi pourquoi ctrl.GroupName = "".
Ça dézingue le GroupName natif de la CheckBox.
Alors oui, toutes ont le même GroupName = "" et donc ça fonctionne, mais originellement @NONO14 a mis GroupName = "1"

Puis-je proposer ce code (Edit: légèrement modifié) pour la classe cCheckBox ?

VB:

Public WithEvents ChkBoxChoix As msforms.CheckBox 'pour les checkbox Dim clchk() As New cCheckBox 'Fonction qui parcourt les ctrls du USF et s'il s'agit d'un checkbox, affecte les méthodes et propriétés définies dans cette classe Function initiateChk(uf) For Each ctrl In uf.Controls If TypeOf ctrl Is msforms.CheckBox Then If Not Len(ctrl.GroupName) = 0 Then i = i + 1: ReDim Preserve clchk(1 To i): Set clchk(i).ChkBoxChoix = ctrl End If End If Next ctrl End Function Private Sub ChkBoxChoix_click() CheckBoxExclusive End Sub

Hello

tu viens en fait de répondre à une question que je me posais depuis un moment (sans pour autant aller au bout de la reflexion puisque le code me donnait satisfaction)
la classe est issue originellement de patricktoulon
je l'ai adapté pour que le traitement du textbox soit différent selon son tag..
et donc oui.. la partie .tag (ou .groupname dans le cas présent) qui remet à "" est à supprimer..
Je pense que cette modif lors de l'initiate n'est valide que jusqu'à ce que le formulaire soit relancé..

vgendron · Hier à 12:06

NONO14 à dit:
Maintenant il n'y a plus que 2 boutons, entrée et sortie. L'agent doit pointer à chaque arrivée et à chaque départ. Il clique sur un des 2 boutons et l'heure système est prise en compte. Si besoin je peux remettre mon classeur.

hello
je pense qu'il faudrait que tu postes la dernière version de ton fichier avec le choix que tu as fait (optionbouton ou checkbox)

PS; le code que tu m'attribues vient de Dudu2..
moi, j'ai juste modifié en ajoutant une classe cChkbox pour faire un appel "unique" à la fonction de dudu2
ce qui évite tous les "chkboxX_Click"

ChTi160 · Hier à 12:13

Re
Oui un classeur avec dernière mouture et surtout explications de ce que tu as et ce que tu veux !
en fonction du Userform utilisé;
qui fait quoi et comment doit il le faire !

("Maintenant il n'y a plus que 2 boutons, entrée et sortie. L'agent doit pointer à chaque arrivée et à chaque départ. Il clique sur un des 2 boutons et l'heure système est prise en compte")

Jean marie

NONO14 · Hier à 12:25

Voici la dernière mouture. Tous les codes ne sont pas en place.

ChTi160 · Hier à 12:44

Re
Regarde ce que j'ai modifié .
Pour ne pas permettre l'effacement ou la modification dans le TextBox Txt_DateJour , j'ai remplacé celui ci par un Label : LBl_DateJour

VB:

Private Sub UserForm_Initialize()
With UfPointage
      .LBl_DateJour.Caption = Application.Proper(Format(Date, "dddd dd mmmm yyyy"))
End With
End Sub

Jean marie

vgendron · Hier à 13:11

Hello
pour simplifier les if checkbox1=true then...
j'ai ajouté une fonction "QuelCheckbox" qui te donne le numéro du checkbox selectionné
et dans le code du bouton valider, un select case

ChTi160 · Hier à 13:41

Re
dans cette procédure (simplification)
j'ai supprimé tout les "Unload Me" dans les If Me.CheckBoxX.Value=True

VB:

Private Sub Cmb_Valider_Click()
'Vérifier chaque case à cocher et exécuter une action spécifique
                     Unload Me '----> placé Ici
    If Me.CheckBox1.Value = True Then

à voir !
jean marie

NONO14 · Hier à 16:04

ChTi160 à dit:
Re
Regarde ce que j'ai modifié .
Pour ne pas permettre l'effacement ou la modification dans le TextBox Txt_DateJour , j'ai remplacé celui ci par un Label : LBl_DateJour

VB:

Private Sub UserForm_Initialize() With UfPointage .LBl_DateJour.Caption = Application.Proper(Format(Date, "dddd dd mmmm yyyy")) End With End Sub

Jean marie

Désolé d'avoir tardé à te répondre. Merci beaucoup, c'est plutôt une bonne idée.

NONO14 · Hier à 16:16

vgendron à dit:
Hello
pour simplifier les if checkbox1=true then...
j'ai ajouté une fonction "QuelCheckbox" qui te donne le numéro du checkbox selectionné
et dans le code du bouton valider, un select case

Bonjour vgendron,
Effectivement, cela fait plus propre.
Merci beaucoup, je n'ai plus qu'à continuer.

NONO14 · Hier à 16:17

ChTi160 à dit:
Re
dans cette procédure (simplification)
j'ai supprimé tout les "Unload Me" dans les If Me.CheckBoxX.Value=True

VB:

Private Sub Cmb_Valider_Click() 'Vérifier chaque case à cocher et exécuter une action spécifique Unload Me '----> placé Ici If Me.CheckBox1.Value = True Then

à voir !
jean marie

Merci pour ton code, mais ça ne fonctionne pas. Si je mets Unload me là où tu as proposé de le mettre, le reste du code ne s'exécute pas.

NONO14 · Hier à 16:18

vgendron à dit:
hello
je pense qu'il faudrait que tu postes la dernière version de ton fichier avec le choix que tu as fait (optionbouton ou checkbox)

PS; le code que tu m'attribues vient de Dudu2..
moi, j'ai juste modifié en ajoutant une classe cChkbox pour faire un appel "unique" à la fonction de dudu2
ce qui évite tous les "chkboxX_Click"

Toutes mes excuses à Dudu2 pour cette méprise.

vgendron · Hier à 16:25

le (ou les) unload me doivent intervenir AVANT l'affichage du formulaire GestTemps car tu l'affiches en modal

si dans ma proposition avec select case, tu es sur qu'il n'y a pas de elsecase ET que dans TOUS les cases, tu as besoin de fermer le formulaire, alors, tu peux mettre un "unload me" unique AVANT le select case

Staple1600 · Hier à 16:26

Bonjour le fil

[aparté en passant]
@NONO14
Juste en passant, quand tu y penseras, fais moi signe dans ton autre fil
(on est bientôt dimanche )
Cette fois, je suis plus explicite que l'autre jour
[/aparté en passant]

NONO14 · Hier à 17:19

Staple1600 à dit:
Bonjour le fil

[aparté en passant]
@NONO14
Juste en passant, quand tu y penseras, fais moi signe dans ton autre fil
(on est bientôt dimanche )
Cette fois, je suis plus explicite que l'autre jour
[/aparté en passant]

Je viens de répondre à ta proposition.
Encore mille excuses

NONO14 · Hier à 17:21

vgendron à dit:
le (ou les) unload me doivent intervenir AVANT l'affichage du formulaire GestTemps car tu l'affiches en modal

si dans ma proposition avec select case, tu es sur qu'il n'y a pas de elsecase ET que dans TOUS les cases, tu as besoin de fermer le formulaire, alors, tu peux mettre un "unload me" unique AVANT le select case

J'ai essayé, mais ça ne déclenche pas le reste de la procédure.

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

NONO14

XLDnaute Occasionnel

vgendron

vgendron

XLDnaute Barbatruc

vgendron

XLDnaute Barbatruc

ChTi160

XLDnaute Barbatruc

NONO14

XLDnaute Occasionnel

Pièces jointes

ChTi160

XLDnaute Barbatruc

Pièces jointes

vgendron

XLDnaute Barbatruc

Pièces jointes

ChTi160

XLDnaute Barbatruc

NONO14

XLDnaute Occasionnel

NONO14

XLDnaute Occasionnel

NONO14

XLDnaute Occasionnel

NONO14

XLDnaute Occasionnel

vgendron

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

NONO14

XLDnaute Occasionnel

NONO14

XLDnaute Occasionnel

Discussions similaires