Boucle For avec un Step variable

[patamod]

Bonjour,

Je débute en VBA Excel, et l'informatique n'est pas mon domaine...

Je sais qu'on peut faire une boucle For avec un step différent de 1:
For i = 1 To 10 Step 2
x = i + 2
Next

Par contre, comment faire une boucle avec un step qui est variable et dépend de l'intérieur de la boucle ?
Le code suivant ne fonctionne pas :
For i = 1 To 10 Step x
x = i + 3
Next

Merci de votre aide
pat'

 

[gilbert_RGI]

Re : Boucle For avec un Step variable

bonjour

il faut pour commencer donner une première valeur à x

Sub test()
x = 2
For i = 1 To 10 Step x
MsgBox i
 x = i + 3
 Next
 
End Sub

 

[job75]

Re : Boucle For avec un Step variable

Bonjour patamod, bienvenue sur XLD, salut Gilbert,

Il faut savoir que dans une boucle For/Next la ligne contenant le For n'est exécutée qu'une fois.

Si l'on veut modifier la boucle on peut la recommencer avec un GoTo 1, 1 étant l'adresse de la 1ère ligne.

Mais attention au bouclage sans fin...

A+

 

[phlaurent55]

Re : Boucle For avec un Step variable

bojour à tous

serait plus aisé à réaliser en utilisant une boucle WHILE

à+
Philippe

 

[job75]

Re : Boucle For avec un Step variable

Re,

Pour illustrer ce que jai dit voyez cette macro :

Sub test()
Dim deb, x, i
deb = 1
x = 1
1 For i = deb To 12 Step x
  MsgBox i
  If i = 5 Then
    deb = i + 1
    x = 2
    GoTo 1
  End If
Next
End Sub

Edit : salut Philippe 🙂

A+

 

[patamod]

Re : Boucle For avec un Step variable

Superbe !
Sinon, c'est pas pour faire le difficile, mais il parait que les goto sont interdits 😉
Merci de vos réponses

 

[job75]

Re : Boucle For avec un Step variable

Re,

Sinon, c'est pas pour faire le difficile, mais il parait que les goto sont interdits 😉

Oui, comme les cellules fusionnées... Y a des saucissons comme ça qui trainent sur le forum...

En général on dit ça quand on ne sait pas les utiliser proprement 🙂

A+

 

[phlaurent55]

Re : Boucle For avec un Step variable

Re,

Pour illustrer mes propos au post#4

Sub Macro1()
pasdelaboucle = 1
x = 1
While x < 100
MsgBox ("Le pas actuel est de " & pasdelaboucle & vbCr & " La valeur de X est de " & x)
pasdelaboucle = Int((20 * Rnd) + 1)
x = x + pasdelaboucle
Wend
End Sub

voir fichier joint

à+
Philippe