Discussion :

[sakia]

Bonjour à tous,
je travaille sous vba access et voici mon problème:

Je charge une listBox a partir d'une requête.Dans la liste je peux modifier, supprimer ces valeurs ou en ajouter de nouvelles.
J'aimerai dans la listeBox ranger ces valeurs par ordre croissant et décroissant d'un bouton de comande.
comment faire?
J'espere etre clair.
Merci d'avance

[Lou Pitchoun]

Salut,

Il faut utiliser ORDER BY nomchamp ASC (implicite) ou DESC dans la requête.

[sakia]

merci pour la réponse
sauf que ma liste est lier à une requete
et je désire à partir de boutons séparé de la liste gerer l'ordre de tri dans cette liste

[Lou Pitchoun]

Sur clic du bouton, tu réécris la requête avec le tri adéquat puis tu réactualises la liste.

cf ce message pour la création et test de l'existance de la requête.
Après à toi d'adapter

[sakia]

Merci bien pour vos réponses j'essayerai
Mais j'ai un problème avec une liste affichant le résultat de recherche et dont le contenu dépond de plusieurs requêtes selon le choix de l'usager.
càd que la requête demeurre indéfinie pour lui ajouter un tri.
j'espère etre clair
Mes excuses; je suis un débutant en VBA.

[NOODLE02]

Et bien, c'est la même méthode, si ce n'est que le type de requête dépend du choix de l'utilisateur.

Donc tu peux utiliser la structure de code suivante

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
dim STRG_SQL as string  ' le string qui recevra ta requête SQL
 
SELECT CASE choix_de_la_requete
  CASE choix1
    STRG_SQL = "SELECT ..... ORDER BY ..." ' le string de la requête choix1    
 
  CASE choix2
    STRG_SQL = "SELECT ..... ORDER BY ..." ' le string de la requête choix2    
 
  CASE choi3
   STRG_SQL = "SELECT ..... ORDER BY ..." ' le string de la requête choix2    
 
END SELECT
 
If ordre_de_tri = décroissant then
  STRG_SQL = STRQ_SQL & " DESC"
End If
 
MaListBox.RowSourceType = "Table/Query"
MaListBox.RowSource = STRG_SQL

[NOODLE02]

Le tri d'une listbox doit s'effectuer dans ta requête mentionnée dans la propriété Contenu (onglet Données des propriétés)
Si l'ordre de tri doit changer tu peux modifier cette propriété de manière dynamique en incluant le code SQL dans ta procédure VBA

Ordre croissant :

Code :

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

1
2
MaListBox.RowSourceType = "Table/Query"
MaListBox.RowSource = ."SELECT MaTable.MonChamp FROM MaTable ORDER BY MaTable.MonChamp"

Ordre décroissant :

Code :

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

1
2
MaListBox.RowSourceType = "Table/Query"
MaListBox.RowSource = ."SELECT MaTable.MonChamp FROM MaTable ORDER BY MaTable.MonChamp DESC"