Discussion :

[svetlan]

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,

[SfJ5Rpw8]

Bonjour,

tu peu utiliser le texte présent sur le bouton pour choisir le sens du tri : propriété Caption , propriété que tu change à chaque nouveau tri..

[parmi]

Bonjour,

Tu pourrais aussi utiliser une variable statique

Code :

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

1
2
3
4
5
    Static Ordre As Long
    
    If Ordre = xlAscending Then Ordre = xlDescending Else Ordre = xlAscending
    Feuil1.Range("a1:" & a & finf1 - 1).Sort Key1:=Feuil1.Range("a1"), Order1:=Ordre, Header:=xlYes, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom

[svetlan]

@parmi & @bbil,

Merci beaucoup pour votre aide.

Cdlt.

[patricktoulon]

Bonjour 2 exemple selon l'idée de bill

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub CommandButton1_Click()
CommandButton1.Caption = IIf(CommandButton1.Caption = "decroissant", "croissant", "decroissant")
Select Case CommandButton1.Caption
Case "decroissant"
'tri decroissant
Case "croissant"
'tri croissant
End Select
End Sub

ou

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub CommandButton1_Click()
Select Case CommandButton1.Caption
Case "decroissant"
'tri decroissant
CommandButton1.Caption = "croissant"
Case "croissant"
'tri croissant
CommandButton1.Caption = "decroissant"
End Select
End Sub