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 :
Merci de votre aide,
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
Partager