Discussion :

[Airone1CF03]

Bonjour à tous,



Je cherche désespérément comment utiliser dynamiquement une variable, mes recherches Internet sont totalement infructueuses.



Je m'explique. J'ai 5 variables, nommées comme ceci (il s'agit juste d'un exemple) :

- Var16_A_ch
- Var16_B_ch
- Var16_C_ch
- Var16_D_ch
- Var16_E_ch



On veut travailler sur le type personnalisé, caractérisé par les lettres "A", "B", "C", "D" et "E". Il y a donc une variable "Type_perso", qui prendra la valeur d'une de ces 5 lettres.



Mon objectif est d'obtenir la valeur de la variable qui contient cette lettre.
Selon mon idée, cela donnerait ça :

Code :

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

1
2
3
4
5
6
7
8
 
Var16_A_ch = 30
Var16_B_ch = 50
Var16_C_ch = 10
Var16_D_ch = 40
Var16_E_ch = 20
Type_perso = "D"
MsgBox FONCTION("Var16_" & Type_perso & "_ch")

où FONCTION serait une fonction de VBA existante qui permettrait de travailler dynamiquement sur une variable. Le message afficherait donc la valeur de 40 (correspondant à la lettre "D").



Plus généralement, je veux utiliser une variable de manière dynamique via une autre variable. Cela se fait dans un UserForm, dans lequel on peut obtenir la valeur d'un contrôle en le déclarant de manière dynamique, via la fonction "Controls".



Je ne cherche pas de solutions de secours. Je cherche uniquement à répondre à cette problématique, et savoir si cela est faisable ou pas, et si oui, comment ?



J'espère avoir été assez clair, en vous remerciant par avance du prendre du temps pour me répondre.



Bonne soirée à tous.

[helas]

Bonsoir,
voir Switch peut-être

[pijaku]

Bonsoir,
Ne sachant pas s'il vaux mieux dire une grosse bêtise plutôt que d'omettre une piste, je me lance et dis peut être une énormité...
Ce que vous décrivez ressemble, pour moi, à une simple variable tableau. Non?
Exemple :

Code :

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

1
2
3
4
5
Dim Tablo As Variant
Tablo = Array("a", "b", "c")
    MsgBox Tablo(0) 'Renvoie "a"
    MsgBox Tablo(1) 'Renvoie "b"
    'etc...

Ce qui peux effectivement s'adapter aux contrôles d'un USF non?

[alsimbad]

peut-être que tu peux l'utiliser de cette manière

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
Function variable(var)
variable = ("Var16_" & var & "_ch")
Select Case variable
Case "Var16_A_ch"
 variable = 30
Case "Var16_B_ch"
 variable = 50
Case "Var16_C_ch"
 variable = 10
Case "Var16_D_ch"
 variable = 40
Case "Var16_E_ch"
 variable = 20
End Select
End Function
 
Sub test()
Type_perso = "D"
MsgBox variable(Type_perso)
End Sub

ça a l'air de correspondre a ce que tu recherche

[Invité]

Bonjour

Sur cette ligne :

Code :

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

MsgBox FONCTION("Var16_" & Type_perso & "_ch")

Le fait d'utiliser des doubles quotes force Excel à interpréter cela comme une chaine de caractère et non une variable.

Philippe

[Theze]

Bonjour,

Je pense que le mieux serait d'utiliser un dictionnaire dont les clés serait le type perso :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
Sub Dictionnaire()
 
    Dim Dico As Object
    Dim Type_perso As String
 
    Set Dico = CreateObject("Scripting.Dictionary")
 
    Dico.Add "A", 30
    Dico.Add "B", 50
    Dico.Add "C", 10
    Dico.Add "D", 40
    Dico.Add "E", 20
 
    Type_perso = "D"
 
    MsgBox FONCTION(Dico(Type_perso))
 
End Sub

Hervé.