Ajout automatique de variables

Version imprimable

23/12/2014, 11h57
Hakha

Ajout automatique de variables

Bonjour à toutes et à tous,

Je travaille actuellement sur un logiciel de test pour composants électroniques et je rencontre un problème.
Je dois créer un rapport sous excel, en VBA (comme vous l'aurez deviné...), mais mes connaissances en VBA sont... inexistantes, j'ai touché à plusieurs outils de programmation (C, python, mathlab, scilab, labview,...) mais je n'ai jamais approfondie tout ça.

Je dois donc créer un rapport et ce qui me pose problème, c'est l'ajout de variable.
Je travaille sur une bom de plusieurs milliers de lignes et je souhaiterai, qu'à chaque changement de valeur dans une colonne, la macro me créé une variable.
La colonne concernée indique le nombre de fois qu'un composant est en parallèle, je peux donc me retrouver avec plusieurs centaines de variables...

Est-ce possible? Si oui, comment?

Merci à vous!

PS : si besoin est, je peux joindre un tableau pour exemple.
PS2 : je voudrais juste savoir comment automatiser la création d'une variable, je pense/espère pouvoir em débrouiller pour la suite de mon rapport.

bonjour,
tu peux définir tes variable avec un dictionnaire et les utiliser en les nommant.

Code:

1
2
3
4
5
6
7
8
 Sub test()
Set Ditionaire = CreateObject("Scripting.dictionary")
Ditionaire("A") = 1
Ditionaire("A") = Ditionaire("A") + 1
Ditionaire("C") = Ditionaire("A") * 5
Ditionaire("d") = "A1"
Range(Ditionaire("d")) = "toto"
End Sub

23/12/2014, 12h18
Hakha

Merci à toi rdurupt,

Est-t-il possible d'automatiser la définition de variables?
Je me vois mal écrire ceci plusieurs centaines de fois :S

Et, j'ai oublié de préciser, ma macro utilise des valeurs générées par un autre logiciel sous un .csv - j'importe donc les valeurs de ce csv - mais le csv peut évoluer radicalement (changement de carte, donc changement de schéma électrique, de bom etc) d'où le besoin de l'automatisation de la création de ces variables.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
 Private Sub test()
Set Ditionaire = CreateObject("Scripting.dictionary")
Dim r As Range
Dim L As Long
Set r = ActiveSheet.UsedRange
For L = 1 To r.Rows.Count
Ditionaire("" & r(L, 1)) = Ditionaire("" & r(L, 1)) + r(L, 2)
Next
For L = 0 To Ditionaire.Count - 1
Debug.Print Ditionaire("Var" & 1 + L)
Next
End Sub

23/12/2014, 13h53
Hakha

Hmm merci.
Ca va etre plus compliqué que ce que je pensais, je comprends rien 8O
Mais je vais bucher ça, encore merci à toi!
23/12/2014, 14h18
Invité
dictionary permet de créer dynamiquement un tableau de variable en leurs donnant un nom
Ditionaire("Variable1") par exemple!
si la colonne A contient le nom de tes variables et la colonne B la valeur

Code:

Ditionaire(range("A1"))=rabge("B1")

les variables sons créées à la volé tu les utilises c'est tout!
Code:

1 2 Set Ditionaire = CreateObject("Scripting.dictionary") Ditionaire(range("A1"))=range("B1")
23/12/2014, 14h27
Hakha

Ah okay, merci.

Et, petite précision, dans le code, c'est ditionaire ou diCtionaire?

Code:

1
2
3
dim Ditionaire as Object 'Je diclare une variable de type object
Set Ditionaire = CreateObject("Scripting.dictionary") 'J’instancie mon objet avec un type  dictionary
 Ditionaire(range("A1"))=range("B1") 'j'utilise ma variable

23/12/2014, 14h32
Hakha

Niquel merci :)