Discussion :

[rag83]

Bonjour,

Dans un formulaire, je stocke des adresses composées entre autres d'un numéro de voirie qui a son champ propre (un champ texte) qui peut parfois contenir par exemple 7 bis.

Je voudrais pouvoir trier mon formulaire en ASC sur ce champ. Le problème évidemment c'est que le tri donne 1, 10, 100, 2, 7 bis, etc.

Il y aurait la solution de mettre deux champs pour séparer le nombre et le complément, mais je voudrais ne pas avoir à faire ça.

Est ce qu'il existe un moyen de ne prendre en compte que la partie numérique de ce champ (peut-être par exemple en stockant dans un champ invisible uniquement cette partie numérique) pour pouvoir trier dessus ensuite ?

Merci

[loufab]

Bonjour,
Normalement on sépare les 2 dans 2 champs distincts mais il arrive que cela ne soit pas le cas.

Il faut faire alors un tri en 2 fois sur les expressions suivantes :

Code :

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

val(nz([NumeroRue],"0"))

pour le premier ainsi tu vas faire un tri sur la partie numérique, puis

Code :

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

right(nz([NumeroRue],"0") ,instr(1, nz([NumeroRue],0) ," "))

pour le tri des éléments après l'espace.


Evidemment elles doivent être prisent dans cet ordre.
Le NZ permet de traiter le null éventuel.

Cordialement,

[rag83]

Bonjour Loufab et merci.

Dans mon formulaire, je trie mes colonnes par un double clic sur leur en-tête comme ceci

Code :

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

1
2
3
4
5
6
If Not Me.OrderBy = "numVoirie" Then
   Me.OrderBy = "numVoirie"
Else
   Me.OrderBy = "numVoirie desc"
End If
Me.OrderByOn = True

Le tri ne se fait que sur une seule colonne mais c'est suffisant. Comment combiner ton code avec ça ?

Merci

[loufab]

Dans la source du formulaire, crées 2 colonnes supplémentaires pour les 2 expressions pour y faire directement le tri. Sinon le faire dans le formulaire si c'est nécessaire comme tu le fais actuellement.

[rag83]

J'ai inséré les deux expressions dans la requête source de mon formulaire, c'est bon pour la première mais la deuxième me renvoie ce qui est après l'espace seulement si le numéro de rue comporte 2 chiffres.

'bis' pour '30 bis' mais 'is' pour '1 bis' ou ' bis' pour '100 bis'. On peut y faire quelque chose ?

Par contre excuse moi mais que veux-tu dire par "Sinon le faire dans le formulaire si c'est nécessaire comme tu le fais actuellement" ?

[loufab]

oups petite erreur entre l'utilisation du left et right. Donner le code de mémoire à souvent ses limites.

Voici la bonne syntaxe

Code :

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

right(nz([NumeroRue],"0") ,len(nz([NumeroRue],"0"))-instr(1, nz([NumeroRue],0) ," "))

[rag83]

Merci, ça fonctionne pour le tri ascendant, mais pas pour le descendant, ou faut-il mettre le desc, j'ai essayé un peu partout et ça ne marche pas.

J'ai fait comme ceci, j'ai du remplacer les "0" par des '0' pour que ça marche.

Code :

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

1
2
3
4
5
6
If Not Me.OrderBy = "Val(Nz([numVoirie], '0')), right(nz([numVoirie],'0') ,len(nz([numVoirie],'0'))-instr(1, nz([numVoirie],0) ,' '))" Then
Me.OrderBy = "Val(Nz([numVoirie], '0')), right(nz([numVoirie],'0') ,len(nz([numVoirie],'0'))-instr(1, nz([numVoirie],0) ,' '))"
   Else
Me.OrderBy = "Val(Nz([numVoirie], '0')), right(nz([numVoirie],'0') ,len(nz([numVoirie],'0'))-instr(1, nz([numVoirie],0) ,' ')) desc"
   End If
Me.OrderByOn = True

[loufab]

Bonjour,
Je pense que tu te compliques la vie pour rien.

Dans un premier temps tu crées les colonnes dans ta source comme je te l'ai suggéré.
Tu vas donc avoir 2 colonnes supplémentaires nommées numTri_1 et numTri_2, respectivement pour le début et la fin, avec les expressions que je t'ai fourni.

Dans ton formulaire tu n'as plus qu'à intégrer le code de tri comme ceci :

Code :

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

1
2
3
4
5
6
If Me.OrderBy Like "* DESC*" Then
   Me.OrderBy = "numTri_1 ASC, numTri_2 ASC"
Else
   Me.OrderBy = "numTri_1 DESC, numTri_2 DESC"
End If
Me.OrderByOn = True

Il n'y a rien d'autre à faire.

Cordialement,

[rag83]

C'est ce que j'avais fait en premier, en fait j'ai juste un peu peur de modifier ma requête source sur laquelle je fais une recherche multicritères car j'ai beaucoup de champs avec des Null, ça fonctionne comme je veux pour le moment mais je t'avoue que j'ai un peu peur de la modifier et de voir que ça aille de travers ensuite !

Bon je vais faire comme ça.

Je te remercie

[loufab]

Je te rassure, il ne s'agit que d'ajouter 2 colonnes, c'est rapidement réversibles et tu peux prendre la précaution de faire une copie de l'objet.

Dans tous les cas c'est le moyen le plus simple et le plus rapide en terme de temps d'exécution.