VBA - Gamme de cases à cocher dans un tableau

Question

J'ai un formulaire avec 13 cases à cocher. Je l'ai configuré de telle sorte que si la case est cochée, une cellule est marquée comme étant VRAIE ou FAUSSE.

Ce que j'essaie de faire, c'est d'exporter les données du formulaire dans un tableau. J'ai terminé tout le reste, mais je ne sais pas comment mieux saisir les valeurs des cases à cocher.

Plutôt que de faire cette instruction if pour toutes les cases à cocher

If CHECKBOX = TRUE Then
    CHECKBOX_VAL = string
End If

If CHECKBOX2 = TRUE Then
    CHECKBOX_VAL2 = string2
End If

table_object_row.Range(x,x).Value = CHECKBOX_VAL
table_object_row.Range(x,x).Value = CHECKBOX_VAL2

Comment puis-je exporter simplement les valeurs VRAIES de la case à cocher vers le tableau. Devrais-je utiliser un tableau pour stocker uniquement les valeurs vraies ?

Answer 1

Vous pouvez parcourir en boucle les contrôles de votre formulaire d'utilisateur, et si l'élément est de type CheckBox puis placez-les dans votre tableau, votre table, ou autre.

Dim ctl
For Each ctl In UserForm1.Controls  'the controls collection of your userform
    If TypeName(ctl) = "CheckBox" Then

        Debug.Print "The value of " & ctl.Name & " is " & ctl.Value
        '(do something with your values here)

    End If
Next ctl

---

Plus d'informations :

• Stack Overflow : Aperçu des différences entre les contrôles de formulaires et les contrôles ActiveX
• MSDN : Collection de contrôles (Microsoft Forms)
• ExcelEasy : Collection de contrôles
• ozgrid : Boucler sur les contrôles d'un formulaire utilisateur