Bonjour,
Jai un code que je voudrais l'appliquer à toutes mes feuilles EXCEL de mon classeur (à par la première "Feuil1"). J'ai tenté ma chance avec mes connaissances basiques en VBA mais ça n'a pas aboutit. ci-dessous mon code:
Merci pour votre aide
Jai un code que je voudrais l'appliquer à toutes mes feuilles EXCEL de mon classeur (à par la première "Feuil1"). J'ai tenté ma chance avec mes connaissances basiques en VBA mais ça n'a pas aboutit. ci-dessous mon code:
Code:
Dim Feuille As Worksheet
For Each Feuille In ThisWorkbook.Worksheets
If Feuille.Name <> "Feuil1" Then
Range("A1").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.AutoFilter
Range("A1").Select
Sheets(Feuille.Name).AutoFilter.Sort.SortFields.Clear
ActiveWorkbook.Worksheets(Feuille.Name).AutoFilter.Sort.SortFields.Add Key:=Range _
("A1:A11"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
With ActiveWorkbook.Worksheets(Feuille.Name).AutoFilter.Sort
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End If
Next Feuille
Merci pour votre aide