Evelynetfrancois
XLDnaute Impliqué
BONJOUR a tousss
j esperais faire un choix de tri (2 choix)
mais la macro passe dessus ces lignes sans meme les lire !!!
je dois faire une erreur??? mais ou???
j ai egalement essaye d enchainer avec ElseIfmais rien de mieux !!!
je vous remercie d avance pour toutes explications ou solutions
bonne soirée a tous
E et F
If OptionButton4.Value = True Then
Range("A4:F600").Sort Key1:=Range("E4"), Order1:=xlAscending, Key2:=Range("B4" _
), Order2:=xlAscending, Key3:=Range("F4"), Order3:=xlAscending, Header _
:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom _
, DataOption1:=xlSortNormal, DataOption2:=xlSortNormal, DataOption3:= _
xlSortNormal
End If
If OptionButton5.Value = True Then
Range("A4:F600").Sort Key1:=Range("F4"), Order1:=xlAscending, Key2:=Range("B4" _
), Order2:=xlAscending, Key3:=Range("E4"), Order3:=xlAscending, Header _
:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom _
, DataOption1:=xlSortNormal, DataOption2:=xlSortNormal, DataOption3:= _
xlSortNormal
End If
j esperais faire un choix de tri (2 choix)
mais la macro passe dessus ces lignes sans meme les lire !!!
je dois faire une erreur??? mais ou???
j ai egalement essaye d enchainer avec ElseIfmais rien de mieux !!!
je vous remercie d avance pour toutes explications ou solutions
bonne soirée a tous
E et F
If OptionButton4.Value = True Then
Range("A4:F600").Sort Key1:=Range("E4"), Order1:=xlAscending, Key2:=Range("B4" _
), Order2:=xlAscending, Key3:=Range("F4"), Order3:=xlAscending, Header _
:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom _
, DataOption1:=xlSortNormal, DataOption2:=xlSortNormal, DataOption3:= _
xlSortNormal
End If
If OptionButton5.Value = True Then
Range("A4:F600").Sort Key1:=Range("F4"), Order1:=xlAscending, Key2:=Range("B4" _
), Order2:=xlAscending, Key3:=Range("E4"), Order3:=xlAscending, Header _
:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom _
, DataOption1:=xlSortNormal, DataOption2:=xlSortNormal, DataOption3:= _
xlSortNormal
End If