salut à tous
a priori rien de compliqué mais le code suivant ne fonctionne pas :
ActiveSheet.Columns('A:A').Select
Selection.Sort Key1:=Range('A1'), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
si quelqu'un a la solution?
merci
a priori rien de compliqué mais le code suivant ne fonctionne pas :
ActiveSheet.Columns('A:A').Select
Selection.Sort Key1:=Range('A1'), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
si quelqu'un a la solution?
merci