Nom de la variable défini dans une cellule

Bonjour,

Habituellement j'essaie de me dépatouiller à partir de ce qui a déjà été publié par ici, mais là, je n'arrive pas à trouver les bons mots clefs qui me permettraient d'obtenir des infos...

En fait, je souhaiterais définir ma variable non pas en l'appellant dans le code VBA, mais en l'appellant via le contenu d'une cellule de worksheet.

Et je me demandais si cela était possible ?

Je définis dans mon code les variables var1 et var2

dans ma worksheet, j'ai la table suivante (cellules A1:B2) :

var1 - A
var 2 - B

je voudrais pouvoir dire : affecter à la variable dont le nom est "contenu de la cellule A1" la valeur A.

Cela correspondrait à une sorte d'Indirect... mais je ne trouve pas plus d'infos.. pensez-vous que c'est possible ?

Merci d'avance pour votre aide !

Bonjour,

Comme tu l'entends, c'est pas possible car les variables doivent être déclarées en "dur" dans les modules de façon implicite ou explicite mais tu peux utiliser un tableau du style :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

Sub Test()   'dimension correspondant à A1:B2 Dim Tbl(1 To 2, 1 To 2)   'pouvant correspondre à A1 Tbl(1, 1) = MaValeur1   'pouvant correspondre à B1 Tbl(1, 2) = MaValeur2   'pouvant correspondre à A2 Tbl(2, 1) = MaValeur3   'pouvant correspondre à B2 Tbl(2, 2) = MaValeur4   End Sub

---

Hervé.

Merci beaucoup pour ton retour Theze.

En fait, je souhaite bien conserver la déclaration de la variable en dur dans le code.

Ce que je voudrais faire c'est une boucle qui affecte la valeur de la colonne B à la variable dont le nom est renseigné en colonne A (ce qui m'éviterait de faire 1 find pour chaque variable ou d'affecter une cellule en dur dans le code ... ) .

en temps normal, je ferais : Var1 = activeworksheet.range("B1").value

Là je voudrais remplacer Var1 de sorte que vba interprète activeworksheet.range("A1").value comme le nom de la variable que j'ai préalablement déclaré, et non comme un .value

J'avais pensé à la solution du tableau, et je te remercie pour l'idée... mais le besoin (comme tu dois t'en douter) est de sortir un maximum les paramétrages de la macro pour les rendre accessibles dans une table excel !

Dans ce cas, je pense qu'un dictionnaire serait assez bien indiqué mais comme tu dis "

Citation:

---

que j'ai préalablement déclaré

---

", il faut remplir le dictionnaire avec comme nom des clés (valeurs uniques) le nom de tes "variables" :

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

'en tête de module pour garder en mémoire les valeurs Dim Dico As Object   Sub Dictionnaire()   Set Dico = CreateObject("Scripting.Dictionary")   'initialise avec 3 "dimensions". Varx est le nom de la clé 'et "Un mot pour le test !" est l'élément de la clé qui peut être modifié Dico.Add "Var1", "Un mot pour le test !" Dico.Add "Var2", 0 Dico.Add "Var3", 0   '"A1 contient le mot Var1 MsgBox Dico(Range("A1").Value)   'modifie la valeur Dico(Range("A1").Value) = 10   'indique la nouvelle valeur MsgBox Dico(Range("A1").Value)   End Sub

---

Le dictionnaire est assez souple d'utilisation.

Hervé.

sans passer par un tableau je ne voies pas!

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Public Var(3) Public VarCollection As Collection   Sub Init() Set VarCollection = New Collection VarCollection.Add 0, "Var1" VarCollection.Add 1, "Var2" VarCollection.Add 3, "Var3" VarCollection.Add 4, "Var4" End Sub Sub test() Range("b1") = "Var1" Var(VarCollection(Range("b1"))) = 12 MsgBox Var(VarCollection(Range("b1"))) End Sub

---

Haa !!!

Je crois que la solution du dictionnaire semble fonctionner :D

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Dim Dico As Object   Sub Dictionnaire()   Dim var1 As String   Set Dico = CreateObject("Scripting.Dictionary")   For Each c In Sheets("paramétrage").Range("A1:A3") Dico.Add c.Value, c.Offset(0, 1).Value Next c   var1 = Dico.Item("var1")   End Sub

---

Et j'ai bien pu affécter la valeur à ma variable en fonction du nom contenu dans la colonne A qui sert de clé au dictionnaire 8-)
Et au passage, j'ai découvert le dico !

Plus qu'à le mettre en place sur mon vrai fichier ! Merci infiniment pour votre aide et votre réactivité :) !