Discussion :

[zxrenaud]

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

[Oliv-]

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

[zxrenaud]

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 ?

[Oliv-]

Quel type de variable est ce ?

[zxrenaud]

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

[Oliv-]

Ca semble convenir, essaye avec cela :

Code :

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

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

[zxrenaud]

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"

Dommage l'idée paraissait bonne

[Oliv-]

Oui effectivement,
essaye comme cela ca fonctionne :

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 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

[zxrenaud]

Oui ça marche, merci pour ton aide