J'utilise les case pour trier mes feuilles dans un ordre bien precis.
Le problème est que sauf pour certaines feuilles, les autres ne sont pas à leurs places.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48 For m = 1 To Worksheets.Count Sheets(m).Select VarEd = Sheets(m).Name NomEd = Right(VarEd, 3) Select Case NomEd Case "BAR" Sheets(m).Move before:=Sheets(5) Case "BEL" Sheets(m).Move before:=Sheets(6) Case "BES" Sheets(m).Move before:=Sheets(1) Case "EPI" Sheets(m).Move before:=Sheets(17) Case "GBN" Sheets(m).Move before:=Sheets(9) Case "GBS" Sheets(m).Move before:=Sheets(11) Case "LUN" Sheets(m).Move before:=Sheets(13) Case "MTB" Sheets(m).Move before:=Sheets(4) Case "NCY" Sheets(m).Move before:=Sheets(14) Case "NEU" Sheets(m).Move before:=Sheets(12) Case "PTM" Sheets(m).Move before:=Sheets(8) Case "PTR" Sheets(m).Move before:=Sheets(3) Case "REM" Sheets(m).Move before:=Sheets(16) Case "STD" Sheets(m).Move before:=Sheets(15) Case "TOU" Sheets(m).Move before:=Sheets(10) Case "VER" Sheets(m).Move before:=Sheets(7) Case "VES" Sheets(m).Move before:=Sheets(2) Case Else MsgBox ("Lieu d'Edition non connue du programme(" & NomEd & ")") Sheets(m).Move after:=Sheets(Worksheets.Count) End Select Next
J'avoue que là je vois pas tellement ce qui ne va pas
[edit] Erf, le pas à pas m'à fait comprendre ma connerie, Désolé du post![]()
Partager