[VBA] Problème de tri.

Voila, j'ai réalisé un programme de gestion de concours équestre sous excel, et j'ai un petit problème que je n'arrive pas à régler.
Je vous explique. Une fois que tous les paramètres sont saisis, mon programme doit trier les résultats en fonctions des points de pénalités, jusque là il n'y a pas de problème. Le problème c'est que lors du tri, il ne tiens pas compte des décimales, par exemple si il y a des valeurs du genre: "4"; "12"; "6,5"; "8" il va trier comme cela: "4"; "8";"12";"6,5" alors que je souhaite qu'il tri comme cela: "4";"6,5";"8";"12" ce qui serait le plus logique. Il semblerait qu'excel n'arrive pas a gérer la décimale.
Auriez-vous une idée afin qu'il tri de la façon souhaitez ?

Voila mon code de tri:

Code:

---

Feuil1.Range("B3:E154").Sort Key1:=Feuil1.Range("E3"), Order1:=xlAscending, Header:=xlYes, OrderCustom:=1, MatchCase:=True, Orientation:=xlTopToBottom

---

Je vous joint mon fichier pour que vous puissiez tester par vous même. Merci de ne pas le modifier, donnez moi simplement les codes à modifier.

Merci beaucoup.
Elangel2008.

Bonjour

Regardes d'abord dans les paramètres régionaux Windows (c'est dans le panneau de configuration) quel est le séparateur décimal.

Si c'est le point, il faut saisir un point à la place de la virgule.

Philippe

Bonjour,
Je suis d'accord avec Philippe JOCHMANS toutefois, ça veux réussir que je suis juste confronté à un problème similaire..
J'ai le séparateur de décimale = la virgule.
Dans un UF j'ai un TextBox qui copie sa donnée depuis une cellule, cela s'inscrit donc dans le textbox avec la virgule mais si je sauve la donnée du TextBox tel quel les décimales sont disparues.
J'ai contourner le problème en remplacant la virgule par un point (dans le textbox)
Je ne maitrise pas encore bien le 2007 alors je ne sais pas s'il y a une autre conditions à modifier dans les options ou si c'est un bug. Quoi qu'il en soit, peut-être essayer de faire d'abord un replace de la virgule par un point avant le tri.
A+

Bonjour,

LeForestier, pas sur que le problème soit le même :koi:

Peux-tu nous donner ton code ?

Il s'agit peut être d'un problème de typage ? genre:
(à valider séparément ;) )

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

Private Sub UserForm_Initialize() Dim toto As Double   TextBox1 = Cells(3, 2) ' 123,54 dans ce cas toto = TextBox1.Value MsgBox toto Cells(3, 4) = TextBox1 Cells(3, 5) = toto End Sub   'Private Sub UserForm_Initialize() 'Dim toto As Long ' 'TextBox1 = Cells(3, 2) ' 123,54 dans ce cas 'toto = TextBox1.Value 'MsgBox toto 'Cells(3, 4) = TextBox1 'Cells(3, 5) = toto 'End Sub

---

2003, 2007 = idem / sachant que textbox = string et interprétation feuille ensuite.
cordialement,

Didier

Bonjour,

Elangel2008

Il me semble ne voir qu’une explication à ton phénomène (indépendante / version).

Vu que tu utilises des labels (texbox = même combat), tu retournes des strings, quand tu les mets dans les cellules, Excel interprète au mieux ce que tu lui fournis.
Philippe t’a donné la piste ;)

Je pense que les valeurs décimales que tu as dans tes labels sont rédigées ainsi : « 6,5 ». Hors tu manie ça en vba, le séparateur décimal du vba est le « . », quand tu écris la valeur dans ta feuille, l’interpréteur la prend comme un string (Ce que tu dois voir => vu que l’alignement naturel des strings se fait à gauche et non à droite comme les nombres).

La gestion d’ordre de tri d’Excel ensuite te donne, fort logiquement, le résultat qui te pose problème vu qu’il commence par les valeurs numériques…
Si tu saisis la même séquence de nombres direct dans la feuille, tu as, fort logiquement, le résultat attendu vu que le séparateur décimal de ta feuille est la virgule…

vois ici pour comprendre le phénomène :

http://www.developpez.net/forums/d55...istreur-macro/

D'un autre côté, peu de contributeurs ouvrent les fichiers joints, et tu pourrais dans ce cas avoir le courage de fournir un tableau rempli pour que la personne n'ai pas à le faire à ta place ... ;)

cordialement,

Didier

Bonjour Ormonth et merci de ta réaction,
Suite à tes explications j'ai d'abord pensé que c'était à cause que mes TextBox sont enrégistrés dans une collection, mais non, c'est pas à cause de ça...
colle ce code dans un UF, deux boutons et un TextBox

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Option Explicit   Private Sub CommandButton1_Click() Sheets("Feuil1").Cells(3, 2) = TextBox1.Value End Sub   Private Sub CommandButton2_Click() Sheets("Feuil1").Cells(3, 2) = Val(TextBox1.Value) End Sub   Private Sub UserForm_Initialize() TextBox1.Value = Sheets("Feuil1").Cells(3, 2) End Sub

---

Dans B3 tu tape un nombre avec décimale, ensuite ouvrir UF
Bouton1 : la cellule est en texte.(en standard aligné à gauche)
Bouton2 : pas de décimale
Bien entendu, sans changer le libellé de TextBox.
Maintenant, dans le TextBox, remplace la virgule par un point et clic sur le bouton2.
Tu dis, ;)
A+

re bonjour LeForestier ;)

Oui, c'est normal pour Excel , on avait approché le problème récemment ici :

http://www.developpez.net/forums/d85...rder-virgules/ 15h06

C'est dû aux séparateurs décimaux comme vu dans le lien indiqué pour Elangel2008 et à la particularité de la fonction VAL :

Citation:

---

Note La fonction Val ne reconnaît que le point comme séparateur décimal (.). Lors de l'utilisation d'autres séparateurs décimaux (applications internationales, par exemple), convertissez la chaîne en nombre à l'aide de la fonction CDbl.

---

donc ton exemple sera OK ainsi :

Code:

---

1 2 3

Private Sub CommandButton2_Click() Sheets("Feuil1").Cells(3, 2) = CDbl(TextBox1.Value) End Sub

---

si tu gardes bien la virgule en saisie :D

cordialement,

Didier

Effectivement, c'est régler à condition que je ne modifie pas le textBox
Autre constattion,
Si je tape dans une cellule 3.56 avec le pavé numérique, excel transcode directement en 3,56.
si je tape exactement la même chose dans le textbox j'ai 3.56 >> OK je clic sur bouton2 et j'ai dans la cellule 356 ???
Il y a quand même certaine bizarrerie dans excel.
A+
Edit :
Mon problème est régler avec

Code:

---

1 2 3

Private Sub CommandButton2_Click() Sheets("Feuil1").Cells(3, 2) = CDbl(Replace(TextBox1.Value, ".", ",")) End Sub

---

re bonjour,

de toutes façons, la base est de filtrer la saisie pour que ton utilisateur ne fasse pas n'importe quoi genre :

Code:

---

1 2 3

Private Sub TextBox1_Change() If Not IsNumeric(TextBox1.Value) Then Beep: If Len(TextBox1.Value) > 1 Then TextBox1.Value = Left(TextBox1.Value, Len(TextBox1.Value) - 1) Else TextBox1.Value = "" End Sub

---

cordialement,

Didier

merci beaucoup pour toutes vos réponses, mon problème est donc maintenant résolu.

Merci.

Elangel2008.