Discussion :

[anarchiste-mouton]

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 :

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

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

[Thautheme]

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 :

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

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

[Menhir]

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

[anarchiste-mouton]

Merci pour votre aide,

La solution de Menhir =>