Cases à cocher sous VBA [FAQ] [Résolu]

[dran]

Bonjour,
J'ai crée 10 cases à cocher dans un document EXCEL. Sous VBA, 10 Private Sub CheckBox_Click() sont apparues, de CheckBox1_Click() à CheckBox10_Click(). Je voudrais tester l'état de chacune de ces cases à cocher dans une sub à part. J'ai commencé mon code par :

Code :

1
2
3
 
for i=1 to 10
if CheckBox(i).Value then...

Mais cela ne marche pas, il ne reconnaît pas le nom CheckBox(i).
Y-a-t-il une solution ?
Merci beaucoup !

[Tofalu]

Bonjour

Essaye avec

Code :

1
2
3
4
5
6
7
8
 
Dim Ctl as control
Dim i as integer
For i=1 to 10
set ctl=me.controls("CheckBox" & i)
if ctl.value then ....
 
Next i

Cela fonctionne si tes cases sont dans un formulaire. Si elles sont dans une feuille de calcul, cela ne marchera pas

[Tofalu]

Ma solution te donne accés directement à la bonne case à cocher via son nom (ceci est une des possibilités des collections) soit seulement 10 ittérations.

Ceci dit, la soltuion pour les cases dans les classeurs est effectivement disponible sous le lien de petogaz

[nala]

salut,

Voici un bout de code qui fonctionne sur une feuille de calcul

Code :

1
2
3
4
5
6
7
8
9
 
Dim boucle As Integer
 
 
For boucle = 1 To 2
If TypeName(Feuil1.OLEObjects(boucle).Object) = "CheckBox" And _
Feuil1.OLEObjects(boucle).Object.Value = True Then Feuil1.OLEObjects(boucle).Object.Value = False
 
Next

l'instruction apres le then est a changer. Ici elle decoche les checkbox qui sont cochées

[dran]

Bonsoir,
En effet, j'ai lu le texte sur le lien indiqué au-dessus, quel truc compliqué...
Ton code est proche de celui qui est indiqué, je l'ai testé, ça marche, j'ai ma solution. Super ce forum et un grand merci à tous.