Discussion :

[mustang-ffw02]

Bonjour à tous,

Je suis en plein développement d'un projet VBA Excel.
Je souhaiterais savoir s'il est possible d'écrire toutes les variables du projets y compris les tableaux dans un fichier texte à la fin du programme par exemple.

A part le faire variables par variables je ne vois pas. Peut être existe t-il une classe dans laquelle ont pourrait faire un "For each variable..."

Merci par avance de votre participation.

[edelweisseric]

Bonjour à tous
Bonjour mustang-ffw02

Si j'ai bien compris ton pb, je metterais chaque variable dans un tableau (array), puis je ferais un tableau de tableau, et je ferais une boucle pour les écrire dans un fichier texte.

Eric

[Godzestla]

Bonjour,
dans quel but souhaites-tu ainsi sauver toutes les variables ?

J'ai aussi envie de dire, pourquoi toutes ?

[Invité]

Bonsoir,

Il est conseillé de déclarer les variables et d'autant plus lorsqu'elles sont nombreuses.

Si vous le faites, n'est-ce pas facile de faire un copier/coller des lignes de déclaration ?

[mustang-ffw02]

En fait, mon programme fait de très nombreux calcul mathétique. Je voulais, dans un cadre de développement, m'assurer des valeurs des variables.

Apparemment ca a l'air pas simple, apart se les frapper une par une.

Merci en tout cas de votre aide.

[Invité]

En fait, mon programme fait de très nombreux calculs mathétiques. Je voulais, dans un cadre de développement, m'assurer des valeurs des variables.

Je ne comprends pas très bien.

Pour vous assurer de la valeurs des variables, ce n'est pas utile de les lister dans un autre fichier, mais après tout cela peut vous permettre de vérifier que vous les avez toutes testées.

Et pour les tester, je pense qu'il n'y a pas d'autre solutions que de passer en mode débogage, puis en pas-à-pas détaillé et afficher la fenêtre des variables locales, mais je me trompe peut-être.

[edelweisseric]

Bonsoir à tous

Si tu tiens au fichier, une suggestion :

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
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
Option Explicit
 
Sub tableau_de_tableau()
Dim Montab, valeur1, valeur2, valeur3
Dim var1, var2, var3
Dim a  As Integer
Dim nbvar   'nombre de variables
Dim mesvariables As String
 
nbvar = 2   'pour l'exemple
'...... ton code
var1 = "zero"   ' ou var1= range("x22").....
'...... ton code
var2 = "1"       ' ou ......
'...... ton code
var3 = "2"       ' ou ......
 
'...... ton code
'......
'......
 
valeur1 = Array("var1 : ", var1)
valeur2 = Array("var2 : ", var2)
valeur3 = Array("var3 : ", var3)
Montab = Array(valeur1, valeur2, valeur3)
 
For a = 0 To nbvar
        mesvariables = mesvariables & Montab(a)(0) & Montab(a)(1) & vbCr    'ou & vbTab
Next a
 
'+ boucle sur les tableaux si nécessaire
 
MsgBox mesvariables
 
Open "c:\mesvariables" & ".txt" For Output As #1
Print #1, mesvariables
Close #1
 
End Sub

Eric

[mustang-ffw02]

Merci pour vos suggestions, je vais voir le mieux pour mon programme.

Merci à tous.