Liste + compteur de checkbox cochée

Bonjour au forum,

Je reviens vers vous pour une nouvelle question...

J'aimerais pouvoir compter le nombre de fois où des checkbox sont cochés, et pouvoir présenter le résultat dans 2 colonnes dans une feuille nommée "Compteur" :

Nom du checkbox / Nombre de fois coché (et validé par le bouton)

Ci-dessous le code actuel du bouton "Valider", et dans lequel j'aimerais intégrer cette fonction de compteur :

Private Sub Valider_Click()

For i = 1 To 30 ' boucle sur les 30 checkbox
    If Controls("CheckBox" & i) = True Then Chaine = Chaine & Controls("CheckBox" & i).Caption & ", " 'pour chaque checkbox cochée, ajouter le titre de la checkbox suivi de ", "
Next i
If Right(Chaine, 1) = " " Then Chaine = Mid(Chaine, 1, Len(Chaine) - 2) 'Si le dernier caractère de la chaine est " ", alors supprimer les 2 derniers caractères (", ")
ActiveCell = Chaine
Unload ChoixMultiple
End Sub

Merci beaucoup pour votre aide

Bonjour,

Essaie ainsi :

Private Sub Valider_Click()
Dim i As Long, k As Double, chaine As String
For i = 1 To 30 ' boucle sur les 30 checkbox
    If Controls("CheckBox" & i) = True Then
        chaine = chaine & Controls("CheckBox" & i).Caption & ", "
        k = k + 1
    Next i
    If k > 0 Then
        chaine = Left(chaine, Len(chaine) - 2)
        With ActiveCell
            .Value = chaine
            .Offset(, 1).Value = k
        End With
    End If
    Unload ChoixMultiple
End Sub

Bonjour Jean-Eric,

Merci beaucoup pour ta réponse.

Je suis désolé pour le temps de réponse, le contexte actuel me prend énormément de temps au travail.

Du coup, je n'ai pas encore pu testé ta proposition, mais ce sera fait dès que possible.

Merci encore

Re Jean-Eric,

Merci beaucoup pour ta proposition, j'ai pu adapter à mon cas

Très bonne journée