Discussion :

[geredonis]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Graffito]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[geredonis]

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

[momolasd]

Yep!

Avec un peu de recherche tu aurais trouvé cela

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 !

[geredonis]

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.

[Graffito]

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é.

[geredonis]

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.

[geredonis]

En fait j'avais écrit la ligne suivante

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Imports Microsoft.Office.Interop.Excel

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

[clementmarcotte]

Bonjour,

En fait j'avais écrit la ligne suivante

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.