Renvoie caption de checkbox

Bonjour,

j'ai besoin de votre aide suite à un problème de récupération de caption de mes checkbox sélectionnées.

Je m'explique :

quand je clique sur un bouton, une userform s'ouvre et j'ai la possibilité de sélectionner plusieurs checkbox. Quand j'en sélectionne plusieurs, je voudrai que le caption de chaque checkbox sélectionnée soit renvoyé dans une cellule spécifique ("E2"). Pour l'instant mon programme ne renvoie que le caption de la derniere checkbox sélectionnée. Par exemple, quand je sélectionne janvier, février et mars, je voudrai que dans la cellule E2 soit inscrit les valeurs janvier, février et mars et non juste "mars".

Voici mon programme qui gère ceci :

With Sheets("TABLEAU DE BORD_NQI_Essai.")
    For i = 1 To 12
    If Me.Controls("checkbox" & i) Then
     .Range("E2").Value = Me.Controls("checkbox" & i).Caption
    End If
    Next
    End With

Merci de votre aide.

.Range("E2").Value = .Range("E2").Value & " " & Me.Controls("checkbox" & i).Caption

Merci beaucoup ! ça marche nikel !

Rechercher des sujets similaires à "renvoie caption checkbox"