Checkbox multiples, afficher leur labels dans cell

With CheckBox1
        Range('a1') = IIf(.Value = True, .Caption, '')
End With

Cliquez pour agrandir...

Private Sub CommandButton1_Click()
Dim i As Byte
Dim premier As Boolean

premier = True

For i = 1 To 8
    With Me.Controls('Checkbox' & i)
        If .Value Then
            If premier Then
                Range('a1') = .Caption
                premier = False
            Else
                Range('a1') = Range('a1') & ',' & .Caption
            End If
        .Value = False
        End If
    End With
Next i

End Sub

Cliquez pour agrandir...