Valeur variable dans boucle

[brdad]

Bonjour tout le monde,
J'ai un petit probleme que vous allez certainement pouvoir m'aider à résoudre

j'ai des variables :

aa1 = "2"
aa2 = "3"
aa3 = "4"
aa4 = "5"
aa5 = "6"
aa6 = "7"
aa7 = "8"
aa8 = "16"
aa9 = "11"
aa10 = "19"
aa11 = "20"

je voudrais les utiliser dans une boucle
si j'utilise la boucle suivante
for i=1 to 11
k="aa"&1
next

j'obtiens :
k=aa1 puis aa2...

je voudrais obtenir :
k=1 puis 2...c'est à dire la valeur de aa1, aa2...

comment faire

Merci d'avance pour votre aide

Bruno

 

[Hervé]

Re : Valeur variable dans boucle

bonjour

essaye comme ceci, pour la boucle :

for i=1 to 11
k="aa" & i
next

salut

 

[Hervé]

Re : Valeur variable dans boucle

re

je dis n'importe quoi moi

il faut que tu passes par un tableau, comme ceci :

Dim aa(1 To 11) As String

aa(1) = "2"
aa(2) = "3"
aa(3) = "4"
aa(4) = "5"
aa(5) = "6"
aa(6) = "7"
aa(7) = "8"
aa(8) = "16"
aa(9) = "11"
aa(10) = "19"
aa(11) = "20"
For i = 1 To 11
k = aa(i)
Next

salut

 

[Bernard_XLD]

Re : Valeur variable dans boucle

Bonjour Brard, Hervé, le forum

la même chose en plus court

Option Base 1
Sub Demo_Tab()
aa = Array(2, 3, 4, 5, 6, 7, 8, 16, 11, 19, 20)
For I=1 to 11
k = aa(I)
Next I
End Sub

Cordialement, A+

 

[brdad]

Re : Valeur variable dans boucle

Merci beaucoup pour votre aide

 

[Hervé]

Re : Valeur variable dans boucle

re 🙂

encore plus court :

For Each el In Array(2, 3, 4, 5, 6, 7, 8, 16, 11, 19, 20)
k = el
Next el

plus moche aussi :

For i = 0 To UBound(Array(2, 3, 4, 5, 6, 7, 8, 16, 11, 19, 20))
k = Array(2, 3, 4, 5, 6, 7, 8, 16, 11, 19, 20)(i)
Next i

salut