Discussion :

[Yamiral]

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,

[GADENSEB]

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 :

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

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

[Invité]

Bonjour,

Code :

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

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

[Yamiral]

Merci à vous !

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


Cordialement,