Inverser ma boucle For Next

[Hulk]

Hello,

Avec une macro je fais une p'tite boucle For Next, le pb c'est que je souhaiterais avoir le même résultat, mais en sens inverse et je n'arrive pas à le faire grr...

Voyez plutôt le fichier joint.

Un petit coup de main serait le bienvenu 🙄

Merci à tous !

Hulk.

 

[jeanpierre]

Re : Inverser ma boucle For Next

Bonsoir Hulk,

Modifie cette ligne comme suit : [A1].Offset(0, 7 - i) = "=2^" & i

Bonne soirée.

Jean-Pierre

 

[jeanpierre]

Re : Inverser ma boucle For Next

Re,

Et si tu veux obligatoirement commencer en A1 :

For i = 7 To 0 Step -1

[A1].Offset(0, 7 - i) = "=2^" & i

Jean-Pierre

 

[Hulk]

Re : Inverser ma boucle For Next

Hello,

Et voilà c'est là qu'on voit le MEGA Barbatruc !

Merci Jeanpierre et chapeau.

Cdt, Hulk.

 

[fhoest]

Re : Inverser ma boucle For Next

peut etre trop tard mais ...
Private Sub CommandButton1_Click()

For i = 0 To 7
[A1].Offset(0, i) = "=2^" & i
Next i
For i = 7 To 0 Step -1
[h3].Offset(0, -i) = "=2^" & i
Next i
End Sub
fhoest
bonne soirée.

 

[Hulk]

Re : Inverser ma boucle For Next

Re,

Joli Fhoest.. Mais j'avoue quand même avoir une petite préférence pour celle de Jeanpierre 🙄

Je la mets quand même dans mon tiroir 😀 merci !

Cdt, Hulk.