J'ai une macro (issue d'une feuille faite avec XL 2003) qui trie automatiqu=
ement des donn=E9s sur 3 crit=E8res et qui fonctionne bien:
----------------------------------------
Feuil2.[D15].Select
Selection.CurrentRegion.Select
Selection.Sort _
Key1:=3DRange("L16"), Order1:=3DxlAscending, _
Key2:=3DRange("K16"), Order2:=3DxlAscending, _
Key3:=3DRange("I16"), Order3:=3DxlAscending, _
Header:=3DxlGuess, OrderCustom:=3D1, MatchCase:=3DFalse, Orientation:=
=3DxlTopToBottom, _
DataOption1:=3DxlSortTextAsNumbers, _
DataOption2:=3DxlSortNormal, _
DataOption3:=3DxlSortNormal
----------------------------------------
Aujourd'hui, avec XL 2007, je souhaiterais trier sur 5 crit=E8res, mais je =
trouve que l'enregistreur de macros me "pond" une proc=E9dure plut=F4t comp=
liqu=E9e et qui ne fonctionne pas =E0 tous les coups.
Par quel moyen est-ce que je peux simplifier au mieux et gagner en efficaci=
t=E9?
Car dans le second exemple les zones sont fig=E9s (ex:Range("L16:L25")) alo=
rs que pr=E9c=E9demment, il triait a partir de l'ent=EAte de colonne quelle=
que soit le NB de lignes (puisque mon bulletin de livraison change constam=
ment)
----------------------------------------
ActiveWorkbook.Worksheets("Bulletin de livraison").Sort.SortFields.Clea=
r
ActiveWorkbook.Worksheets("Bulletin de livraison").Sort.SortFields.Add =
Key:=3D _
Range("L16:L25"), SortOn:=3DxlSortOnValues, Order:=3DxlAscending, D=
ataOption:=3DxlSortNormal
ActiveWorkbook.Worksheets("Bulletin de livraison").Sort.SortFields.Add =
Key:=3D _
Range("K16:K25"), SortOn:=3DxlSortOnValues, Order:=3DxlAscending, D=
ataOption:=3DxlSortNormal
ActiveWorkbook.Worksheets("Bulletin de livraison").Sort.SortFields.Add =
Key:=3D _
Range("I16:I25"), SortOn:=3DxlSortOnValues, Order:=3DxlAscending, D=
ataOption:=3DxlSortNormal
ActiveWorkbook.Worksheets("Bulletin de livraison").Sort.SortFields.Add =
Key:=3D _
Range("E16:E25"), SortOn:=3DxlSortOnValues, Order:=3DxlAscending, D=
ataOption:=3DxlSortNormal
ActiveWorkbook.Worksheets("Bulletin de livraison").Sort.SortFields.Add =
Key:=3D _
Range("D16:D25"), SortOn:=3DxlSortOnValues, Order:=3DxlAscending, D=
ataOption:=3DxlSortNormal
With ActiveWorkbook.Worksheets("Bulletin de livraison").Sort
.SetRange Range("C15:L25")
.Header =3D xlYes
.MatchCase =3D False
.Orientation =3D xlTopToBottom
.SortMethod =3D xlPinYin
.Apply
End With
----------------------------------------
Je vous remercie d'avance pour vos conseils et suggestions.
cordialement,
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
MichD
Bonjour,
Tu dis que ce type de code ne fonctionne pas. Est-cela?
Dans la procédure, remplace "ThisWorkbook.Name" dans With Workbooks(ThisWorkbook.Name) par le nom du classeur + sont extension si la macro n'est pas mise dans le classeur dont la feuille doit être triée.
'--------------------------------------------- Sub test() Dim Sh As Worksheet
With Workbooks(ThisWorkbook.Name) Set Sh = .Worksheets("Bulletin de livraison") With Feuil1.Sort .SortFields.Clear .SetRange Sh.Range("C15:L25") .Header = xlYes .MatchCase = False .Orientation = xlTopToBottom
.SortFields.Add Key:=Sh.Range("L16"), SortOn:=xlSortOnValues, _ Order:=xlAscending, DataOption:=xlSortNormal .SortFields.Add Key:=Sh.Range("K16"), SortOn:=xlSortOnValues, _ Order:=xlAscending, DataOption:=xlSortNormal .SortFields.Add Key:=Sh.Range("i16"), SortOn:=xlSortOnValues, _ Order:=xlAscending, DataOption:=xlSortNormal .SortFields.Add Key:=Sh.Range("E16"), SortOn:=xlSortOnValues, _ Order:=xlAscending, DataOption:=xlSortNormal .SortFields.Add Key:=Sh.Range("D16"), SortOn:=xlSortOnValues, _ Order:=xlAscending, DataOption:=xlSortNormal .Apply End With End With End Sub '---------------------------------------------
Bonjour,
Tu dis que ce type de code ne fonctionne pas. Est-cela?
Dans la procédure, remplace "ThisWorkbook.Name" dans With
Workbooks(ThisWorkbook.Name)
par le nom du classeur + sont extension si la macro n'est pas mise dans le
classeur dont la feuille doit être triée.
'---------------------------------------------
Sub test()
Dim Sh As Worksheet
With Workbooks(ThisWorkbook.Name)
Set Sh = .Worksheets("Bulletin de livraison")
With Feuil1.Sort
.SortFields.Clear
.SetRange Sh.Range("C15:L25")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortFields.Add Key:=Sh.Range("L16"), SortOn:=xlSortOnValues, _
Order:=xlAscending, DataOption:=xlSortNormal
.SortFields.Add Key:=Sh.Range("K16"), SortOn:=xlSortOnValues, _
Order:=xlAscending, DataOption:=xlSortNormal
.SortFields.Add Key:=Sh.Range("i16"), SortOn:=xlSortOnValues, _
Order:=xlAscending, DataOption:=xlSortNormal
.SortFields.Add Key:=Sh.Range("E16"), SortOn:=xlSortOnValues, _
Order:=xlAscending, DataOption:=xlSortNormal
.SortFields.Add Key:=Sh.Range("D16"), SortOn:=xlSortOnValues, _
Order:=xlAscending, DataOption:=xlSortNormal
.Apply
End With
End With
End Sub
'---------------------------------------------
Tu dis que ce type de code ne fonctionne pas. Est-cela?
Dans la procédure, remplace "ThisWorkbook.Name" dans With Workbooks(ThisWorkbook.Name) par le nom du classeur + sont extension si la macro n'est pas mise dans le classeur dont la feuille doit être triée.
'--------------------------------------------- Sub test() Dim Sh As Worksheet
With Workbooks(ThisWorkbook.Name) Set Sh = .Worksheets("Bulletin de livraison") With Feuil1.Sort .SortFields.Clear .SetRange Sh.Range("C15:L25") .Header = xlYes .MatchCase = False .Orientation = xlTopToBottom
.SortFields.Add Key:=Sh.Range("L16"), SortOn:=xlSortOnValues, _ Order:=xlAscending, DataOption:=xlSortNormal .SortFields.Add Key:=Sh.Range("K16"), SortOn:=xlSortOnValues, _ Order:=xlAscending, DataOption:=xlSortNormal .SortFields.Add Key:=Sh.Range("i16"), SortOn:=xlSortOnValues, _ Order:=xlAscending, DataOption:=xlSortNormal .SortFields.Add Key:=Sh.Range("E16"), SortOn:=xlSortOnValues, _ Order:=xlAscending, DataOption:=xlSortNormal .SortFields.Add Key:=Sh.Range("D16"), SortOn:=xlSortOnValues, _ Order:=xlAscending, DataOption:=xlSortNormal .Apply End With End With End Sub '---------------------------------------------
MichD
Oups, un oubli!!!
Évidemment, il faudrait remplacer cette ligne de code :
With Feuil1.Sort
Par
With Sh.Sort
pour être conséquent!
Oups, un oubli!!!
Évidemment, il faudrait remplacer cette ligne de code :
Évidemment, il faudrait remplacer cette ligne de code :
With Feuil1.Sort
Par
With Sh.Sort
pour être conséquent!
Emile63
Une fois encore MichD, c'est la classe :-) Merci.
Mais comme les données a trier sur mon bulletin peuvent être +/- nombre uses, Est-ce que la ligne: .SetRange Sh.Range("C15:L25") ne va pas me créer de problèmes si je dépasse le L25? Ou est-ce qu'il faudrait préalablement compter les enregistrements pour l ui indiquer la "fin" de la sélection "Range"? Merci pour ton éclairage sur ce point. cordialement, Emile
Une fois encore MichD, c'est la classe :-)
Merci.
Mais comme les données a trier sur mon bulletin peuvent être +/- nombre uses,
Est-ce que la ligne: .SetRange Sh.Range("C15:L25")
ne va pas me créer de problèmes si je dépasse le L25?
Ou est-ce qu'il faudrait préalablement compter les enregistrements pour l ui indiquer la "fin" de la sélection "Range"?
Merci pour ton éclairage sur ce point.
cordialement,
Emile
Mais comme les données a trier sur mon bulletin peuvent être +/- nombre uses, Est-ce que la ligne: .SetRange Sh.Range("C15:L25") ne va pas me créer de problèmes si je dépasse le L25? Ou est-ce qu'il faudrait préalablement compter les enregistrements pour l ui indiquer la "fin" de la sélection "Range"? Merci pour ton éclairage sur ce point. cordialement, Emile
MichD
Comme ceci :
'--------------------------------------------------- Sub test() Dim Sh As Worksheet, DerLig As Long
With Workbooks(ThisWorkbook.Name) Set Sh = .Worksheets("Bulletin de livraison") End With
With Sh With .Range("C:L") DerLig = .Find("*", LookIn:=xlValues, SearchOrder:=xlByRows, _ SearchDirection:=xlPrevious).Row If DerLig < 16 Then DerLig = 16 End With
.SortFields.Add Key:=Sh.Range("L16"), SortOn:=xlSortOnValues, _ Order:=xlAscending, DataOption:=xlSortNormal .SortFields.Add Key:=Sh.Range("K16"), SortOn:=xlSortOnValues, _ Order:=xlAscending, DataOption:=xlSortNormal .SortFields.Add Key:=Sh.Range("i16"), SortOn:=xlSortOnValues, _ Order:=xlAscending, DataOption:=xlSortNormal .SortFields.Add Key:=Sh.Range("E16"), SortOn:=xlSortOnValues, _ Order:=xlAscending, DataOption:=xlSortNormal .SortFields.Add Key:=Sh.Range("D16"), SortOn:=xlSortOnValues, _ Order:=xlAscending, DataOption:=xlSortNormal .Apply End With End With
End Sub '---------------------------------------------------
"Emile63" a écrit dans le message de groupe de discussion :
Une fois encore MichD, c'est la classe :-) Merci.
Mais comme les données a trier sur mon bulletin peuvent être +/- nombreuses, Est-ce que la ligne: .SetRange Sh.Range("C15:L25") ne va pas me créer de problèmes si je dépasse le L25? Ou est-ce qu'il faudrait préalablement compter les enregistrements pour lui indiquer la "fin" de la sélection "Range"? Merci pour ton éclairage sur ce point. cordialement, Emile
Comme ceci :
'---------------------------------------------------
Sub test()
Dim Sh As Worksheet, DerLig As Long
With Workbooks(ThisWorkbook.Name)
Set Sh = .Worksheets("Bulletin de livraison")
End With
With Sh
With .Range("C:L")
DerLig = .Find("*", LookIn:=xlValues, SearchOrder:=xlByRows, _
SearchDirection:=xlPrevious).Row
If DerLig < 16 Then DerLig = 16
End With
.SortFields.Add Key:=Sh.Range("L16"), SortOn:=xlSortOnValues, _
Order:=xlAscending, DataOption:=xlSortNormal
.SortFields.Add Key:=Sh.Range("K16"), SortOn:=xlSortOnValues, _
Order:=xlAscending, DataOption:=xlSortNormal
.SortFields.Add Key:=Sh.Range("i16"), SortOn:=xlSortOnValues, _
Order:=xlAscending, DataOption:=xlSortNormal
.SortFields.Add Key:=Sh.Range("E16"), SortOn:=xlSortOnValues, _
Order:=xlAscending, DataOption:=xlSortNormal
.SortFields.Add Key:=Sh.Range("D16"), SortOn:=xlSortOnValues, _
Order:=xlAscending, DataOption:=xlSortNormal
.Apply
End With
End With
End Sub
'---------------------------------------------------
"Emile63" a écrit dans le message de groupe de discussion :
9c2a565b-f72b-4822-9e68-ae81ce3af94d@googlegroups.com...
Une fois encore MichD, c'est la classe :-)
Merci.
Mais comme les données a trier sur mon bulletin peuvent être +/- nombreuses,
Est-ce que la ligne: .SetRange Sh.Range("C15:L25")
ne va pas me créer de problèmes si je dépasse le L25?
Ou est-ce qu'il faudrait préalablement compter les enregistrements pour lui
indiquer la "fin" de la sélection "Range"?
Merci pour ton éclairage sur ce point.
cordialement,
Emile
'--------------------------------------------------- Sub test() Dim Sh As Worksheet, DerLig As Long
With Workbooks(ThisWorkbook.Name) Set Sh = .Worksheets("Bulletin de livraison") End With
With Sh With .Range("C:L") DerLig = .Find("*", LookIn:=xlValues, SearchOrder:=xlByRows, _ SearchDirection:=xlPrevious).Row If DerLig < 16 Then DerLig = 16 End With
.SortFields.Add Key:=Sh.Range("L16"), SortOn:=xlSortOnValues, _ Order:=xlAscending, DataOption:=xlSortNormal .SortFields.Add Key:=Sh.Range("K16"), SortOn:=xlSortOnValues, _ Order:=xlAscending, DataOption:=xlSortNormal .SortFields.Add Key:=Sh.Range("i16"), SortOn:=xlSortOnValues, _ Order:=xlAscending, DataOption:=xlSortNormal .SortFields.Add Key:=Sh.Range("E16"), SortOn:=xlSortOnValues, _ Order:=xlAscending, DataOption:=xlSortNormal .SortFields.Add Key:=Sh.Range("D16"), SortOn:=xlSortOnValues, _ Order:=xlAscending, DataOption:=xlSortNormal .Apply End With End With
End Sub '---------------------------------------------------
"Emile63" a écrit dans le message de groupe de discussion :
Une fois encore MichD, c'est la classe :-) Merci.
Mais comme les données a trier sur mon bulletin peuvent être +/- nombreuses, Est-ce que la ligne: .SetRange Sh.Range("C15:L25") ne va pas me créer de problèmes si je dépasse le L25? Ou est-ce qu'il faudrait préalablement compter les enregistrements pour lui indiquer la "fin" de la sélection "Range"? Merci pour ton éclairage sur ce point. cordialement, Emile
