Reconnaitre une variable dans une feuille de calcul

Bonjour,

je solicite votre aide pour un problème que je n'arrive pas à résoudre.
Je travaille sur un logiciel crée à partir d'excel VBA et j'aimerai créer des fichiers excels regroupant en première colonne des noms de variables déclarées dans mon programme principal et en deuxième colonne leur valeur (il y aura un grand nombre de fichiers de ce type).
Ensuite, selon les besoins de l'utilisateur, les variables du fichier choisi par le programme seront toutes affectées de leurs valeurs respectives.
Mon problème est que je n'arrive pas à affecter les valeurs aux variables car le programme ne reconnait pas les éléments de la première colonne comme noms de variables.

Auriez-vous une idée sur ce problème ?

merci d'avance

Salut,
Il faut créer une collection
http://www.developpez.net/forums/sho...light=variable

Créer une collection me permet d'appeller les membres de cette collection par les noms de mes variables mais ne me permet pas d'affecter les valeurs voulues à ces variables.
Ou peut-être n'ai je pas compris ton idée ? :oops:

Quel type de variable est ce ?

Ce sont des variables destinées à recevoir des valeurs numériques donc déclarées en Single, Double et Integer.

Ca semble convenir, essaye avec cela :

Code:

---

1 2 3 4 5 6 7 8 9

dim adres as variant For i = 1 To 10 ' lignes Set adres = cells(i,2).value 'dans la colonne B la valeur Collect.Add adres, Cells(i, 1).Value ''dans la colonne A le nom set adres = nothing Next   MsgBox Collect.item("ta variable").Text Collect.item("ta variable").Select

---

Ce code ne fonctionne pas car lorsqu'on déclare quelque chose avec Set, la valeur qu'on lui attribue doit être de type objet. Or ici la valeur d'une cellule n'est pas de type objet.
J'ai essayé de transformer la valeur de la cellule en objet grâce à la fonction Evaluate() mais le programme me renvois toujours l'erreur "incompatibilité de type" :bug:

Dommage l'idée paraissait bonne :(

Oui effectivement,
essaye comme cela ca fonctionne :

Code:

---

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

Sub test()   Dim Collect As New Collection Dim adres As Variant For i = 1 To 10 ' lignes adres = Cells(i, 2).Value 'dans la colonne B la valeur Collect.Add adres, Cells(i, 1).Value ''dans la colonne A le nom adres = "" Next   MsgBox Collect.Item("A")     End Sub

---

avec de A1 à A10 = A,b,c,d,....
et b1 à b10 des nombres

Oui ça marche, merci pour ton aide ;)