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