Discussion :

[docteurdorian]

Bonjour j'ai un petit probleme avec une variable.

j'ai fait un petit exemple pour expliquer :

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
Sub comptage()
 
fin = 4
solde2 = 4
solde3 = 6
solde4 = 1
 
For n = 2 To fin
 
rr = ("solde" & n)
 
MsgBox (rr)
Next n
 
End Sub

ceci m'affiche 3 box successives dont le texte est "solde2" puis "solde3" puis "solde4".
hors moi je voudrais voir affiché le contenu de ces variables, c'est à dire "4"
"6" et "1".

je suis désolé car je sais que ça doit etre plutot simple mais je ne trouve pas de réponse sur le forum.

merci beaucoup!!

[Jean-Philippe André]

salut,
un exemple de solution en modifiant un peu ton approche a ete apporte ici :
http://www.developpez.net/forums/d96...ener-variable/

[docteurdorian]

merci à toi pour ta réponse.
par contre je suis un peu perdu et je n'arrive pas à adapter cette discussion à mon probleme.

sans me macher le travail, peux tu me mettre sur la voie?

merci beaucoup

[Jean-Philippe André]

Bien sur,

au lieu d'utiliser n variables avec un libelle incremente, tu peux utiliser un tableau a n valeurs.


ton

Code :

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

1
2
3
solde2 = 4
solde3 = 6
solde4 = 1

devenant

Code :

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

1
2
3
solde(2) = 4
solde(3) = 6
solde(4) = 1

Je te laisse trouver la ligne de declaration et le code pour afficher les resultats

[docteurdorian]

ca y est j'ai trouvé :

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
Sub Test()
 
Dim solde(5)
solde(1) = 4
solde(2) = 6
solde(3) = 1
Application.Run "Essai", solde
 
End Sub
 
Sub Essai(B)
 
For n = 1 To 3
MsgBox B(n)
Next n
 
End Sub

encore plus simple :

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
Sub comptage()
 
Dim solde(5)
fin = 4
 
solde(2) = 4
solde(3) = 6
solde(4) = 1
 
For n = 2 To fin
 
MsgBox (solde(n))
 
Next n
 
End Sub

merci encore!