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

Staple1600 · Hier à 10:05

Re

@Dudu2
Avec 365, les checkbox sur feuille sont plus esthétiques, non ?
(voir message#71)

NONO14 · Hier à 10:15

Dudu2 à dit:
@NONO14, si tu as un code qui fonctionne avec des CheckBoxes qui te donnent la liberté d'avoir des cadres ou pas, pourquoi tout changer pour passer sur des OptionButtons ? D'ailleurs je ne comprends pas pourquoi tu as supprimé ces cadres. C'était plus "design" avec.
En plus les OptionButtons c'est moche. Ce petit cercle ridicule avec son petit point ridicule...Regarde la pièce jointe 1204541
Les CheckBoxes, quelle élégance ! Regarde la pièce jointe 1204542

D'ailleurs, si j'ai fait une ressource qui permet de gérer les CheckBoxes facilement, c'est principalement pour des raisons esthétiques. Regarde la pièce jointe 1204543

Bonjour Dudu2
Merci pour tes encouragements. J'ai remis les cadres sur mon dernier fichier. Pour moi, l'esthétique est importante lorsque je présente un travail, c'est un peu comme un plat, si il est joli et attirant, on a envi d'y gouter.

Dudu2 · Hier à 10:16

@Staple1600,
Ah oui, en effet ! Tu vois, même Excel a trouvé qu'il fallait améliorer la forme des OptionButtons.
Mais quand tu dis Microsoft 365, ça veut dire que c'est la toute dernière version d'Excel, 2021, correct ?

NONO14 · Hier à 10:17

Staple1600 à dit:
Re

@Dudu2
Avec 365, les checkbox sur feuille sont plus esthétiques, non ?
(voir message#71)

Bonjour Staple1600
Sauf que moi, j'ai l'obilgation de travailler avec des formulaires, on doit intervenir le moins possible directement sur les feuilles

NONO14 · Hier à 10:19

Dudu2 à dit:
@Staple1600,
Ah oui, en effet ! Tu vois, même Excel a trouvé qu'il fallait améliorer la forme des OptionButtons.
Mais quand tu dis Microsoft 365, ça veut dire que c'est la toute dernière version d'Excel, 2021, correct ?

Version que je n'ai pas. Je ne peux même pas changer ma version de Windows avec mon vieux bourrin, il a douze ans cette année. Je suis en Windows10

Dudu2 · Hier à 10:20

Ah parce que ces trucs c'est pas des Controls de UserForm ou Active X ?

Staple1600 · Hier à 10:28

Re

@NONO14

Sauf que moi, j'ai l'obilgation de travailler avec des formulaires, on doit intervenir le moins possible directement sur les feuilles

Ca va à l'encontre du principe KISS
Mais c'est toi qui t'obliges alors, je te laisse repartir dans tes formulaires

@Dudu2
Non Office 365, c'est la version par abonnement
Celle qui intègre de nouvelles fonctionnalités au fil des mises à jour
Voir par exemple le fil de @RACHID, et le mien dans le Salon

NONO14 · Hier à 10:34

Dudu2 à dit:
Ah parce que ces trucs c'est pas des Controls de UserForm ou Active X ?
Regarde la pièce jointe 1204544

Oui, oui, désolé par encore réveillé

NONO14 · Hier à 10:36

Staple1600 à dit:
Re

@NONO14

Ca va à l'encontre du principe KISS
Mais c'est toi qui t'obliges alors, je te laisse repartir dans tes formulaires

@Dudu2
Non Office 365, c'est la version par abonnement
Celle qui intègre de nouvelles fonctionnalités au fil des mises à jour
Voir par exemple le fil de @RACHID, et le mien dans le Salon

Non ce n'est pas moi qui m'oblige, j'ai des chefs au-dessus de moi, je ne fais malheureusement pas ce que je veux. Effectivement, je suis en abonnement. Cependant, mon PC refuse la mise à jour de Windows11.

Dudu2 · Hier à 10:39

@Staple1600,
Ok, vu ! Donc l'utilisateur doit être aligné pour bénéficier aussi des dernières fonctionnalités.

Dudu2 · Hier à 10:43

Je ne crois pas que Windows 11 soit un progrès pour les utilisateurs. Perso, comme beaucoup, je préfère rester sur Windows 10 même si mon Desktop permet la migration Windows 11.

NONO14 · Hier à 11:04

Dudu2 à dit:
Je ne crois pas que Windows 11 soit un progrès pour les utilisateurs. Perso, comme beaucoup, je préfère rester sur Windows 10 même si mon Desktop permet la migration Windows 11.

Oui apparemment il ne fait pas l'unanimité.

Dudu2 · Hier à 11:14

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

ChTi160 · Hier à 11:47

Re
Tu dis :

Merci beaucoup pour ton exemple très intéressant. Cependant, dans mon cas, la saisie doit être automatique lors du clic, on récupère l'heure système, il n'est pas question de saisie.

La vidéo #72 (que j'ai d'ailleurs supprimée)
Était plus pour le traitement des dates que la saisie, c'était pour utiliser un exemple.
Tu ne m'as pas dit , lorsque tu cliques sur une des dates (OptionButton ou autre , moi c'était des commandButton !) c'est pourquoi faire? Juste une sélection ?
Question :
La personne doit donc venir plusieurs fois sur l'ordi pour pointer ?
A chaque débuts et Fins de périodes travaillées ?
Peux tu m'expliquer?
Bonne journée
Jean marie

NONO14 · Hier à 12:04

ChTi160 à dit:
Re
Tu dis :

La vidéo #72 (que j'ai d'ailleurs supprimée)
Était plus pour le traitement des dates que la saisie, c'était pour utiliser un exemple.
Tu ne m'as pas dit , lorsque tu cliques sur une des dates (OptionButton ou autre , moi c'était des commandButton !) c'est pourquoi faire? Juste une sélection ?
Question :
La personne doit donc venir plusieurs fois sur l'ordi pour pointer ?
A chaque débuts et Fins de périodes travaillées ?
Peux tu m'expliquer?
Bonne journée
Jean marie

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.

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

NONO14

XLDnaute Occasionnel

vgendron

Staple1600

XLDnaute Barbatruc

NONO14

XLDnaute Occasionnel

Dudu2

XLDnaute Barbatruc

NONO14

XLDnaute Occasionnel

NONO14

XLDnaute Occasionnel

Dudu2

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

NONO14

XLDnaute Occasionnel

NONO14

XLDnaute Occasionnel

Dudu2

XLDnaute Barbatruc

Dudu2

XLDnaute Barbatruc

NONO14

XLDnaute Occasionnel

Dudu2

XLDnaute Barbatruc

ChTi160

XLDnaute Barbatruc

NONO14

XLDnaute Occasionnel

Discussions similaires