Tout cocher/décocher les cases à cocher.
Résolu/Fermé
dadou
-
Modifié par pijaku le 21/07/2014 à 16:05
Patrice33740 Messages postés 8556 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 2 mars 2023 - 21 juil. 2014 à 20:36
Patrice33740 Messages postés 8556 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 2 mars 2023 - 21 juil. 2014 à 20:36
3 réponses
Patrice33740
Messages postés
8556
Date d'inscription
dimanche 13 juin 2010
Statut
Membre
Dernière intervention
2 mars 2023
1 775
21 juil. 2014 à 11:53
21 juil. 2014 à 11:53
Bonjour,
Essaies (en adaptant le nom du chekbox maître) :
Essaies (en adaptant le nom du chekbox maître) :
Sub coche_decoche_tout() Dim chk As Shape Set chk = Shapes("CHECK BOX 1") For Each coche In ActiveSheet.Shapes If coche.Name Like "Check*" Then coche.ControlFormat.Value = chk.ControlFormat.Value End If Next coche End Sub
Ca ne marche pas ...
Patrice33740
Messages postés
8556
Date d'inscription
dimanche 13 juin 2010
Statut
Membre
Dernière intervention
2 mars 2023
1 775
21 juil. 2014 à 12:14
21 juil. 2014 à 12:14
Il faut affecter la macro à la case à cocher maître (de formulaire, pas activeX).
Patrice33740
Messages postés
8556
Date d'inscription
dimanche 13 juin 2010
Statut
Membre
Dernière intervention
2 mars 2023
1 775
21 juil. 2014 à 12:25
21 juil. 2014 à 12:25
Un exemple :
https://www.cjoint.com/c/DGvmxL3YiqF
https://www.cjoint.com/c/DGvmxL3YiqF
Patrice33740
Messages postés
8556
Date d'inscription
dimanche 13 juin 2010
Statut
Membre
Dernière intervention
2 mars 2023
1 775
21 juil. 2014 à 12:30
21 juil. 2014 à 12:30
Si ton code n'est pas dans le module de feuille mais dans un module ordinaire, il faut écrire :
Set chk = ActiveSheet.Shapes("CHECK BOX 1")
J'ai trouver ce code pour cocher toutes mes cases :
Comment faire pour que ce soit l'inverse pour décocher la même case sans en créer une nouvelle ?
ps: l'autre formule avec ne marche pas je sais pas pourquoi..
Sub Caseàcocher105_Clic() [A158:A250] = True End Sub
Comment faire pour que ce soit l'inverse pour décocher la même case sans en créer une nouvelle ?
ps: l'autre formule avec ne marche pas je sais pas pourquoi..
pijaku
Messages postés
12263
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
4 janvier 2024
2 743
21 juil. 2014 à 16:13
21 juil. 2014 à 16:13
Salut,
Supposons que ta case à cocher qui coche tout et décoche tout soit liée à la cellule B1, ton code devient :
Supposons que ta case à cocher qui coche tout et décoche tout soit liée à la cellule B1, ton code devient :
Sub Caseàcocher105_Clic() [A158:A250] = [B1] End Sub
Patrice33740
Messages postés
8556
Date d'inscription
dimanche 13 juin 2010
Statut
Membre
Dernière intervention
2 mars 2023
1 775
21 juil. 2014 à 20:36
21 juil. 2014 à 20:36
La principale différence c'est la gestion événementielle.