VBA mystère - (Checkbox, userform et macro)

Bonjour à tous,

J'aimerais avoir une indication sur une problématique :

J'ai 40 Checkbox avec des nom différents,

je sais comment les interroger une à une (For Each Ctrl In me.Controls), ce que je n'arrive pas à trouver c'est comment écrire en VBA :
Si toutes les checkbox sont vide alors c'est vrai
sinon c'est faux.

Si vous avez des pistes, je me réjouirais de distribue des points :)

Cordialement,

Salut

J'ai fais un code un peu comme cela

Il faut que tu es TAGER toutes tes .Controls en fonction des colonnes de destination ---> A adapter

Code:

---

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

Dim c, x&   For Each c In Me.Controls If c.Tag <> "" Then x = c.Tag If IsDate(c.Value) Then FEUILLE2.Cells(LastLigne, x).Value = CDate(c.Value) Else FEUILLE2.Cells(LastLigne, x).Value = c.Value End If End If Next

---

Bonjour,

Code:

---

1 2 3 4 5 6 7 8

Private Sub UserForm_Click() Dim i As Long Dim Chk As Boolean For i = 0 To Me.Controls.Count - 1 If TypeName(Me.Controls(i)) = "CheckBox" Then Chk = Chk + Me.Controls(i).Value Next MsgBox Chk End Sub

---

Merci à vous !

C'est exactement ce que je cherchais, le coup de la boolean est génial !


Cordialement,