Pb avec TRI décroissant VBA
Bonjour amis Excellien,
Voilà mon probléme.
J'extrais un fichier d'une autre application au format Excel vers Excel, et je souhaite trier une colonne comportant des valeurs numériques.
Alors manuellement AUCUN SOUCIS, après mon extraction ces valeurs étant des décimals avec des points, je fais une recherche/remplace le . par , et ensuite je trie la colonne par ordre décroissant, NICKEL ça marche tout le temps.
Mais quand je le code en VBA =>>>>> Badaboum ..... ca veut pas trier correctement
Je n'ai de fichier d'exemple et j'espere que vous m'en tiendrez pas rigueur, voici le code en question, si une âme charitable pouvait me dire ce qui ne va pas.
Columns(6).Select
With Selection
.Replace What:=".", Replacement:=","
.NumberFormat = "00.00"
.HorizontalAlignment = xlRight
End With
Range("a1:n" & nbval).Select
Selection.Sort key1:=Range("f1"), order1:=xlDescending, Header:=xlGuess, _
ordercustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
dataoption1:=xlSortNormal
Bonjour
Normalement (cela peut paraitre bizarre) mais tu fais un remplacement du point par...... un point
Testes
Columns(6).Select
With Selection
.Replace What:=".", Replacement:="."
.NumberFormat = "00.00"
.HorizontalAlignment = xlRight
End With
Range("a1:n" & nbval).Select
Selection.Sort key1:=Range("f1"), order1:=xlDescending, Header:=xlGuess, _
ordercustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
dataoption1:=xlSortNormalExcellent,
MERCI BEAUCOUP pour l'astuce
Merci et dire que je patine sur ce sujet depuis...... 08h00 du mat, c'est dire....
MERCI
MERCI
MERCI