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

Créer une discussion
Répondre
  • Initiateur de la discussion Initiateur de la discussion NONO14
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
N

NONO14

XLDnaute Impliqué
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
 
Trier par date Trier par votes
Bonsoir

@NONO14
J'arrive surement après la bataille
Je n'ai lu que le code VBA de ton premier message
En le modifiant comme ci-dessous
VB: 
Private Sub Chk_1_Click()
Dim ctrl As Control
        For Each ctrl In Me.Controls
            If TypeName(ctrl) = "CheckBox" Then
            If Not ctrl.Name Like "Chk_1" Then
                ctrl.Enabled = Chk_1.Value
            End If
            End If
        Next ctrl
End Sub
On obtient ce tu souhaites, non ?
NONO14 à dit:
ce code qui permet de désactiver toutes les CheckBox de mon formulaire si il y en a une de cochée
Cliquez pour agrandir...
 
Vote positif 0 Vote négatif
Re
ce que j'ai mis pour que ça fonctionne Lol
VB: 
Private Sub Cmb_Valider_Click()
'Vérifier chaque case à cocher et exécuter une action spécifique
                 Indx = QuelChkBx '---->Ici
                   Unload Me
    Select Case Indx'---->Ici
    Case 1
'        Unload Me
        UfGestTemps.Show (0)           
        With UfGestTemps
            .MultiPage1.Pages(0).Enabled = True
            .MultiPage1.Pages(1).Enabled = False
            .MultiPage1.Pages(2).Enabled = False
            .MultiPage1.Pages(0).Txt_Nom.SetFocus
            .Cbx_Salarié.Visible = False
            .Label1.Visible = False
        End With   
    Case 2
'        Unload Me
        UfGestTemps.Show (0)           
        With UfGestTemps
            .MultiPage1.Pages(0).Enabled = False
            .MultiPage1.Pages(1).Enabled = True
            .MultiPage1.Pages(2).Enabled = False
            .Cbx_Salarié.SetFocus
        End With
    Case 3
'        Unload Me
        UfGestTemps.Show (0)           
        With UfGestTemps
            .MultiPage1.Pages(0).Enabled = True
            .MultiPage1.Pages(1).Enabled = False
            .MultiPage1.Pages(2).Enabled = False
            .Cbx_Salarié.SetFocus
        End With  
    Case 4
'        Unload Me
        UfPointage.Show (0)
        With UfPointage
            .Txt_Noms.Enabled = False
            .Txt_Code.SetFocus
        End With    
    Case 5
'        Unload Me
        UfGestTemps.Show (0)
        With UfGestTemps
            .MultiPage1.Pages(0).Enabled = False
            .MultiPage1.Pages(1).Enabled = True
            .MultiPage1.Pages(2).Enabled = False
            .Cbx_Salarié.SetFocus
        End With   
    Case 6
'        Unload Me
        Sheets("Liste_agents").Activate
        DeProtege ("Liste_agents")   
    Case 7
'        Unload Me
        UfGestTemps.Show (0)
        With UfGestTemps
            .MultiPage1.Pages(0).Enabled = False
            .MultiPage1.Pages(1).Enabled = False
            .MultiPage1.Pages(2).Enabled = True
            .Cbx_Salarié.SetFocus
        End With 
    Case 8
'        Unload Me
        CopierColler       
    Case 9
'        Unload Me
        SauvegarderPointages   
    Case Else
        Exit Sub
    End Select   
End Sub
Public Function QuelChkBx() As Byte '---->Ici
    For i = 1 To 9
        If UfMenusAdmin.Controls("CheckBox" & i) Then
            QuelChkBx = i
            Exit For
        End If
    Next i
End Function
Jean marie
 
Dernière édition:
Vote positif 0 Vote négatif
Staple1600 à dit:
Bonsoir

@NONO14
J'arrive surement après la bataille
Je n'ai lu que le code VBA de ton premier message
En le modifiant comme ci-dessous
VB: 
Private Sub Chk_1_Click()
Dim ctrl As Control
        For Each ctrl In Me.Controls
            If TypeName(ctrl) = "CheckBox" Then
            If Not ctrl.Name Like "Chk_1" Then
                ctrl.Enabled = Chk_1.Value
            End If
            End If
        Next ctrl
End Sub
On obtient ce tu souhaites, non ?
Cliquez pour agrandir...
Bonjour Staple1600,
Merci pour ton code, mais la solution m'a déjà était proposée. Cependant, je le garde sous le coude car il y a d'autres projets dans les tiroirs.
 
Vote positif 0 Vote négatif
ChTi160 à dit:
Re
ce que j'ai mis pour que ça fonctionne Lol
VB: 
Private Sub Cmb_Valider_Click()
'Vérifier chaque case à cocher et exécuter une action spécifique
                 Indx = QuelChkBx '---->Ici
                   Unload Me
    Select Case Indx'---->Ici
    Case 1
'        Unload Me
        UfGestTemps.Show (0)          
        With UfGestTemps
            .MultiPage1.Pages(0).Enabled = True
            .MultiPage1.Pages(1).Enabled = False
            .MultiPage1.Pages(2).Enabled = False
            .MultiPage1.Pages(0).Txt_Nom.SetFocus
            .Cbx_Salarié.Visible = False
            .Label1.Visible = False
        End With  
    Case 2
'        Unload Me
        UfGestTemps.Show (0)          
        With UfGestTemps
            .MultiPage1.Pages(0).Enabled = False
            .MultiPage1.Pages(1).Enabled = True
            .MultiPage1.Pages(2).Enabled = False
            .Cbx_Salarié.SetFocus
        End With
    Case 3
'        Unload Me
        UfGestTemps.Show (0)          
        With UfGestTemps
            .MultiPage1.Pages(0).Enabled = True
            .MultiPage1.Pages(1).Enabled = False
            .MultiPage1.Pages(2).Enabled = False
            .Cbx_Salarié.SetFocus
        End With 
    Case 4
'        Unload Me
        UfPointage.Show (0)
        With UfPointage
            .Txt_Noms.Enabled = False
            .Txt_Code.SetFocus
        End With   
    Case 5
'        Unload Me
        UfGestTemps.Show (0)
        With UfGestTemps
            .MultiPage1.Pages(0).Enabled = False
            .MultiPage1.Pages(1).Enabled = True
            .MultiPage1.Pages(2).Enabled = False
            .Cbx_Salarié.SetFocus
        End With  
    Case 6
'        Unload Me
        Sheets("Liste_agents").Activate
        DeProtege ("Liste_agents")  
    Case 7
'        Unload Me
        UfGestTemps.Show (0)
        With UfGestTemps
            .MultiPage1.Pages(0).Enabled = False
            .MultiPage1.Pages(1).Enabled = False
            .MultiPage1.Pages(2).Enabled = True
            .Cbx_Salarié.SetFocus
        End With
    Case 8
'        Unload Me
        CopierColler      
    Case 9
'        Unload Me
        SauvegarderPointages  
    Case Else
        Exit Sub
    End Select  
End Sub
Public Function QuelChkBx() As Byte '---->Ici
    For i = 1 To 9
        If UfMenusAdmin.Controls("CheckBox" & i) Then
            QuelChkBx = i
            Exit For
        End If
    Next i
End Function
Jean marie
Cliquez pour agrandir...
Bonjour jean marie
Merci beaucoup, ça fonctionne. Je vais maintenant m'atteler à la suite.
 
Vote positif 0 Vote négatif
ChTi160 à dit:
Bonjour le Fil
Ou trouves tu la variable ?

Bonne journée
Jean marie
Cliquez pour agrandir...
Bonjour
il faut aller sur le bon fil...
excel-downloads.com

Microsoft 365 - Code fonction pour création code aléatoire

Bonjour à toutes et à tous, Comment à partir de cette fonction, créée par patricktoulon que je remercie au passage, peut-on placer les chiffres en premiers et les lettres à la suite, pour former par exemple 123abc. Ce code viendra s'ajouter au 3 premières lettres du Nom de la TextBox1 comme...
excel-downloads.com excel-downloads.com
 
Vote positif 0 Vote négatif
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

N
  • Question Question
Microsoft 365 appel des sous-routine
Réponses
3
Affichages
251
Dranreb
Dranreb
N
  • Résolu(e)
Microsoft 365 Recherche dans un tableau structuré à partir d'une TextBox
Réponses
11
Affichages
416
NONO14
N
B
  • Question Question
XL 2019 Dans une macro de démarrage de fichier masquer le code par des Astérix ou point
Réponses
3
Affichages
114
sylvanu
sylvanu
N
  • Résolu(e)
Microsoft 365 Transfère de données d'un Userform vers un tableau structuré d'une feuille de calcul
Réponses
4
Affichages
303
NONO14
N
thunder23
  • Résolu(e)
XL 2021 Bug dans code vba
Réponses
8
Affichages
140
thunder23
thunder23
A
  • Question Question
Microsoft 365 Macro mal optimisé ou pc peu puissant ?
Réponses
6
Affichages
134
Marc Vanlindt
M
cathodique
  • Résolu(e)
XL 2010 Joindre Caption Case à cocher
Réponses
4
Affichages
512
cathodique
cathodique
D
  • Résolu(e)
Microsoft 365 VBA copier cellule, conserver la copie tout en effaçant contenu
Réponses
11
Affichages
123
dacunha
D
L
  • Question Question
XL 2019 checkbox cochée alors date apparait dans listbox
Réponses
7
Affichages
508
Oneida
Oneida
oguruma
EXCEL :: VBA :: Activer - Désactiver les filtres dans un tableau en plage d'adresses ou dans un tableau structuré
Réponses
0
Affichages
76
oguruma
oguruma
T
  • Résolu(e)
XL 2019 Filtrer certains champs au démarrage avec vba
2
Réponses
15
Affichages
233
telemarrk
T
treza88
  • Question Question
Microsoft 365 Problème désactivation la MAJ en arrière plan OLEDBConnection
Réponses
1
Affichages
211
treza88
treza88
P
  • Résolu(e)
Microsoft 365 Exporte format d'impression à d'autres onglet
Réponses
3
Affichages
349
PatrickNyon
P
Nicolas JACQUIN
  • Question Question
XL 2021 Optimisation code pour affichage ligne et colonne
Réponses
14
Affichages
767
patricktoulon
patricktoulon
lynyrd
  • Question Question
XL 2019 code pour tous les disques
Réponses
3
Affichages
612
AtTheOne
AtTheOne
cathodique
  • Résolu(e)
XL 2010 Userform plein écran sans barre de titre
Réponses
7
Affichages
610
cathodique
cathodique
A
  • Question Question
insertion d'une ligne automatique dans un tableau excel.
Réponses
1
Affichages
348
sylvanu
sylvanu
DenisHen
  • Question Question
XL 2021 Déplacer un saut de page (manuel ou pas)
Réponses
4
Affichages
245
vgendron
vgendron
oguruma
EXCEL :: VBA :: PIVOTTABLE :: PIVOTCACHE :: Nettoyer le cache des TCD
Réponses
0
Affichages
37
oguruma
oguruma
chaelie2015
  • Question Question
XL 2013 Réduire un code
Réponses
0
Affichages
547
chaelie2015
chaelie2015
Retour