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
Re : Regrouper les données de checkbox dans une cellule
Bonjour,
Code:
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)