Problème d'algo (avec array)

Bonjour,

J'ai un userform avec des checkbox.
J'aimerais qu'après validation du userform, le caption du/des checkbox coché(s) prenne place dans la colonne A (à partir de la ligne 2 ; les uns après les autres ; sans laisser de cellule vide).

J'ai ça pour l'instant :

Code:

---

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

Dim Ctrl As Variant Dim i As Byte Dim Cellul As Range   i = 0 Set Cellul = Worksheets("Filtre").Cells(2 + i, 1)   For Each Ctrl In Array(cR1, cR2, cR3, cR4, cR5, cR6, cR7, cR8, cA20, cPM, cEtu) If Ctrl Then Cellul.Value = Ctrl.Caption i = i + 1 End If Next

---

Mais seule la range ("A2") prend une valeur...

Bonne journée

Bonjour paradoxe (ben oui un anarchiste mouton...), bonjour le forum,

Attribue à la propriété [Tag] des checkboxes concernées la valeur A, puis le code :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Private Sub CommandButton1_Click() Dim Ctrl As Control Dim LI As Integer   LI = 2 For Each Ctrl In Me.Controls If Ctrl.Tag = "A" And Ctrl Then Sheets("Filtre").Cells(LI, Ctrl.Tag).Value = Ctrl.Caption LI = LI + 1 End If Next Ctrl Unload Me End Sub

---

Mets ton Set Cellul juste avant le Cellul.Value =.

Merci pour votre aide,

La solution de Menhir => :ccool: