Bonjour le forum,
J'ai un fichier (ci-joint) avec plusieurs onglets que je veux trier, et d'autres qui ne doivent pas être triés.
J'ai essayé cette macro, mais elle ne fonctionne pas:
Sub trier()
For Each f In ActiveWorkbook.Sheets
s = f.Name
If s <> "1" And s <> "2" And s <> "3" Then
Range("A5", Selection.End(xlDown)).Select
Selection.Sort Key1:=Range("A5"), Order1:=xlAscending, nHeader:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
End If
Next
End Sub
Pourriez-vous me dire ce que je dois modifier pour que cela fonctionne ?
Merci d'avance!
FAUB
J'ai un fichier (ci-joint) avec plusieurs onglets que je veux trier, et d'autres qui ne doivent pas être triés.
J'ai essayé cette macro, mais elle ne fonctionne pas:
Sub trier()
For Each f In ActiveWorkbook.Sheets
s = f.Name
If s <> "1" And s <> "2" And s <> "3" Then
Range("A5", Selection.End(xlDown)).Select
Selection.Sort Key1:=Range("A5"), Order1:=xlAscending, nHeader:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
End If
Next
End Sub
Pourriez-vous me dire ce que je dois modifier pour que cela fonctionne ?
Merci d'avance!
FAUB