Checkbox à récupérer dans plusieurs colonnes

Bonjour à tous,

Je cherche à transférer les valeurs de mes checkbox sur une même ligne, à partir de la colonne B. Mon code est le suivant:

Code:

---

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

Private Sub CommandButton2_Click() Dim i As Long   i = 2   While Cells(7, i) <> "" i = i + 1 Wend   'Choix des Entreprises If CheckBox1 = True Then Cells(7, i).Value = "1" If CheckBox2 = True Then Cells(7, i).Value = "2" If CheckBox3 = True Then Cells(7, i).Value = "3" If CheckBox4 = True Then Cells(7, i).Value = "4"   End End Sub

---

Le problème se pose quand je veux transférer plusieurs checkbox à la fois: il me renvoie que la dernière valeur dans la cellule B7.
Auriez-vous une idée sur ce qui ne va pas dans ma procédure? Merci d'avance,

Bonjour,
Essaye comme ceci...

Code:

---

1 2 3 4 5 6 7 8 9

Private Sub CommandButton2_Click() Dim i As Byte i = 2 'Choix des Entreprises If CheckBox1 = True Then Cells(7, i).Value = "1": i = i + 1 If CheckBox2 = True Then Cells(7, i).Value = "2": i = i + 1 If CheckBox3 = True Then Cells(7, i).Value = "3": i = i + 1 If CheckBox4 = True Then Cells(7, i).Value = "4": i = i + 1 End Sub

---

A+

Bonjour

Si les CheckBox sont dans un userform, il faut écrire
Un exemple de code , à modifier pour le test sur la cellule B2

Code:

---

1 2 3 4 5 6 7 8 9

dim j as byte i= 2 For j =1 to 4 If Me.controls("CheckBox" & j) = True Then Cells(7, i).Value = j i = i +1 end if next j

---

en remplacement des 4 tests

JP014

Merci beaucoup à vous 2, ca répond tout à fait à mon problème. Bonne journée:D