macro pour trier une plage sur plusieurs feuilles

michel.dupont

XLDnaute Occasionnel
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
 

Staple1600

XLDnaute Barbatruc
Bonsoir le fil, le forum


Je te laisse essayer cette macro
VB:
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
 

Discussions similaires