L
ludo
Guest
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.
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.