Discussion :

[Mariboo]

Bonjour,

voilà mon problème est simple, mais je pense qu'il ne peut pas y avoir de solution .... j'essaye quand même ...

J'ai un champ de type "Texte" mais qui représente une référence du style : "D31" ou "V45"

quand je veux classer ce champ par ordre croissant, Access me fait ça :
- D1
- D10
- D100
- D2
- D20

Je sais que ça viens du fait que mon champ est de type texte ... mais j'aimerai quand même essayer de classer ces références comme ceci :

- D1
- D2
- D3
- D4
....
- D10
par ordre numérique ...

A mon avis c'est impossible mais je tente ma chance !! si quelqu'un a une idée !

[pc75]

Bonjour,

je veux classer ce champ par ordre croissant

Le classer où, avec quoi ?

[Mariboo]

Avec un Order by dans une requête

Code :

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

1
2
 
Order by Ref

[jujusoso]

je pense que cela est impossible dans une requête il faudrait le faire dans du code et donc tester tous les cas de nombre possible ca serait possible mais galère donc essai de voir si tu en a réelement besoin.

[Mariboo]

EEEEEHHHH OOOUUUIII !!
en avoir réellement besoin ou ne pas en avoir besoin telle est la question !

Le problème c'est que le logiciel n'est pas pour moi mais pour une entreprise ... je sens le coup venir du chef qui va me dire : " Eh! ces références ne sont pas classées comme dans mon tableau Excel ! je savais bien qu'il ne fallait pas évoluer ! j'aurai dû garder mes fichiers Excel qui débordent de partout ! "

Merci quand même pour les réponses !! je ne pense pas que je vais m'embêter à faire du code ... je vais laisser comme ça, on verra ..

Je laisse le sujet ouvert AU CAS OU !!

[Arkham46]

Slt,

Si tu as toujours une seule lettre au début essaye de décomposer le tri :

Code :

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

Order by Left(Ref,1), Val(Mid(Ref,2))

D'abord on trie sur la lettre du début, et ensuite sur le chiffre qui suit.
Val renvoit un double donc ça devrait trier dans le bon ordre.

[random]

je commence par créer deux fonctions

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
20
21
22
23
24
 
Function lett(mach As String) As String
Dim tempo As Variant
Dim maboucle As Integer
For maboucle = 1 To Len(mach)
If Not IsNumeric(Mid(mach, maboucle, 1)) Then
tempo = tempo & Mid(mach, maboucle, 1)
Else
lett = tempo
Exit Function
End If
Next maboucle
End Function
 
Function chiff(mach As String) As Long
Dim tempo As Variant
Dim maboucle As Integer
For maboucle = 1 To Len(mach)
If IsNumeric(Mid(mach, maboucle, 1)) Then
tempo = tempo & Mid(mach, maboucle, 1)
End If
Next maboucle
chiff = CLng(tempo)
End Function

si on sait jouer aux chiffres et aux lettres c'est du gâteau

Code :

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

1
2
3
4
5
 
SELECT mavaleur, lett([mavaleur]) AS tri1, 
chiff([mavaleur]) AS tri2
FROM matable
ORDER BY lett([mavaleur]), chiff([mavaleur]);

[Mariboo]

Si tu as toujours une seule lettre au début essaye de décomposer le tri :

Code :
Order by Left(Ref,1), Val(Mid(Ref,2))D'abord on trie sur la lettre du début, et ensuite sur le chiffre qui suit.
Val renvoit un double donc ça devrait trier dans le bon ordre.

OOOHHH !! MERCI MERCI !!!

T'es trop balèze !!

ça marche NICKEL !!

Grâce à toi peut-être je vais avoir une promotion !! ou peut-être pas !!

Merci et à bientôt !

[random]

pardon arkham je n'avais pas vu ta réponse