Bonjour a tous,

J'ai un user forme avec un l’intérieur un Frame.
Dans ce Frame j'ai mis 5 checkBox numéroté de 1 a 5.
Je voudrais que dans la feuille les cellule 5 a 10 de la ligne sois remplie si la checkbox est cochées.

J'ai fait ce bout de code, mais pour chaque cellule ca prend en compte le résultat de checkBox et donc ca garde le dernier.


Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
     With données_éleves.Frame_cantine
        For X = 1 To 5 Step 1
            For I = 5 To 10 Step 1
                If .Controls("cantine_" & X) Then
                    Cells(derlig, I) = .Controls("cantine_" & X).Caption
                End If
            Next I
        Next X
    End With
Une idée du problème?

Merci