Regrouper les données de checkbox dans une cellule

[Luigi]

Bonjour à tous,
J’ai un code (voir ci-dessous) qui me permet de récupérer toutes les checkbox sélectionnées pour les inscrire dans une feuille Excel. Ces données s’inscrivent une en dessous de l’autre, comment faire pour que ces données s’inscrivent toutes dans une seule cellule séparée d’un point virgule. Quelqu’un pourrait-il m’aider pour ce problème.
D’avance je vous remercie.

Private CommandButton1_Click()
Dim Ctrl As Control
Dim j As Integer
j=1
For Each Ctrl In Userform.Controls
If TypeName(Ctrl) = "CheckBox" Then
If Ctrl.Value = True Then
Range("E24").Offset(J - 1, 0) = Ctrl.Value
j=j+1
End If
End If
End Sub

 

[kjin]

Re : Regrouper les données de checkbox dans une cellule

Bonjour,

Dim ctrl As Control, Texte$
For Each ctrl In UserForm1.Controls
    If TypeName(ctrl) = "CheckBox" Then
        If ctrl = True Then
            Texte = Texte & ctrl.Value & ";"
        Else
            Texte = Texte & ";"
        End If
    End If
Next
Range("E24") = Left(Texte, Len(Texte) - 1)

A+
kjin

 

[Luigi]

Re : Regrouper les données de checkbox dans une cellule

Merci beaucoup kjin ça marche