Bonjour le Forum,
Je n'arrive pas à adapter de code existant à mon cas.
Je cherche à trier les feuilles semaines dans l'ordre inverse (un roulement d'environ 20 semaines) , en fonction du contenu de la date figurant en A9 dans chaque feuille. La plus récente à côté de ma feuille Exploitation.
J'utilise actuellement ce code :
Sub classer() Dim i, cel As Integer
On Error Resume Next
For i = 1 To 53
Sheets("S" & i).Move after:=Sheets("Exploitation")
Next i
On Error GoTo 0
End Sub
Cela marche, mais le classement se fait par le num de semaine. Je vais être coincé début d'année prochaine.
Dans l'exemple, je voudrais avoir : Exploitation, S2, S1, S52, S51, S3 (S3 étant de début 2014)
Merci pour votre aide éventuelle
Je n'arrive pas à adapter de code existant à mon cas.
Je cherche à trier les feuilles semaines dans l'ordre inverse (un roulement d'environ 20 semaines) , en fonction du contenu de la date figurant en A9 dans chaque feuille. La plus récente à côté de ma feuille Exploitation.
J'utilise actuellement ce code :
Sub classer() Dim i, cel As Integer
On Error Resume Next
For i = 1 To 53
Sheets("S" & i).Move after:=Sheets("Exploitation")
Next i
On Error GoTo 0
End Sub
Cela marche, mais le classement se fait par le num de semaine. Je vais être coincé début d'année prochaine.
Dans l'exemple, je voudrais avoir : Exploitation, S2, S1, S52, S51, S3 (S3 étant de début 2014)
Merci pour votre aide éventuelle