Forum > Visual Basic 6 > Windows
Private Sub CommandButton8_Click() Sheets("Bases_Containers").Activate Range("A2:A660").Select Selection.Sort Key1:=Range("A2"), Order1:=xlAscending [A2].Select End Sub
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionPrivate Sub CommandButton8_Click() Sheets("Bases_Containers").Activate Range("A2:A660").Select If OptionButton3 = True Then Selection.Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlGuess If OptionButton4 = True Then Selection.Sort Key1:=Range("A2"), Order1:=xlDescending, Header:=xlGuess [A2].Select End Sub