[AC-2007] for each checkbox ou textbox [Résolu]

[robyseb]

Bonjour je recherche le moyen de mettre tous mes checkbox et textbox avec la propriété "enabled" à False dans mon formulaire sans avoir à inscrire chaque nom donc j'ai tenté ce code

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Dim objtextbox As TextBox
Dim objcheckbox As checkbox
Dim checkbox As checkbox
    If Me.completer_ouinon = "Complet" Then
        For Each objtextbox In Me.TextBox
            objtextbox.Enabled = False
        Next objtextbox
        For Each objcheckbox In Me.Controls
            objcheckbox.Enabled = False
        Next objcheckbox
            Me.selectionnerdate.Enabled = False
            Me.enregistrer.Enabled = False
    Else
            Me.AllowEdits = True
            Me.selectionnerdate.Enabled = True
            Me.enregistrer.Enabled = True
    End If

mais évidement ca ne fonctionne pas donc je me relève à vous afin de m'aidez parce que j'ai beau chercher partout mais je ne trouve pas d'indice

merci d'avance

[Beub']

Bonjour,

Euh... Personnellement, dans ce cas, je parcours tous les contrôles et, avec un IF, j'identifie les checkbox/textbox/...
Je ne sais pas s'il y a moyen de ne parcourir qu'un certain type de contrôle.

Pour info, le code que j'utilise :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
 
    Dim Ctrl As Control
    For Each Ctrl In Me.Controls
 
        'Si le contrôle est un champ texte, une liste ou une case à cocher
        If (TypeOf Ctrl Is TextBox Or _
           TypeOf Ctrl Is ComboBox Or _
           TypeOf Ctrl Is CheckBox Or _
          '...
          '...
          '----------- Traitement ----------
          '...

Cordialement,
Beub'.

Edit : je viens de tomber sur ça :
http://www.developpez.net/forums/d34...euille-boucle/

Le dernier message a l'air intéressant même si on parle d'Excel... (jamais testé, donc à voir ).

[Domi2]

Bonjour,

Quelque chose comme ça :

Code :

1
2
3
4
5
6
7
8
9
10
11
Dim ctl As Control
 
For Each ctl In Me.Controls
 
    If TypeOf ctl Is TextBox Or TypeOf ctl Is CheckBox Then
 
        ctl.enabled = False
 
    End If
 
Next

Domi2

[robyseb]

Merci ca fonctionne à merveille Domi2

Code :

1
2
 
    If TypeOf ctl Is TextBox Or TypeOf ctl Is CheckBox or TypeOf ctl is ComboBox Then

j'ai rajouté Combobox pour intégrer tous les liste déroulante aussi

merci merci