Discussion :

[mouaa]

Bonjour,

j'ai une question toute bête à poser, mais qui a son intérêt.
Je m'explique:
J'ai un formulaire qui permet de faire des extractions de données.
L'utilisateur a donc la possibilité de cocher des checkbox, afin de choisir quels champs exporter, et aussi la possibilité d'ajouter/supprimer un critère.

Donc en gros, j'ai un truc un peu comme ça:

ChkBox Label BtnAjoutCritère BtnSuppCritère
ChkBox Label BtnAjoutCritère BtnSuppCritère
ChkBox Label BtnAjoutCritère BtnSuppCritère
ChkBox Label BtnAjoutCritère BtnSuppCritère

J'ai nommé chaque contrôle de façon à pouvoir les reconnaître facilement.
mais voilà donc ma question:
Je fais régulièrement appel à des contrôles dans mon code.
Par exemple, si je coche une ChkBox, je voudrais que le Label et les boutons soient accessibles (ils sont grisés si la ChkBox n'est pas cochée).
Prenons cet exemple:

Type de Contrôle | Nom du Contrôle
ChkBox | ChkUoCode
Label | LabUoCode
BtnAjoutCritère | AddCritUoCode
BtnSuppCritère | DelCritUoCode

Comme vous pouvez le constater, on retrouve systématiquement UoCode pour ces contrôles.

Le problème, c'est que pour effectuer des actions en VBA sur chacun de ces contrôles, je passe à chaque fois par des

Code :

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

1
2
3
4
5
6
7
8
 
Dim UneVariable as string
UneVariable = UoCode
For each Ctrl in me.Controls
   If Right(Ctrl.name, (Len(Ctrl.name) - 7)) = UneVariable then
      'Je lance une procédure
   End If
Next Ctrl

Cela prend beaucoup de temps à chaque fois de regarder chaque contrôle.

Je voulais savoir si on n'avait pas la possibilité de faire ce genre de choses:

Code :

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

1
2
3
 
UneVariable = AddCritUoCode
Me.UneVariable.Enabled = True

En gros, je voulais savoir si on pouvait stocjer le nom d'un contrôle dans une variable, et le réutiliser comme cité précédemment, sans systématiquement passer par un For Each et une comparaison du nom du contrôle avec une variable.

J'espère avoir été assez claire.

[Maxence HUBICHE]

Ben, pourquoi ne pas faire simplement un truc comme :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Sub Activer(CtrlName as string, Optional Actif as boolean=True)
    On error resume next
    With CodeContextObject
        .Controls("chk" & CtrlName).enabled=Actif
        .Controls("lbl" & CtrlName).enabled=Actif
        .Controls("cmd" & CtrlName).enabled=Actif
        .Controls("opt" & CtrlName).enabled=Actif
        .Controls("txt" & CtrlName).enabled=Actif
        .Controls("cdr" & CtrlName).enabled=Actif
        .Controls("tgl" & CtrlName).enabled=Actif
        '...
    End With
End Sub

[mouaa]

Ah, mais ça m'a l'air super tout ça !

Par contre, à quoi correspond le CodeContextObjet ?
Au formulaire ?
je pourrais mettre un truc du style

Code :

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

1
2
With Me
.controle(gna gna gna).enabled = true

Par exemple, comment réécrire un code de ce style là ?

Code :

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

1
2
3
4
5
6
7
8
9
10
11
For Each Ctrl2 In Me.Controls
                    If TypeOf Ctrl2 Is TextBox Then
                        If Ctrl2.name = "crit" & Ctrl.name Then
                            If Ctrl2.Value <> "" Then
                                'Debug.Print Ctrl2.Value
                                Call CreaWhere(Where, Ctrl2.Value, Right(Ctrl.name, Len(Ctrl.name) - 2))
                                'Debug.Print Where
                            End If
                        End If
                    End If
                Next Ctrl2

[Maxence HUBICHE]

Par contre, à quoi correspond le CodeContextObjet ?

La touche F1 devrait t'aider normalement !



Bon, sinon, c'est la référence à l'objet appelant cette procédure.
Cela signifie que tu pourrais mettre cette procédure dans un module standard, et l'appeler depuis n'importe quel formulaire

[mouaa]

m'ci !