Discussion :

[Mat08]

Bonjour,
j'ai un bouton "trier par" et une liste déroulante dont le champ s'appele "selection champ" qui contient les noms des champs d'une table.
Je voudrais que quand je clique sur le bouton "trier par", les enregistrements du formulaire en cours se trient par ce qui a été choisi.
Quelqu'un sait comment faire ?

Merci d'avance pour vos réponses.

[nico84]

Bonjour,

Je pense qu'il suffit de modifier Me.orderBy sur l'évenement afterupdate de ta liste déroulante

Pour ma part je trie sur une colonne "code" en cliquant sur l'entete de colonne (qui s'appelle e_code) grâce à :

Code :

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

1
2
Private Sub e_code_Click(): If Me.OrderBy = "code" Then Me.OrderBy = Me.OrderBy & " desc" Else Me.OrderBy = "code"
End Sub

Et ceci pour toutes le colonnes (tri ascendant ou descendant)

[Mat08]

Merci beaucoup j'ai juste utilisé Me.OrderBy = "nom de mon champ" et ça fonctionne parfaitement.
Je voudrais juste savoir pourquoi il y a deux points à la fin de ceci : "Private Sub Commande134_Click():"
Sans les deux points ça ne marche pas et je suis curieux de savoir pourquoi parce que c'est la première fois que j'en met en vba.

[fgiambelluco]

Bonjour
Les : permettent d'écrire deux instructions sur la même ligne.
On conseille toutfois pour la lisibilité du code de hiérarchiser les instructions. Ce qui donnerait :

Code :

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

1
2
3
4
5
6
7
Private Sub e_code_Click()
    If Me.OrderBy = "code" Then
        Me.OrderBy = Me.OrderBy & " desc"
    Else
        Me.OrderBy = "code"
    End If
End Sub

[Mat08]

Ok merci. Mais j'ai un problème assez bizarre. J'ai plusieurs formulaires dans lesquels j'ai mi une liste de choix où on peut choisir un champ de la table associé au fomulaire. J'ai ensuite un bouton "trier par" qui vous l'aurez compris tri en fonction de ce qui a été choisi dans le liste de choix. Le code de ce bouton est "Me.OrderBy=Me.champ_tri", "champ_tri" est le champ où est stocker le champ de la table qu'on a choisi.

Le problème : cela marche sur certain de mes formulaires mais pas sur d 'autre... Je ne vois vraiment pas pourquoi.

[nico84]

Bonjour,

Effectivement quand j'ai une série de procédures répétitives il m'arrive de condenser mon code avec des ":" ainsi ça prend moins de place

Pour ton souci du moment avec un peu de chance un p'tit

Code :

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

Me.OrderByOn = True

suffira à le rendre + obéissant

[Mat08]

Merci beaucoup.