Boucle sur Checkbox dans un Userform (VBA)

[Daem]

Bonjour à tous =)

Alors voila, j'ai un petit problème avec les Checkbox en VBA, j'ai cherché un peu partout sur le net.. j'ai pas vraiment trouvé ce qui me convenait (ou du moins tout ce que j'ai essayé.. n'a pas marché)

Bref, j'explique:
-j'ai un : Userform1
-dedans j'ai : frame1
-Et dans le frame j'ai : une quantité de checkbox (on va supposer 20)
-je déclare une variable X (string)

donc je voudrais faire une boucle qui parcourt tous les checkbox du frame et qui écrit les 'captions' des checkbox (si la valeur est 'true') dans la variable (en séparant par un espace ou autre.. ce n'est pas vraiment le souci)

voici ce que j'ai essayé de faire, et qui bug évidemment :

Dim x as string
x = ""
For Each CheckBox In userform1.Frame1
If CheckBox.Value = True Then
x= x + " " + CheckBox.Caption
End If
Next CheckBox


Resultat: Ca BUG! Donc je pense que je suis complètement à coté de la plaque x)

SVP si quelqu'un a une solution.. j'en serais vraiment reconnaissant.

Cordialement.
Daem.

 

[Paritec]

Re : Boucle sur Checkbox dans un Userform (VBA)

bonjour Daem le forum,

Dim x as string,i&
x = ""
with userform1.frame1
  For i=1 to 20
    If .controls("CheckBox" & i)Then
    x = x & " " & .controls("CheckBox" & i).Caption
    End If
   Next i
end with

a+
Papou

 

[Daem]

Re : Boucle sur Checkbox dans un Userform (VBA)

Re!
Merci beaucoup, ta solution marche et me va très bien !!
Cdt.

 

[Paritec]

Re : Boucle sur Checkbox dans un Userform (VBA)

Re daem le forum
content que cela te convienne
a+
papou