Checkbox et variable dynamique

[ludo]

Bonjour,

J'ai une liste de checkbox appelées CheckBox1,...2,...3 etc...
Je cherche à compter celles qui sont à True ou False, en en mettant 1 par ligne j'arrive à faire ce que je veux, maintenant j'aurais bien voulu faire une boucle sur mes CheckBox qui va lire leurs valeurs et incrémenter ou non mon "total" de points, mais ca ne marche pas, ma boucle passe, le test if passe, mais UNE seule fois, je ne comprend pas, voici mon code :

For Ctr = 1 To 10
If CBool(Evaluate("CheckBox" & Ctr & ".Value")) = True Then Recu = Recu + 1
'Cells(Ctr, 10) = "i=" & Ctr & "Checkbox" & Ctr & " cochéeeee" & CheckBox1.Value
'If CBool(Evaluate("CheckBox" & Ctr & ".Value")) = False Then Recu = Recu
'Cells(Ctr, 10) = "Checkbox" & Ctr & " pas cochéeeee"
'Cells(Ctr, 10) = "Checkbox" & Ctr & " pas coché"
Next
Range("G10").Value = Recu

avec différents essais meme, mais ca ne marche pas comme je le souhaite... si quelqu'un pouvait me tirer cette épine du pied?

Merci à vous.

 

[Karim]

Salut Ludo!!

En fin de boucle "For" la syntaxe serait "Next Ctr" et pas Next tout seul il me semble!

En espérant que ce soit ça!

Karim

 

[michel]

bonjour Ludo , bonjour Karim


j'espere que l'exemple ci joint repondra à ta demande

Private Sub CommandButton1_Click()
Dim Ctrl As Control
Dim Val As String
Dim Vr As Byte, Fx As Byte

For Each Ctrl In Me.Controls
If TypeOf Ctrl Is MSForms.CheckBox Then
If Ctrl.Value = True Then
Val = Val & Ctrl.Name & " = True " & Chr(10)
Vr = Vr + 1
Else
Val = Val & Ctrl.Name & " =False " & Chr(10)
Fx = Fx + 1
End If
End If
Next

MsgBox Val & Chr(10) & Chr(10) & "Il y a " & Vr & " checkbox cochés " & Chr(10) & _
"et " & Fx & " checkbox non cochés . "

End Sub


bonne soirée
michel

 

[nesrine]

insertion à la base

Bonjour,
je veux inserer à ma base à partir de checkbox
mabase est créee par MySQL et je veux un code avec le php
ma table contient un champ appelé "nomlang" et le checkbox contient différent langue par exemple Anglais, Espagnol...... et si je coche par exemple Anglais et Espagnol ces derniers vont etre ajouté dans le champ "nomlang"

merci
j'attendrai votre réponse par email si voius voulez merci une autre fois