[XL-2007] Remplir une ListBox avec les captions de CheckBoxs [Résolu]

[brunounours]

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

[Ormonth]

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

[brunounours]

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