Option Explicit
Private Sub CommandButton1_Click()
With CommandButton1
Range("A1:I16").Sort Range("A1"), IIf(.Caption = "ascendant", xlAscending, xlDescending)
.Caption = IIf(.Caption = "ascendant", "descendant", "ascendant")
End With
End Sub
Bonjour Pierrot, mais d'où tiens tu qu'il s'agit d'un bouton de commande et non d'un bouton de formulaire ? Le demandeur ne l'a pas précisé !