Discussion :

[Loukassit0]

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.

[jfontaine]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Loukassit0]

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