Discussion :

[Elangel2008]

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 :

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

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.

[Invité]

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

[LeForestier]

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+

[Didier Gonard]

Bonjour,

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

Peux-tu nous donner ton code ?

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

Code :

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

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

[Didier Gonard]

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

[LeForestier]

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 :

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

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+

[Didier Gonard]

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 :

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 :

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

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

cordialement,

Didier