Fonction sort dans Excel avec VBA

Bonjour à tous

J'essais de trier une colonne dans Excel via VBA mais j'ai quelques problèmes de gestion de format de cellule. Voici un brève idée de ce que je veux trier
20
3.5
20
1

Voici le code que j'utilise présentement.

Code:

---

1 2 3

Worksheets("Grouping RA aqueous").Activate Rows("18:2000").Select Selection.sort Key1:=Range("D18"), order1:=xlDescending, dataoption1:=xlSortValues, ordercustom:=4, MatchCase:=False, Orientation:=xlTopToBottom

---

Le problème est que la valeur de 3,5 est trier comme texteèt apparait à la fin de la colonne comme ci

1
20
20
3.5

Pouvez-vous m'aider?

Merci

Bonsoir,
Je vois deux possibilité
La première dans les paramètre régionaux windows définr le . comme séparateur de décimal (ce qui est particulièrement pratique si ton utilisateur lambda fait de même)

Sinon la deuxième solution remplacer le . par une ,

En utilisant ton code

Code:

---

1 2 3 4 5 6

Worksheets("Grouping RA aqueous").Activate Rows("18:2000").Select Selection.Replace What:=".", Replacement:=",", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _ ReplaceFormat:=False Selection.sort Key1:=Range("D18"), order1:=xlDescending, dataoption1:=xlSortValues, ordercustom:=4, MatchCase:=False, Orientation:=xlTopToBottom

---

Une version un peu plus jolie (sans les select) qui devrais également fonctionner

Code:

---

1 2 3 4

Worksheets("Grouping RA aqueous").Rows("18:2000").Replace What:=".", Replacement:=",", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _ ReplaceFormat:=False Worksheets("Grouping RA aqueous").Rows("18:2000").sort Key1:=Range("D18"), order1:=xlDescending, dataoption1:=xlSortValues, ordercustom:=4, MatchCase:=False, Orientation:=xlTopToBottom

---

Bonjour ,

Pour que le tri s'opére correctement , il faut avant tout que la colonne contenant des chiffres ont tous un format numérique .
Apparemment excel a considéré lors de la saisie 3.5 comme du texte donc format cellule ...Nombre etc ........ et verifié quel est le séparateur decimal dans ta version excel . Car une version excel anglais dans un environnement francais c'est trés ardu !!!!!!

:ccool:

Merci beaucoup pour ton aide. Ça marche très bien. J'ai seulemnt inversé le point et la virgule et tout fonctionne à merveille.