Comment utiliser le contenu d'une variable string comme nom de variable

Version imprimable

Bonjour à tous,

Je voudrais utiliser la chaîne de caractères d'une variable (string) comme nom de variable (existante).
Comment dois-je proceder ?

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
Option Compare Database
Dim lastChecked As String
 
Private Sub chkBox1_Click()
    lastChecked = "chkBox1"
    Call Filtre1
End Sub
 
Private Sub chkBox2_Click()
    lastChecked = "chkBox2"
    Call Filtre1
End Sub
 
Private Sub chkBox3_Click()
    lastChecked = "chkBox3"
    Call Filtre1
End Sub
 
Private Sub chkBox4_Click()
    lastChecked = "chkBox4"
    Call Filtre1
End Sub
 
Private Sub Filtre1()
.
.       'Quelque part dans le code :
.
	Me.chkBoxX.Value = False		'utiliser la variable (string) dans la déclaration pour obtenir par exemple "Me.chkBox3.Value = False" lorsque "lastChecked" = "chkBox3"
.
.
.
End Sub

Pour éviter ceci :

Code:

1
2
3
4
5
6
7
8
9
    If lastChecked = "chkBox1" Then
    Me.chkBox1.Value = False
    ElseIf lastChecked = "chkBox2" Then
    Me.chkBox2.Value = False
    ElseIf lastChecked = "chkBox3" Then
    Me.chkBox3.Value = False
    ElseIf lastChecked = "chkBox4" Then
    Me.chkBox4.Value = False
	End If

17/05/2024, 17h38
tee_grandbois

bonjour,
il faut utiliser la propriété controls() du formulaire:

Code:

Me.Controls(lastChecked) = False
17/05/2024, 17h59
Gaston62

récupérer la chaîne d'une variable string comme nom de variable

Bonjour tee_grandbois,

Merci, c'est simple et ça marche à merveille!

Mais est-il néanmoins possible (pour d'autres cas) de récupérer la chaîne d'une variable string comme nom de variable ?

Gaston
18/05/2024, 08h31
star

Bonjour,
La fonction Eval évalue une expression qui génère une chaîne de texte ou une valeur numérique.
Bon DEV
.
18/05/2024, 16h51
Gaston62

Merci star.

Cela semble être une bonne piste dans le sens que je voulais.

Je vais regarder ça de plus près en faisant quelques tests.

Bonne fin de journée,
Gaston
20/05/2024, 05h50
star

Bonjour,
Serait-ce possible d'avoir un aperçu de la solution adoptée ?
.
20/05/2024, 07h24
Gaston62

Bonjour,

Momentanément j'utilise la solution de tee_grandbois, car je n'ai pas encore eu le temps de faire d'autres tests.

Merci quand même et bonne journée,

Gaston
20/05/2024, 09h40
tee_grandbois
bonjour,
si c'est le contrôle actif que tu souhaites tester, il existe déjà dans le formulaire en tant que "variable": c'est la propriété ActiveControl du formulaire actif
Code:

1 2 3 4 5 Private Sub chkBox1_Click() Call Filtre1 (Screen.ActiveControl.Name) End Sub
et là, plus besoin d'une variable String
Code:

1 2 3 4 5 Private Sub Filtre1(ActivCtl as control) '... ActivCtl.Value = False ' ... etc End sub
il existe également la propriété PreviousControl