déplacer une feuille

[cmalifarge]

Bonjour à tous en cherchant sur le forum, j'ai touvé cette petite macro qui correspond presque à ce que je cherche:

For i = 1 To Sheets.Count
ActiveSheet.Select
ActiveSheet.Move Before:=Sheets(i)
Next i

'
End Sub


Ce que j'aimerai c'est que la feuille ne se déplace pas en dernier mais se décale uniquement d'une place à chaque fois que j'utilise la macro.

merci pour votre aide

 

[Pierrot93]

Re : déplacer une feuille

Bonjour,

essaye peut être ceci :

With ActiveSheet
    If .Index < Sheets.Count Then .Move after:=Sheets(.Index + 1)
End With

bon après midi
@+

 

[cmalifarge]

Re : déplacer une feuille

ça marche, c'est exactement ce que je voulais.

Merci Bon WE