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,

dans un 1er temps, vois ceci :

I-B. Boucler sur les contrôles contenus dans la Forme


cordialement,

Didier

Bonjour,

un truc du genre :

Code:

---

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

Private Sub CommandButton1_Click() Dim monControl As Control Dim objUsf As UserForm   Set objUsf = usfBonRecpt For Each monControl In objUsf.Controls If TypeOf monControl Is MSForms.CheckBox Then If monControl.Value = True Then ListBox1.AddItem (monControl.Caption) End If End If Next Set objUsf = Nothing End Sub

---

Cordialement,

Ps : si le côté technique de la réponse = OK ou pas => pensez à cliquer sur les pouces et quand question résolue à la taguer résolue, et chaque action vous raporte des points

Didier

Merci je pense y etre arrivé

Code:

---

1 2 3 4 5 6 7 8 9 10 11

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