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

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 : Sélectionner tout - Visualiser dans une fenêtre à part
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.