[E-00][VBA]Déplacement de feuilles

Version imprimable

Bonjour,

J'ai besoin que 7 feuilles soient les 7 premières du classeur pour exécuter un traitement.
J'ai utilisé ce code.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 nbFeuilles = ThisWorkbook.Sheets.Count Sheets("A1").Move after:=Sheets(nbFeuilles) Sheets("A2").Move after:=Sheets(nbFeuilles) Sheets("A3").Move after:=Sheets(nbFeuilles) Sheets("A4").Move after:=Sheets(nbFeuilles) Sheets("A5").Move after:=Sheets(nbFeuilles) Sheets("A6").Move after:=Sheets(nbFeuilles) Sheets("A7").Move after:=Sheets(nbFeuilles) While Sheets(1).Name <> "A1" Sheets(1).Move after:=Sheets(nbFeuilles) Wend
je me dis qu'il existe sûrement une méthode plus "élégante" peut-être avec une variable tableau, variable que je n'ai jamais utilisée.

Merci d'avance à ceux qui me répondront.

Bruno

Bonjour.

Je te propose ceci

Code:

1
2
3
4
5
6
7
8
Dim i As Integer
 
With Application.ThisWorkbook
    .Sheets("A1").Move .Sheets(1)
    For i = 2 To 7
        .Sheets("A" & i).Move , .Sheets("A" & i - 1)
    Next i
End With

Surtout, ne pas enlever la virgule du deuxième Move.

Cordialement,

PGZ

29/11/2008, 18h39
Brunodm13

Bonsoir pgz,

cela fonctionne et est plus élégant que ce que j'avais fait.

Merci !

Cordialement.

Bruno

Edit :
Merci à Philippe JOCHMANS d'avoir déplacé mon message.