Discussion :

[chevrotine56]

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

[mfoxy]

Hello,

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

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
                If .Controls("cantine_" & X) Then
                    Cells(derlig, X+4) = .Controls("cantine_" & X).Caption
                End If
        Next X
    End With

[chevrotine56]

Bonsoir,

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

Merci beaucoup.