On suppose que les noms des onglets sont en colonne A de la 1ere feuille:
a = Sheets(1).Range([A2], [A65000].End(xlUp)) For i = 1 To UBound(a) On Error Resume Next Sheets(CStr(a(i, 1))).Move before:=Sheets(i + 1) Next i
http://cjoint.com/?hBpSewtUhA
JB
On 27 juil, 15:42, Superman wrote:
Quelle imbécile je me suis trompé lol !
En fait ce que je veux aprés le tri c'est : Janvier Mars Juin Novembre Décembre
Désolé et merci !
JB
Autre solution:
a = Array("Janvier", "Février", "Mars", "Avril", "Mai", "Juin", "Juillet") For i = 1 To UBound(a) On Error Resume Next Sheets(CStr(a(i))).Move before:=Sheets(i + 1) Next i
JB
On 27 juil, 15:42, Superman wrote:
Quelle imbécile je me suis trompé lol !
En fait ce que je veux aprés le tri c'est : Janvier Mars Juin Novembre Décembre
Désolé et merci !
Autre solution:
a = Array("Janvier", "Février", "Mars", "Avril", "Mai", "Juin",
"Juillet")
For i = 1 To UBound(a)
On Error Resume Next
Sheets(CStr(a(i))).Move before:=Sheets(i + 1)
Next i
JB
On 27 juil, 15:42, Superman <john.am...@free.fr> wrote:
Quelle imbécile je me suis trompé lol !
En fait ce que je veux aprés le tri c'est :
Janvier Mars Juin Novembre Décembre
a = Array("Janvier", "Février", "Mars", "Avril", "Mai", "Juin", "Juillet") For i = 1 To UBound(a) On Error Resume Next Sheets(CStr(a(i))).Move before:=Sheets(i + 1) Next i
JB
On 27 juil, 15:42, Superman wrote:
Quelle imbécile je me suis trompé lol !
En fait ce que je veux aprés le tri c'est : Janvier Mars Juin Novembre Décembre