Définir une variable correspondant à un CheckBox

Bonsoir,
Aujourd'hui, j'ai rencontré une nouvelle difficulté.
J'ai créé un UserForm contenant 33 Checkboxs.
Je souhaiterai faire apparaitre dans une cellule l'ensemble des Captions des caches cochées.

(Mes mathématiques sont un peu lointaines mais il me semble que j'ai donc 33!^33 combinaisons possibles). Dans tous les cas, je préfèrerai éviter de poser des millions de IF :lol:

J'ai donc imaginé incrémenter une cellule avec une boucle for incrémentant une variable n qui se mettrait à la fin du mot "Checkbox"
Soit avoir un CheckBoxn qui prendrait les valeurs Checkbox1, Checkbox2...etc

Code:

---

1 2 3 4 5 6 7 8 9 10

Dim CheckBoxn As Variant Dim n As Integer CheckBoxn = "CheckBox" & n For n = 1 To 33 If CheckBoxn.Value = True Then ThisWorkbook.Sheets("Tableau de suivi des VT").Select Range("F2") = Range("F2").Value & Checkboxn.Caption End If Next n

---

Le hic est que cela ne fontionne pas. Le programme ne semble pas comprendre le mon CheckBoxn et bug sur la ligne en gras.

Si quelqu'un a une idée, je suis tout ouïe.
D'autant que je souhaiterai utiliser cet astuce également pour des ComboBoxs.

Bonjour,

Dans ton code, CheckBoxn prend le type String et ne peut être utilisé comme si c'était un type Checkbox

Ci dessous un exemple de code qui boucle sur tous les objets de la Userform, vérifie le type, et si Checkbox alors Ajoute le nom dans F2

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Dim ctrl As Control   For Each ctrl In Me.Controls If TypeOf ctrl Is msforms.CheckBox Then If ctrl.Value = True Then With ThisWorkbook.Sheets("Tableau de suivi des VT") .Range("F2").Value = .Range("F2").Value & ctrl.Caption End With End If End If Next

---

Merci, j'ai pu trouver une solution grace à votre astuce.