OVH Cloud OVH Cloud

array et boucle

7 réponses
Avatar
John Smith
Bonjour,

For control variable already in use

Dim i(1 To 50) As Integer
For i(1) = 1 To 2
For i(2) = 1 To 10
Next
Next
J'ai cette erreur quand je veux exécuter le code. Est ce que c'est possible
d'utiliser une array pour faire plusieurs boucles
Je donne un exemple avec 2 boucles mais pour l'appli que je dévelloper j'en
ai besoin de 50 imbriquées.

Merci

7 réponses

Avatar
parci
>For control variable already in use

Dim i(1 To 50) As Integer
For i(1) = 1 To 2
For i(2) = 1 To 10
Next
Next
J'ai cette erreur quand je veux exécuter le code. Est ce que c'est possible
d'utiliser une array pour faire plusieurs boucles



Non. Extrait de l'aide :
For...Next Statement
counter Required. Numeric variable used as a loop counter. The variable can't
be a Boolean or an array element.

Je donne un exemple avec 2 boucles mais pour l'appli que je dévelloper j'en
ai besoin de 50 imbriquées.



Ca me semble un peu curieux d'un point de vue conception. Tu veux faire quoi


--
Message monitoré par axinews : http://www.axinews.com
Avatar
X
Bonjour,

Je ne suis pas certain de tout comprendre, proposition:

Dim x(50,50) As Integer
dim i as long
dim j as long
'
for i = 1 to 50
for j = 1 to 50
x(i,j) = i * j ' exemple
next j
next i
-------------



"John Smith" a écrit dans le message de news:
0it3f.5008$
| Bonjour,
|
| For control variable already in use
|
| Dim i(1 To 50) As Integer
| For i(1) = 1 To 2
| For i(2) = 1 To 10
| Next
| Next
| J'ai cette erreur quand je veux exécuter le code. Est ce que c'est
possible
| d'utiliser une array pour faire plusieurs boucles
| Je donne un exemple avec 2 boucles mais pour l'appli que je dévelloper
j'en
| ai besoin de 50 imbriquées.
|
| Merci
|
|
Avatar
John Smith
J'ai un tableau dans excel avec des données et j'ai 50 colonnes et un nombre
x de rangé

Je copie les données pour faire des calculs



"X" <.> wrote in message news:%23UDlEw$
Bonjour,

Je ne suis pas certain de tout comprendre, proposition:

Dim x(50,50) As Integer
dim i as long
dim j as long
'
for i = 1 to 50
for j = 1 to 50
x(i,j) = i * j ' exemple
next j
next i
-------------



"John Smith" a écrit dans le message de news:
0it3f.5008$
| Bonjour,
|
| For control variable already in use
|
| Dim i(1 To 50) As Integer
| For i(1) = 1 To 2
| For i(2) = 1 To 10
| Next
| Next
| J'ai cette erreur quand je veux exécuter le code. Est ce que c'est
possible
| d'utiliser une array pour faire plusieurs boucles
| Je donne un exemple avec 2 boucles mais pour l'appli que je dévelloper
j'en
| ai besoin de 50 imbriquées.
|
| Merci
|
|




Avatar
ng
John Smith wrote:

Bonjour,


Salut,

For control variable already in use

Dim i(1 To 50) As Integer
For i(1) = 1 To 2
For i(2) = 1 To 10
Next
Next



Ca n'a pas bcp de sens, que veux-tu faire exactement ?

J'ai cette erreur quand je veux exécuter le code. Est ce que c'est
possible d'utiliser une array pour faire plusieurs boucles
Je donne un exemple avec 2 boucles mais pour l'appli que je dévelloper
j'en ai besoin de 50 imbriquées.


Ouh la !

Si tu doit avoir 50 For imbriqués c'est qu'il doit y avoir un problème de
conception dans ton appli !


--
Nicolas G.
FAQ VB : http://faq.vb.free.fr
API Guide : http://www.allapi.net
Google Groups : http://groups.google.fr/
MZ-Tools : http://www.mztools.com/
Avatar
John Smith
Malheuresement non !

J'ai un tableau dans excel pour chaque valeur je dois aller cherche un autre
tableau etc...

Ca fait beaucoup de valeurs et des boucles...
Finalement je fais dim A1,A2,...as integer

Merci pour vos réponses



"ng" wrote in message
news:%
John Smith wrote:

Bonjour,


Salut,

For control variable already in use

Dim i(1 To 50) As Integer
For i(1) = 1 To 2
For i(2) = 1 To 10
Next
Next



Ca n'a pas bcp de sens, que veux-tu faire exactement ?

J'ai cette erreur quand je veux exécuter le code. Est ce que c'est
possible d'utiliser une array pour faire plusieurs boucles
Je donne un exemple avec 2 boucles mais pour l'appli que je dévelloper
j'en ai besoin de 50 imbriquées.


Ouh la !

Si tu doit avoir 50 For imbriqués c'est qu'il doit y avoir un problème de
conception dans ton appli !


--
Nicolas G.
FAQ VB : http://faq.vb.free.fr
API Guide : http://www.allapi.net
Google Groups : http://groups.google.fr/
MZ-Tools : http://www.mztools.com/


Avatar
X
Bonsoir,

Mais là c'est bon x(i, j)

Ce qui ne l'aurait moins été:

for i for j for k jusqu'à 50...




"John Smith" a écrit dans le message de news:
qow3f.5728$
| Malheuresement non !
|
| J'ai un tableau dans excel pour chaque valeur je dois aller cherche un
autre
| tableau etc...
|
| Ca fait beaucoup de valeurs et des boucles...
| Finalement je fais dim A1,A2,...as integer
|
| Merci pour vos réponses
|
|
|
| "ng" wrote in message
| news:%
| > John Smith wrote:
| >
| >> Bonjour,
| > Salut,
| >
| >> For control variable already in use
| >>
| >> Dim i(1 To 50) As Integer
| >> For i(1) = 1 To 2
| >> For i(2) = 1 To 10
| >> Next
| >> Next
| >
| > Ca n'a pas bcp de sens, que veux-tu faire exactement ?
| >
| >> J'ai cette erreur quand je veux exécuter le code. Est ce que c'est
| >> possible d'utiliser une array pour faire plusieurs boucles
| >> Je donne un exemple avec 2 boucles mais pour l'appli que je dévelloper
| >> j'en ai besoin de 50 imbriquées.
| > Ouh la !
| >
| > Si tu doit avoir 50 For imbriqués c'est qu'il doit y avoir un problème
de
| > conception dans ton appli !
| >
| >
| > --
| > Nicolas G.
| > FAQ VB : http://faq.vb.free.fr
| > API Guide : http://www.allapi.net
| > Google Groups : http://groups.google.fr/
| > MZ-Tools : http://www.mztools.com/
|
|
Avatar
Patrice Henrio
Dans ce cas tu peux faire cela

For Colonne=1 to 50
For Ligne=1 to NbValeurs(Colonne)
Traitement
Next Ligne
next Colonne

Pour obtenir NbValeurs(1 to 50), soit tu le rentres à la main, soit tu crées
une ligne qui compte le nombre de ligne pour chaque colonne

Si tu n'as pas de trou dans tes données tu peux faire cela

For Colonne =1 to 50
Ligne=1
While Cells(Ligne,Colonne)<>""
Traitement
Ligne=Ligne+1
Wend
Next Colonne





"X" <.> a écrit dans le message de news:

Bonsoir,

Mais là c'est bon x(i, j)

Ce qui ne l'aurait moins été:

for i > for j > for k > jusqu'à 50...




"John Smith" a écrit dans le message de news:
qow3f.5728$
| Malheuresement non !
|
| J'ai un tableau dans excel pour chaque valeur je dois aller cherche un
autre
| tableau etc...
|
| Ca fait beaucoup de valeurs et des boucles...
| Finalement je fais dim A1,A2,...as integer
|
| Merci pour vos réponses
|
|
|
| "ng" wrote in message
| news:%
| > John Smith wrote:
| >
| >> Bonjour,
| > Salut,
| >
| >> For control variable already in use
| >>
| >> Dim i(1 To 50) As Integer
| >> For i(1) = 1 To 2
| >> For i(2) = 1 To 10
| >> Next
| >> Next
| >
| > Ca n'a pas bcp de sens, que veux-tu faire exactement ?
| >
| >> J'ai cette erreur quand je veux exécuter le code. Est ce que c'est
| >> possible d'utiliser une array pour faire plusieurs boucles
| >> Je donne un exemple avec 2 boucles mais pour l'appli que je
dévelloper
| >> j'en ai besoin de 50 imbriquées.
| > Ouh la !
| >
| > Si tu doit avoir 50 For imbriqués c'est qu'il doit y avoir un problème
de
| > conception dans ton appli !
| >
| >
| > --
| > Nicolas G.
| > FAQ VB : http://faq.vb.free.fr
| > API Guide : http://www.allapi.net
| > Google Groups : http://groups.google.fr/
| > MZ-Tools : http://www.mztools.com/
|
|