Bonsoir Il ne faut pas sélectionner des cellules sur la feuille que tu quittes :
Private Sub Worksheet_Deactivate() Feuil3.Range("A5:AX50").Sort Key1:=Range("AX5"), Order1:=xlAscending, Key2:=Range("AW5") _ , Order2:=xlDescending, Header:=xlYes, OrderCustom:=1, MatchCase:úlse _ , Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, DataOption2:= _ xlSortNormal End Sub
Daniel
bonsoir
je souhaiterai faire le tri d'une feuille lorsque je quitte celle ci
j'ai tenté cela dans le module de la feuille mais ca merdouille
Private Sub Worksheet_Deactivate() Feuil3.Range("A5:AX50").Select
Selection.Sort Key1:=Range("AX5"), Order1:=xlAscending, Key2:=Range("AW5") _ , Order2:=xlDescending, Header:=xlYes, OrderCustom:=1, MatchCase:úlse _ , Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, DataOption2:= _ xlSortNormal Feuil3.Range("A3").Select End Sub
merci de votre aide
michdenis
Bonjour,
Tu copies ceci dans le module feuille de la feuille.
Private Sub Worksheet_Deactivate() With Range("A5:AX50") .Sort Key1:=Range("AX5"), _ Order1:=xlAscending, _ Key2:=Range("AW5"), _ Order2:=xlDescending, _ Header:=xlYes End With End Sub
"magic-dd" a écrit dans le message de groupe de discussion :
bonsoir
je souhaiterai faire le tri d'une feuille lorsque je quitte celle ci
j'ai tenté cela dans le module de la feuille mais ca merdouille
Private Sub Worksheet_Deactivate() Feuil3.Range("A5:AX50").Select
Selection.Sort Key1:=Range("AX5"), Order1:=xlAscending, Key2:=Range("AW5") _ , Order2:=xlDescending, Header:=xlYes, OrderCustom:=1, MatchCase:úlse _ , Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, DataOption2:= _ xlSortNormal Feuil3.Range("A3").Select End Sub
merci de votre aide
Bonjour,
Tu copies ceci dans le module feuille de la feuille.
Private Sub Worksheet_Deactivate()
With Range("A5:AX50")
.Sort Key1:=Range("AX5"), _
Order1:=xlAscending, _
Key2:=Range("AW5"), _
Order2:=xlDescending, _
Header:=xlYes
End With
End Sub
"magic-dd" <ciolandre@gmail.com> a écrit dans le message de groupe de discussion :
47ba5f2f-8713-4e60-88d6-2a02eecd72b7@b10g2000vbh.googlegroups.com...
bonsoir
je souhaiterai faire le tri d'une feuille lorsque je quitte celle ci
j'ai tenté cela dans le module de la feuille mais ca merdouille
Private Sub Worksheet_Deactivate()
Feuil3.Range("A5:AX50").Select
Selection.Sort Key1:=Range("AX5"), Order1:=xlAscending,
Key2:=Range("AW5") _
, Order2:=xlDescending, Header:=xlYes, OrderCustom:=1,
MatchCase:úlse _
, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal,
DataOption2:= _
xlSortNormal
Feuil3.Range("A3").Select
End Sub
Tu copies ceci dans le module feuille de la feuille.
Private Sub Worksheet_Deactivate() With Range("A5:AX50") .Sort Key1:=Range("AX5"), _ Order1:=xlAscending, _ Key2:=Range("AW5"), _ Order2:=xlDescending, _ Header:=xlYes End With End Sub
"magic-dd" a écrit dans le message de groupe de discussion :
bonsoir
je souhaiterai faire le tri d'une feuille lorsque je quitte celle ci
j'ai tenté cela dans le module de la feuille mais ca merdouille
Private Sub Worksheet_Deactivate() Feuil3.Range("A5:AX50").Select
Selection.Sort Key1:=Range("AX5"), Order1:=xlAscending, Key2:=Range("AW5") _ , Order2:=xlDescending, Header:=xlYes, OrderCustom:=1, MatchCase:úlse _ , Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, DataOption2:= _ xlSortNormal Feuil3.Range("A3").Select End Sub
merci de votre aide
magic-dd
Merci messieurs
toujours au top
mais je vais ouvrir un nouveau sujet avec un exploit pour vous
@ tout de suite
Merci messieurs
toujours au top
mais je vais ouvrir un nouveau sujet avec un exploit pour vous