Discussion :

[vbajenn]

Bonjour,

Je me permets de vous contacter car cela fait plusieurs jours que j'essaye de faire fonctionner ma macro en vain.

J' ai créé une userform dans laquelle j'ai inséré des checkbox.
Je souhaite que lorsque je clic sur le bouton ok le nom (ou caption) de toutes les checkbox vraies soient écritent les une sous les autres dans la colone 6 de mon tableau.


J'ai essayé d'utiliser la fonction de control afin de repérer toutes les chexbox vraies mais je ne parvient pas écrire leur nom dans le tableau.

Merci d'avance
Cordialement,

vbajenn

[Syphochaos]

Bonjour vbajenn.

Ton code serait le bienvenu si tu veux que les forumeurs expérimentés viennent t'aider.

Sypho.

[vbajenn]

Ok.
En ce qui concerne les checkbox, j'ai récupérer ce bout de code sur le forum.

Code :

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

1
2
3
4
5
6
7
8
Dim ctrl As Control, nom As String
 
For Each ctrl In Me.Controls
  nom = ctrl.Name
 If InStr(nom, "CheckBox") = 1 Then
MsgBox nom & " = " & ctrl.Value
End If
Next

Il fonctionne très bien. J'ai essayé plein de chose à partir de ça.

Code :

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

1
2
3
4
5
6
7
8
Dim i
For i = 2 to 9
i = 1 
Dim ctrl As Control, nom As String
 
For Each ctrl In Me.Controls
  nom = ctrl.Name
 If InStr(nom, "CheckBox") = 1 Then

?>>>>>>>> C' est à ce moment précis que je ne sais pas comment m'y prendre!!!

J'ai essayé :

Code :

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

1
2
3
If Checkbox9 = 1 Then
Cells (i, 6) = Checkbox9.Caption
End if

Et ça pour les 8 Checkbox mais je sens bien que ça ne correspond pas à mes attentes. Je pense que l'on doit pouvoir faire une boucle mais je ne sais pas laquelle.

Bref je galère!!!

[casefayere]

Bonjour,

Consultes ce tuto

http://silkyroad.developpez.com/VBA/...UserForm/#LI-B

[vbajenn]

Merci pour ton aide,

J'ai essayé de réutiliser la macro suivante :

Code :

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

1
2
3
4
5
Dim Ctrl As Control
 
For Each Ctrl In Me.Controls
    If TypeOf Ctrl Is MSForms.TextBox Then MsgBox Ctrl.Object.Value
Next Ctrl

et je l'ai remise à ma sauce (pour les checkbox) :

Code :

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

1
2
3
4
5
Dim Ctrl As Control
 
For Each Ctrl In Me.Controls
    If TypeOf Ctrl Is MSForms.CheckBox Then Cells(5, 6) = Ctrl.Object.Caption
Next Ctrl

Le nom (caption) d'une checkbox s'affiche!!!!! Mais uniquement celui de la dernière checkbox qu'elle soit vrai ou non.

J'y retravail!

jenn

[casefayere]

C'est normal car tu ne travailles que sur une cellule :

Code :

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

Cells(5, 6)

Code :

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

1
2
3
4
i = 2
For Each Ctrl In Me.Controls
      If TypeOf Ctrl Is MSForms.CheckBox And Ctrl = True Then Cells(i, 6) = Ctrl.Object.Caption : i = i +1
next ctrl