Discussion :

[Brunodm13]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[pgz]

Bonjour.

Je te propose ceci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[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.