inverser le sens d'exectution d'une boucle For

[Tech]

Bonjour le forum,

J'ai une petite question

exemple de code tout bête :

Sub toto()
tutu = 1
For Each e In [D19:B3]
e.Value = tutu
tutu = tutu + 1
Next
End Sub

avec ce code, les cellules s'incrémentent toujours dans le même sens. J'ai essayé en inversant simplement D19 et B3 mais visiblement, ce n'est pas la solution.

Quelqu'un pourrait-il me donner le truc ???
merci d'avance.
Tech

 

[Yaloo]

Re : inverser le sens d'exectution d'une boucle For

Bonsoir Tech,

Avec une double boucle :

Sub toto()
tutu = 1
For e = 19 To 3 Step -1
For c = 4 To 2 Step -1
Cells(e, c).Value = tutu
tutu = tutu + 1
Next c
Next
End Sub

Mais je ne suis pas sur que cela te convienne

A te relire

Martial

 

[Tech]

Re : inverser le sens d'exectution d'une boucle For

Bonsoir Yaloo,

Merci pour ta réponse,

Ça complique vraiment les choses ça

En fait j'essaie de boucler sur des cellules comprises dans une plage genre F32:H43 et j'aurais voulu commencer par la fin.

Mais bon, j'ai trouvé une solution j'ai inversé le contenu de mes cellules

Re merci Yaloo.
@+
Tech