boucles pour les checkboxs

Bonjour à tous,

alors voici mon petit problème. J'ai un form avec 19 checkboxs regroupées dans un groupbox. 1 checkbox s'intitule "all" et doit me cocher les 18 checkboxs restantes, seulement j'aimerais implémenter cette action à l'aide d'une boucle for. Ca donnerait un truc dans le style :

Code:

---

1 2 3 4 5 6 7 8

Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged For i = 2 To 19 If CheckBox1.Checked = True Then CheckBox(i).checked = True Else : CheckBox(i).checked = False End If Next i

---

Seulement, bah ca marche pas..."checkbox ne peut pas être utilisé en tant qu'expression" qu'il me dit.

Donc je tente les controles comme ceci :

Code:

---

1 2 3 4 5 6 7 8

Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged For i = 2 To 19 If CheckBox1.Checked = True Then Controls("checkbox" & i).checked()= True Else : Controls("checkbox" & i).checked()= False End If Next i

---

Je le tente de toutes les formes, ca marche pas non plus.

Alors faute de mieux, je me la fait a la méthode bourrin, je vous l'avoue, ce n'est pas très élégant :

Code:

---

1 2 3 4 5 6 7

Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged   If CheckBox1.Checked = True Then CheckBox2.Checked = True Else CheckBox2.Checked = False If CheckBox1.Checked = True Then CheckBox3.Checked = True Else CheckBox3.Checked = False ... ... ... If CheckBox1.Checked = True Then CheckBox19.Checked = True Else CheckBox19.Checked = False

---

Donc si quelqu'un pouvait m'aider à "affiner" ce programme, j'en serais ravi.

Cordialement

Pour ce problème, tu peux faire une recherche dans le forum, cette question revient tous les deux jours.
Ceci étant dit, la propriété Controls de ton formulaire contient une méthode Find qui prend en paramètre le nom du controle recherché.

Code:

---

1 2 3

for each ctrl as system.windows.forms.control in mongroupbox.controls if ctrl.name <> "celui qu'il faut pas cocher" then directcast(ctrl,checkbox).checked = la meme valeur que celui qui sert à cocher tout next

---

AUtre méthode :

Code:

---

1 2 3

For Each check As CheckBox In Me.Controls check.Checked = True 'on les coches toutes Next

---

Merci pour vos réponses rapides,
J'avais préalablement épluché le forum et testé pas mal de solutions la seule que j'arrive à faire fonctionner est celle ci :

Code:

---

1 2 3

For Each Check As CheckBox In Me.Controls Check.Checked = True Next

---

Merci Aspic

Le problème, c'est que ce code ne marche que lorsque le form ne contient que des checkboxs...dès lors que le form contient d'autres outils tels que les labels, groupboxs, etc...cela ne fonctionne plus même en remplacant Me.controls par groupbox3.control.
(groupbox3 étant celui contenant mes 19 checkboxs).
Le code me renvoie Impossible d'effectuer un cast d'un objet de type 'System.Windows.Forms.Label' en type 'System.Windows.Forms.CheckBox'.
L'exception invalidcastexception n'a pas été gerée

Et mon form est truffé de label et de groupboxs qui s'affichent en fonction du choix effectué dans la liste déroulante principale.

Ensuite avec celui-ci :

Code:

---

1 2 3

For Each ctrl As System.Windows.Forms.Control In GroupBox3.Controls If ctrl.Name <> "checkbox1" Then DirectCast(ctrl, CheckBox).Checked = True Next

---

Merci sperot51

Impossible de le faire marcher, toujours la même erreur. La seule méthode est de tout supprimer et de ne garder que le groupbox 3 contenant les checkboxs. Là ca fonctionne, un petit avancement déjà, il rentre dans la groupbox.

Sinon j'ai commencer a regarder la fonction control.find (merci pour l'astuce saumonagile) mais je ne la comprends pas tout à fait encore.

En fait, ma question pour les boucles ne se vouait pas uniquement à cocher les checkboxs quand je coche "all". Je voulais par la suite faire un scan de mes checkboxs et (par ex) pour les checkbox 1 a 12 si elles sont cochées alors x=x+10 et pour les checkbox 12 a 19 si elles sont cochées alors x=x+5

Donc je suis obligé de refaire le code "bourrin" a chaque fois. Encore là ca va a peu près étant donné que je n'ai que 19 checkbox mais j'ai du mal a imaginer si il y en avait 200...

En tout cas, même si mon problème n'est pas encore résolu, merci beaucoup pour votre réactivité, cela me permet d'avancer et de découvrir de nouvelles fonctions.

Et si vous avez d'autres idées (même farfelues, ;) je prends).

Cordialement

Aurèl

tu as pas précisé qu'il y avait d'autres choses sur le groupbox, et ne mode fainéant je fais au plus court :D

rajoute un test du type

Code:

---

if not typeof ctrl is checkbox then continue for

---

Citation:

---

Envoyé par sperot51

tu as pas précisé qu'il y avait d'autres choses sur le groupbox, et ne mode fainéant je fais au plus court :D

rajoute un test du type

Code:

---

if not typeof ctrl is checkbox then continue for

---

---

+1

Nickel !!!
C'est parfait, ca marche, j'avais essayé plein de trucs dans l'idée mais j'avais pas la bonne formulation...
Merci sperot51 !
Ca allège pas mal du coup, maintenant je vais continuer de creuser pour trouver une manière de checker les checkboxs dans une boucle et je post si je trouve.
Encore merci a vous

Cordialement

Aurélien.

Citation:

---

Envoyé par azety

maintenant je vais continuer de creuser pour trouver une manière de checker les checkboxs dans une boucle et je post si je trouve.

---

euh

c'est pas ce qu'on vient de faire ??

8O

Mon premier problème est résolu, à savoir cocher toutes les checkboxs de mon groupbox quand je coche all. :king: merci à vous.
Ensuite, dans le traitement, je voudrais faire un scan pour savoir les checkboxs que l'utilisateur aura réellement coché :

Citation:

---

En fait, ma question pour les boucles ne se vouait pas uniquement à cocher les checkboxs quand je coche "all". Je voulais par la suite faire un scan de mes checkboxs et (par ex) pour les checkbox 1 a 12 si elles sont cochées alors x=x+10 et pour les checkbox 12 a 19 si elles sont cochées alors x=x+5

---

Si elles ne sont pas cochées x=x.
Et a part faire une boucle, je ne vois pas comment réussir ce scan. Et c'est cela que je vais continuer de chercher.:roll:

alors tu peux faire à peu près pareil enfin à part qu'il faut trouver de combien il faut augmenter x pour chaque
et pour ca je te propose de remplir graphiquement la propriété Tag avec 5 ou 10 (et 0 pour celui qui check all)

Code:

---

1 2 3 4

for each ctrl in groupbox.controls if not typeof ctrl is checkbox then continue for if x = x + directcast(directcast(ctrl,checkbox).tag,integer) next

---

d'autres solutions sont possibles

Merci infiniment sperot, je n'avais pas compris au début que l'on pouvait tout simplement trouver le tag dans les propriétés des checkboxs, ca marche nickel du coup.

Voilà le code pour ceux que cela intéresse.

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Sub calcul temps = 0   For Each ctrl As System.Windows.Forms.Control In GroupBox3.Controls If Not TypeOf ctrl Is CheckBox Then Continue For If DirectCast(ctrl, CheckBox).Checked = True Then _ temps = temps + DirectCast(ctrl, CheckBox).Tag Next   conversion() End Sub

---

Encore merci à tous et toi sperot pour m'avoir fait progresser déjà et pour avoir répondu si rapidement et efficacement à mes questions ! :king:

:salut: