1 seule VBA Excel pour plusieurs CheckBox

Bonjour,

Je fais un peu de VBA, et je trouves toujours ce que je veux faire grâce aux forums. Mais pas aujourd'hui, j'espère trouver de l'aide par ce tout premier post :

Sur ma feuille excel, j'ai 4 CheckBox, qui correspondent chacun à un "Kit" → CheckBox1 = Kit1, CheckBox2 = Kit2, etc...
J'aimerais que si je coche "Kit1", il me fasse apparaitre des lignes en lien avec le Kit1, et que si je le décoche, que ça le fasse disparaitre.
Pour ça, c'est bon, j'ai le code suivant :

Private Sub CheckButton1_Click() Application.ScreenUpdating = False 'Pour accélérer la procédure Dim Kit1 As Range 'CheckButton1 = J'ai renommé les CheckBox par "CheckButton" Dim Kit2 As Range 'CheckButton2 Dim Kit3 As Range 'CheckButton3 Dim Kit4 As Range 'CheckButton4 Set Kit1 = Rows("11:19") 'je définis les lignes associées au kit Set Kit2 = Rows("20:28") Set Kit3 = Rows("29:36") Set Kit4 = Rows("38:43") If CheckButton1 Then Kit1.Hidden = False Else Kit1.Hidden = True End If If CheckButton2 Then Kit2.Hidden = False Else Kit2.Hidden = True End If 'Faut répéter le même petit code pout Kit3 et Kit4 Application.ScreenUpdating = True End Sub

J'ai 2 problèmes :
- Ce type de code (le Private Sub CheckButton1 () ) ne fonctionne que pour le CheckBox1. Si je coche après CheckBox2, il ne se passe rien...
- J'aimerais créer une boucle pour anticiper l'arrivée de nouveau kit, j'avais pensé au code ci-dessous, mais il ne fonctionne pas...

Private Sub CheckButton_Click() Application.ScreenUpdating = False 'Pour accélérer la procédure Dim i As Integer Dim Kit1 As Range 'CheckButton1 = J'ai renommé les CheckBox par "CheckButton" Dim Kit2 As Range 'CheckButton2 Dim Kit3 As Range 'CheckButton3 Dim Kit4 As Range 'CheckButton4 Set Kit1 = Rows("11:19") 'je définis les lignes associées au kit Set Kit2 = Rows("20:28") Set Kit3 = Rows("29:36") Set Kit4 = Rows("38:43") For i = 1 To 4 If Controls("CheckButton" & i) Then 'si coché "Kit" & i.Hidden = False 'le tableau apparait Else "Kit" & i.Hidden = True 'le tableau disparait End If Next Application.ScreenUpdating = True End Sub

J'avais trouvé cette boucle dans la partie "LES CASES A COCHER (CHECKBOX)" du site : https://excel-pratique.com/fr/vba/controles
Mais ça ne marche pas car :
- Il considère le "Private Sub CheckButton_Click ()" comme "(Générale)"
- Et il n'apprécie pas les deux lignes : Kit & i.Hidden → si je met des parenthèses, des guillemets, les deux ou aucun, il me dit "Erreur de compilation"

J'aimerai que mon code vba :
- fonctionne pour toutes mes CheckBox,
- faire fonctionner ma boucle

Pouvez-vous m'aider ?

Pour rappel :
Les CheckBox ne sont pas dans un UserForm, ils sont directement dans des cellules de ma feuille Excel

Merci d'avance

Bonjour,
Pour pouvoir intercepter l'événement click de n'importe quel CheckBox présent dans une feuille, il faut passer par un module de classe.
Il y a lieu d'invoquer la procédure InitializeCheckBox depuis un événement (CommandButton ou Workbook.Open ou encore Worksheet.Activate

Code de la procédure à placer dans un module de classe nommé clsCheckBoxEvents

Code:

---

1 2 3 4 5 6 7

Option Explicit Public WithEvents chk As MSForms.CheckBox ' Capture l'événement Click de chaque CheckBox Private Sub chk_Click() ' Appelle la procédure en lui passant le CheckBox qui a déclenché l'événement CheckBoxClicHandler chk End Sub

---

Procédures à placer dans un ou deux modules Standard
La première procédure est celle qui est appelée depuis le module de classe et la deuxième procédure est l'initialisation

Code:

---

1 2 3 4

' Procédure appelée lors d'un clic sur un CheckBox Sub CheckBoxClicHandler(chk As MSForms.CheckBox) MsgBox "CheckBox cliqué : " & chk.Name, vbInformation, "Événement Intercepté" End Sub

---

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

Sub InitializeCheckBox() Dim sht As Worksheet Dim shp As Shape Dim objCheck As clsCheckBoxEvents ' Initialise la collection Set colCheckBox = New Collection Set sht = ActiveSheet ' A modifier si nécessaire ' Parcoure toutes les formes de la feuille For Each shp In sht.Shapes ' Vérifier si la forme est un CheckBox If shp.Type = msoOLEControlObject Then If TypeOf shp.OLEFormat.Object.Object Is MSForms.CheckBox Then ' Crée une nouvelle instance du module de classe Set objCheck = New clsCheckBoxEvents ' Associe le CheckBox à l'objet de classe Set objCheck.chk = shp.OLEFormat.Object.Object ' Ajoute l'objet à la collection pour éviter sa destruction colCheckBox.Add objCheck End If End If Next Set sht = Nothing: Set shp = Nothing: Set objCheck = Nothing End Sub

---

Explications :

• Module de classe (clsCheckBoxEvents) : Intercepte l'événement Click de chaque CheckBox.
• Module standard :
  InitialiserCheckBox : Ajoute tous les CheckBox dans une collection pour éviter la perte de référence.
  CheckBoxClicHandler : Reçoit le CheckBox cliqué en paramètre.

Attention : Ligne 7 de la procédure InitializeCheckBox j'assigne l'objet ActiveSheet à la variable objet sht parce-que j'ai invoqué la procédure depuis la procédure événementielle Worksheet_Activate. Il y a donc lieu d'effectuer la modification si la procédure est invoquée depuis l'ouverture du classeur (sauf si l'on active la bonne feuille à l'ouverture)

Code:

---

1 2 3

Private Sub Worksheet_Activate() mMain.InitializeCheckBox End Sub

---

Bonjour,

Je souhaitais tout d'abord vous remercier pour la rapidité de votre réponse.
Malheureusement pour moi, je trouve cela bien compliqué, je ne suis pas sûre de bien comprendre les différents codes. :(

Si je décompose les codes, je comprends que :
Avec Option Explicit dans le module de classe, je déclare que chk sont des CheckBox. Puis avec Private Sub, je déclenche l'action vba quand on clique sur les CheckBox.
Sur le module standards, le premier code m'ouvre un MsgBox quand on clique sur un CheckBox.
Et comme vous avez dit pour le code InitializeCheckBox, cela ajoute tous les CheckBox dans une collection.

J'ai copié/collé les codes tel quel :
Dans un module de classe : clsCheckBoxEvents
Dans un même module standards : CheckBoxClicHandler puis InitializeCheckBox
Mais il ne se passe rien quand je clique sur mes CheckBox...
De plus, je n'ai pas compris où je devais mettre la partie du code où je dis de faire apparaitre/disparaitre mes lignes. J'ai essayé :
- Dans le Private Sub chk_Click(), avant et après CheckBoxClicHandler chk,
- Dans Sub CheckBoxClicHandler(chk As MSForms.CheckBox), avant et après le MsgBox...

Bonjour,

Citation:

---

Si je décompose les codes, je comprends que :
Avec Option Explicit dans le module de classe, je déclare que chk sont des CheckBox.

---

Absolument pas. L'instruction Option Explicit qui doit être placée avant toute procédure au niveau du module force la déclaration explicite de toutes les variables dans ce module.
Pour éviter de devoir la taper à chaque fois que l'on insère un nouveau module, il y a lieu de cocher l'option "Déclaration obligatoire des variables" de l'onglet [Editeur] de la boite de dialogue "Options" (Outils/Options/ [Editeur])

Citation:

---

Sur le module standards, le premier code m'ouvre un MsgBox quand on clique sur un CheckBox.
Et comme vous avez dit pour le code InitializeCheckBox, cela ajoute tous les CheckBox dans une collection.

---

La procédure nommée CheckBoxClicHandler est une procédure événementielle qui se déclenche lorsque l'on clique sur n'importe quelle CheckBox. Pour l'exemple, j'ai utilisé la fonction MsgBox qui affiche le nom de l'objet sur lequel on a cliqué mais évidemment c'est là qu'il faut placer votre code qui affiche ou masque les lignes de la feuille.

Exemple qui correspond à ce que vous cherchez

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Sub CheckBoxClicHandler(chk As MSForms.CheckBox) Dim t As Variant Dim n As Byte ' Liste des numéros de lignes à traiter t = Array("10:19", "20:29", "30:34", "35:39") With chk ' Extraction du n° du CheckBox n = Val(Right(.Name, 1)) ' Affiche ou Masque les lignes Rows(t(n)).Hidden = Not .Value End With End Sub

---

Citation:

---

Mais il ne se passe rien quand je clique sur mes CheckBox...

---

Il y a lieu d'abord, comme je l'ai écrit, de lancer la procédure InitializeCheckBox soit à l'ouverture du classeur, soit à l'aide d'un CommandButton soit encore lors de la sélection de la feuille qui contient les CommandButton

Exemple à l'ouverture du classeur

Code:

---

1 2 3 4

Private Sub Workbook_Open() sht_Home.Activate ' Active la feuille des checkBox's InitializeCheckBox ' Initialise les CheckBox End Sub

---

Citation:

---

De plus, je n'ai pas compris où je devais mettre la partie du code où je dis de faire apparaitre/disparaitre mes lignes. J'ai essayé :
- Dans le Private Sub chk_Click(), avant et après CheckBoxClicHandler chk,
- Dans Sub CheckBoxClicHandler(chk As MSForms.CheckBox), avant et après le MsgBox...

---

Voir mes explications précédentes. Il est évident que la ligne avec MsgBox doit disparaître

Classeur joint
Dans le classeur joint, j'ai ajouté la ligne objCheck.chk.Value = True pour que tous les CheckBox soit cochés
L'initialisation se fait à l'ouverture du classeur

Super ça marche !
J'ai un peu mieux compris, merci beaucoup !

Cette méthode est un peu risquée, les checkbox peuvent se détacher le mode création est activé lors de l'ajout de nouveaux contrôles

Bonjour,

@Philippe Tulliez:
Si je puis me permettre, quitte à faire de l'objet, autant le faire jusqu'au bout:
1) Les variables membre d'une classe n'ont pas vocation à être publique (principe d'encapsulation).
2) Les fonctions prenant en charge les evennements générés par la case à cocher (checkbox) n'ont aucune raison d'être externalisées, et encore moins publique.

VBA ne propose ne permet d'écrire qu'un seul constructeur par classe (évènement initialise), on peut cependant écrire un pseudo-constructeur, et prendre en charge tous le processus d'instanciation / initialisation de la classe via une fonction (ou classe) "Factory".
Ce qui donne le code suivant:
Module de classe MyCheckBox:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

'// Classe: MyCheckbox Option Explicit   Public WithEvents mCheckbox As MSForms.CheckBox   '// Pseudo constructeur: Friend Sub Construct(ByRef checkBox As MsForms.CheckBox Set mCheckBox = checkBox End Sub   ' Capture l'événement Click de chaque CheckBox Private Sub mCheckBox _Click() ' Appelle la procédure en lui passant le CheckBox qui a déclenché l'événement CheckBoxClicHandler mCheckBox End Sub   Private Sub CheckBoxClicHandler(ByRef checkBox As MsForms.CheckBox) '// Faire quelque chose End Sub

---

Module Standard: Factory

Code:

---

1 2 3 4 5 6 7 8 9

'// Factory Option Explicit   Public Function Create_MyCheckBox(ByRef checkBox As MsForms.Checkbox) As MyCheckBox Dim Chk As MyCheckBox Set Chk = New MyCheckBox '// Instanciation de la classe Chk.Construct(checkBox) '// Initialisation (appel du pseudo constructeur) Set Create_MyCheckBox = Chk End Function

---

Utilisation dans le module du classeur (ou un module de feuille):

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Option Explicit   Private mMyCheckBoxs As Collection   Private Sub Workbook_Open() InitialiseCheckBoxes End Sub   Private Sub InitialiseCheckBoxes() Set mMyCheckBoxs = New Collection   '// Code de recherche des checkboxes mMyCheckBoxs.Add(Factory.Create_MyCheckBox(objCheck) '// -------------------------------------- End Sub

---

Au final, un peut plus de réflexion en amont et un peut plus de code à écrire, Mais:
Le code intéressant (celui du classeur) et plus court, plus clair, plus lisible, plus facile à comprendre.