Modifier les bornes d'une boucle et refaire la boucle

[Venitien]

Bonjour!
Comment faire dans une boucle du type:

Start = 1
x = 10
For i = Start to x

code

Next i

pour que arriver à i = x, dire Start = x, x = x + 10 ??

J'ai tenté:

Start = 1
x = 10
For i = Start to x

code

If i = x Then
x = x + 10
Start = x
End If

Next i

Mais ça ne marche pas... arrivé à 10, le Next i n'est pas appliqué...

Une idée?

Merci!

 

[ERIC S]

Re : Modifier les bornes d'une boucle et refaire la boucle

Bonjour

si tu fais cela, tu t'arrêtes quand ??????
il y aura toujours 10 d'ajouté jusqu'à explosion

que veux-tu faire réellement, en français, pas en code

 

[Venitien]

Re : Modifier les bornes d'une boucle et refaire la boucle

Salut Eric,

Merci pour ta réponse, en continuant à chercher je suis arrivé à ça:

Start = 1
x = 3
debut:
For i = Start To x
newstart = x
MsgBox i
If i > 10 Then
Exit Sub
End If
If i = x Then
x = x + 3
Start = newstart + 1
GoTo debut
End If

Next i

ça marche que je voulais, merci tout de même d'avoir lu le post et de t'être intéressé au problème.

A+