Discussion :

[Be Cool]

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

[Godzestla]

Salut,

je ne crois pas que cela puisse fonctionner comme cela car :
* par ce systeme, tu changes aussi le numéro d'ordre de tes feuilles; celle que tu mets avant la 5 devient la 5 et la 5 devient 6 et donc ta boucle ne sait pas suivre ce changement.
Aussi, tu ne tiens pas compte du fait que la feuille est peut-être déja en place.

Essaie peut-être ceci :

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
 
    Dim swap as boolean
 
    Swap = True
 
While swap
    Swap = false
    For m = Worksheets.Count to 1 step - 1
 
        Sheets(m).Select
 
        VarEd = Sheets(m).Name
        NomEd = Right(VarEd, 3)
 
        Select Case NomEd
        Case "BAR"
            if m <> 5 then
               Sheets(m).Move before:=Sheets(5)
               swap = true 
               exit for
            endif
        Case ...
 
 
        Case Else
            MsgBox ("Lieu d'Edition non connue du programme(" & NomEd & ")")
            Sheets(m).Move after:=Sheets(Worksheets.Count)
        End Select
    Next
Wend

[Be Cool]

En fait j'ai rajouté un boucle autour de la boucle de base et c'est good.
Par contre, je pense que ça fait pas très beau à voir pour quelqu'un qui s'y connait plus, et par ailleurs, ma macro entière doit mettre 30sec à s'executer donc ça n'arrange rien.
Je vais voir avec ta version.

[Godzestla]

Salut,

je n'ai testé ma solution mais elle me semble bonne.
Je ne suis pas non plus spécialiste.

[zyhack]

bonjour


As tu plusieurs feuille qui commence par les même caractères pour utiliser ce style de code?

car sinon tu pourrais utiliser dirrectement quelque chose comme ça

Code :

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

Sheets("Feuil3").Move before:=Sheets("Feuil1")

pour chaque feuille non

[Be Cool]

Désolé du retard ^^

J'ai environ un 20ène de feuille toutes commençant par "ER_" + Date(jjmmaa) + "_###"

Exemple : "ER_260508_EPI"

Sinon, vis à vis de ce que je veux faire, refaire une boucle autour convient.