Bonjour ,
Dans la continuité de la reprise de code : http://www.developpez.net/forums/d15...-action-passe/

J'ai un CommandButton qui ne fait un tri que dans un seul sens, et je souhaiterai le faire dans les deux (avec un 2sd clic evidement), est-ce possible ?

Le code du bouton correspondant est ainsi fait :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
Private Sub CommandButton17_Click()
Dim a
a = Replace(Feuil1.Range("a1").End(xlToRight).Address, "1", "")
Feuil1.Range("a1:" & a & finf1 - 1).Sort Key1:=Feuil1.Range("a1"), Order1:=xlAscending, Header:=xlYes, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
dico1
lifour
End Sub
Merci de votre aide,