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
 

michel.dupont

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

Créez un compte ou connectez vous pour répondre

Vous devez être membre afin de pouvoir répondre ici

Créer un compte

Créez un compte Excel Downloads. C'est simple!

Connexion

Vous avez déjà un compte? Connectez vous ici.

Haut Bas