Controls Checkbox en série

Bonjour,
J'ai dans un Form plusieurs cases à cocher nommées chkM1, chkM2, chkM3, etc ...
je souhaite après avoir coché le chkM1 qu'il me coche les douz cases à cocher suivantes.
Voici le code utilisé :

Code:

---

1 2 3 4 5 6

Dim i As Integer If chkM1.Checked = True Then For i = 2 To 12 Me.Controls("ChkM" & i).checked = True Next End If

---

il n'accepte pas le code dans la boucle.

Merci pour votre aide

Comme ceci (je ne code pas en vb.net) ?

Code:

---

DirectCast(Me.Controls("ChkM" & i),CheckBox).Checked = True

---

Merci pour ta réponse mais il me met l'erreur suivante :
"Variable objet ou variable d'un bloc with non définie"

Yep!

Avec un peu de recherche tu aurais trouvé cela

Code:

---

1 2 3 4 5 6 7 8

Private Sub cocher() For Each ctrl As Control In Me.Controls If TypeOf ctrl Is CheckBox Then Dim c As CheckBox = CType(ctrl, CheckBox) c.Checked = True End If Next End Sub

---

Ici : http://www.developpez.net/forums/d56...xes-vb-cocher/

Testé & approuvé ;-)

Bon W-e !

Merci pour ta réponse.
Je vais essayer ce soir d'adapter ton code avec ma variable i pour le nom du checkbox.
J'ai peur que la boucle "For Each ctrl As Control In Me.Controls" prenne du temps car j'ai un formulaire important avec de nombreux controls sur plusieurs onglets.
A moins qu'il y ait un moyen de restreindre à un seul onglet du formulaire, mais là je ne sais pas faire.
Je pense qu'Il serait judicieux d'utiliser Controls("Nom" & i). Je vais encore chercher.

Citation:

---

J'ai peur que la boucle "For Each ctrl As Control In Me.Controls" prenne du temps car j'ai un formulaire important avec de nombreux controls sur plusieurs onglets.

---

Pas de souci de performance à moins qu'il y ait des millers de contrôles.

Si les CheckBox sont dans un même container (TabPage, Panel, ...) il faudra remplacer "Me" par le container ("panel1" par exemple).

Si les checkbox sont des containers differents, il faudrait écrire une fonction récursive avec comme paramêtres d'entrées un control ("Me" au départ) et le nom du contrôle recherché ("ChkM" & i au départ) et renvoyant le contrôle recherché.

Merci pour ta réponse.
J'ai réussi à faire la boucle sur un container précis pour gagner du temps.
Mais à la ligne "If TypeOf ctrl Is CheckBox Then" il passe outre alors que c'est bien un checkbox.
je ne comprends pas.

En fait j'avais écrit la ligne suivante

Code:

---

Imports Microsoft.Office.Interop.Excel

---

En la supprimant tout marche.
Super.
Merci beaucoup pour ton aide

Bonjour,

Citation:

---

Envoyé par geredonis

En fait j'avais écrit la ligne suivante

Code:

---

Imports Microsoft.Office.Interop.Excel

---

En la supprimant tout marche.
Super.
Merci beaucoup pour ton aide

---

Donc, pour une raison que j'ignore, ton programme a cru que tu utilisais VBA pour Excel.

Pour ceux que cela pourrait intéresser, les UserForms et les contrôles intégrés d'Office sont dans le fichier frm20.dl
Ce fichier n'est pas un assembly .net mais un composant COM, même s'il peut être disponible dans vos références.