macro pour trier une plage sur plusieurs feuilles

[michel.dupont]

bonjour
je voudrais trier une plage sur plusieurs feuilles par macro...le tri ne se fait correctement car les entêtes de colonnes se retrouvent en dernière ligne.je joins un petit fichier pour votre compréhension et voir le code écrit.
merci de votre aide....
michel

 

[michel.dupont]

j'ai oublié le fichier...merci

 

[Staple1600]

Bonsoir le fil, le forum


Je te laisse essayer cette macro

Sub Triage()
Dim Sh As Worksheet, A_Trier As Range
Application.ScreenUpdating = False
For Each Sh In Worksheets
If Sh.Name <> "data" Then
Set A_Trier = Sh.Range("C2", Sh.Range("D" & Rows.Count).End(xlUp))
A_Trier.Sort A_Trier.Item(1), xlAscending, Header:=xlYes 
Set A_Trier = Nothing
End If
Next Sh
End Sub

 

[michel.dupont]

Sub Triage()
Dim Sh As Worksheet, A_Trier As Range
Application.ScreenUpdating = False
For Each Sh In Worksheets
If Sh.Name <> "data" Then
Set A_Trier = Sh.Range("C2", Sh.Range("D" & Rows.Count).End(xlUp))
A_Trier.Sort A_Trier.Item(1), xlAscending, Header:=xlYes
Set A_Trier = Nothing
End If
Next Sh
End Sub

 

[michel.dupont]

parfait! un grand merci
Michel

 

[michel.dupont]

j'ai été un peu vite.... et si je veux que le tri comprenne les colonnes a b c d e avec tri sur la colonne C...je rejoins mon fichier modifié
merci pour votre aide
Michel