XL 2010 Trier les sheets d'un classeur selon le contenu d'une case

[fattah_5791]

Bonjour à toutes & à tous,

merci de m'aider à trier les feuilles d'un classeur excel selon une case bien précise (ici dans mon exemple la case K7).
j'ai un applicatif sous excel (avec macros) qui traite les données des fichiers excel (voir exemple en PJ) mais j ai un petit probleme: les fichiers en questions se composent de plusieurs sheets que je désire les classer selon le contenu de leurs cases K7 (ordre croissant).

Rq: chaque classeur reçu contient au moins sheet

Cordialement

 

[phlaurent55]

Bonjour fattah,

avec ce code:

Sub Trier()
Application.ScreenUpdating = False

tri:
For j = 1 To Sheets.Count - 1
If Sheets(j).[K7] > Sheets(j + 1).[K7] Then
Sheets(j).Move After:=Sheets(j + 1)
GoTo tri
End If
Next j

Application.ScreenUpdating = True
End Sub

à+
Philippe

 

[phlaurent55]

Re,

voir fichier joint

à+
Philippe

 

[fattah_5791]

Merci infiniment, ca a marché en l"adaptant un peu

Merci encore