Discussion :

[vanyk]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Krovax]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Lynx92260]

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 !!!!!!

[vanyk]

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