macro pour trier une plage sur plusieurs feuilles

M

michel.dupont

XLDnaute Occasionnel

• 13 Mars 2018

• #2

j'ai oublié le fichier...merci

 

Pièces jointes

• essia.xlsm

  19.4 KB · Affichages: 30

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 13 Mars 2018

• #3

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

 

Vote positif 0 Vote négatif

M

michel.dupont

XLDnaute Occasionnel

• 15 Mars 2018

• #4

Staple1600 à dit:

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

Cliquez pour agrandir...

 

Vote positif 0 Vote négatif

M

michel.dupont

XLDnaute Occasionnel

• 15 Mars 2018

• #5

parfait! un grand merci
Michel

 

Vote positif 0 Vote négatif

M

michel.dupont

XLDnaute Occasionnel

• 15 Mars 2018

• #6

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

 

Pièces jointes

• Copie de Copie de essia.xlsm

  21.8 KB · Affichages: 28

Vote positif 0 Vote négatif