Discussion :

[amelyfred]

Bonjour à tous,
Voilà je vous expose mon problème.

Dans un fichier excel j'ai une macro qui ouvre une Userform.
Sur cette Userform, il y a 10 checkbox. Chaque checkbox est associé à une liste déroulante et un champ de texte.

Lorsque l'on clique sur le bouton valider de l'userform, je voudrais que si la checkbox est cocher les valeur de la listebox et de la zone de texte correspondantes soient écrite dans une cellule excel.

J'ai réussi à écrire un code du genre

Code :

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

1
2
3
if checkbox1.value = true then ...
if checkbox2.value = true then ...
if checkbox3.value = true then ...

....

N'y aurait-il pas moyen de faire plus simple avec une boucle du genre.

Code :

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

1
2
3
For i = 1 to 10 
 if checkboxi.value = true then...
Next i

Le problème est que je ne vois pas trop la synthaxe avec le i.

Merci d'avance pour vos réponses et vos idées

[babaothe]

Salut

En utilisant la collection Controls.

Code :

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

1
2
3
for i = 1 to 10
  if controls("checkbox" & i).value = true then...
next i

[Abed_H]

Bonsoir
voici comment boucler sur les CheckBoxes de la boite à outils Contrôles sur un UserForm (ActiveX), la bibliothèque Forms 2.0 doit être cochée (auto si le projet contient un UserForm)

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub CommandButton1_Click()
Dim cntrl As Control
  For Each cntrl In UserForm1.Controls
    If TypeOf cntrl Is MSForms.CheckBox Then
      If cntrl.Value Then
        'traitement ici si vrai (cochée)
      End If
    End If
  Next
End Sub

Abed_H

[amelyfred]

OK merci pour vos réponses ca marche nickel.

Par contre avec la seconde solution je ne vois pas comment je peux ajouter dans le traitement la valeur de la zone de texte associé au checkbox.
Voici le code créer avec la solution à babaothe

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Private Sub CommandButton1_Click()
For i = 1 To 10
  If Controls("checkbox" & i).Value = True Then
  ActiveCell.Value = Controls("TextBox" & i).Value
  ActiveCell.Offset(0, 1).Select
  End If
 
Next i
 
End Sub

Est ce possible de faire avec la seconde solution.

[mercatog]

tu peu simplifier, et sans les select
ici par exemple, sur la ligne 2

Code :

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

1
2
3
4
5
6
7
Private Sub CommandButton1_Click()
Dim i As Byte, j As Byte
For i = 1 To 10
  j = IIf(Controls("checkbox" & i).Value, j + 1, j)
  Cells(2, j).Value = Controls("textbox" & i).Value
Next i
End Sub