[XL-2016] Checkbox et variable

Checkbox et variable

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:

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

Hello,

Je suis sur Smartphone, donc code non testé.
ça devrait donner quelque chose de ce genre :

Code:

1
2
3
4
5
6
7
8
9
 
 
     With données_éleves.Frame_cantine
        For X = 1 To 5 Step 1
                If .Controls("cantine_" & X) Then
                    Cells(derlig, X+4) = .Controls("cantine_" & X).Caption
                End If
        Next X
    End With

Bonsoir,

C'est magnifique ça fonctionne.
en voyant la solution, je me demande comment j'ai pu ne pas y penser...

Merci beaucoup.