T
temis01
Guest
Bonjour,
J'ai un petit module qui crée un fichier XL (2000) et écrit des donnée dans la première feuille tout cela sans problème.
Mais impossible trier les données sur la deuxième colonne, j'ai essayé pas mal de versions de code trouvé sur le net mais aucun ne fonctionne, même celle créée par macro excel :
Range("B1").Select
ActiveWorkbook.Worksheets("Feuil1").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Feuil1").Sort.SortFields.Add Key:=Range("B1"), _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Feuil1").Sort
.SetRange Range("A2:H307")
.Header = xlNo
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Merci de votre aide
J'ai un petit module qui crée un fichier XL (2000) et écrit des donnée dans la première feuille tout cela sans problème.
Mais impossible trier les données sur la deuxième colonne, j'ai essayé pas mal de versions de code trouvé sur le net mais aucun ne fonctionne, même celle créée par macro excel :
Range("B1").Select
ActiveWorkbook.Worksheets("Feuil1").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Feuil1").Sort.SortFields.Add Key:=Range("B1"), _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Feuil1").Sort
.SetRange Range("A2:H307")
.Header = xlNo
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Merci de votre aide