Remplir une ListBox avec les captions de CheckBoxs

Bonjour le Forum!

Voila:

Dans une Userformverificacion2, j'ai 34 checkbox nomèes:

• Checkbox1
• Checkbox2
• ...
• Checkbox34

Je souhaiterai que dans un autre Userform (UserformImpresora), lorque je clique sur un bouton (CommandButton1), se charge la Listbox1 avec les captions des cases cochèes de Userformverification2.

J'ai trouvé des truc mais j'arrive pas à les combiner ensemble.

Avez vous une solution pour boucler les Checkbox sur une autre Userform?

Merci d'avance,

Bruno

Bonjour

Il y a des méthodes mais cela serait plus simple si tu fournis un fichier

Merci je viens juste d'y arriver

Private Sub CommandButton1_Click()

Dim Chk As Control

For Each Chk In UserFormVerificacion2.Controls
    If TypeOf Chk Is MSForms.CheckBox Then
     If Chk.Value = True Then ListBox1.AddItem Chk.Object.Caption
    End If
Next Chk

End Sub

Cdt, Bruno