léman
XLDnaute Nouveau
Bonjour à toutes et à tous,
Si les conseils de Pierrot63, Bruno45, abcd et jmd2, m'ont été fort utiles jusqu'à maintenant. Après moultes essais, je suis planté. Je vous demande de me venir en aide. Merci.
La macro de base :
Range("A11:N134").Select
Dim maplage As Range, l As Long, t As Variant
Set maplage = Range("H11:L" & Range("L65536").End(xlUp).Row)
'sauvegarde des valeurs dans un tableau virtuel
t = maplage
'boucle sur les lignes concernées et tri de chacune d'elles
For l = 1 To maplage.Rows.Count
Range(maplage(l, 1), maplage(l, 5)).Sort Key1:=maplage(l, 1), Order1:=xlDescending, Orientation:=xlLeftToRight
Next l
'code d'impression
ActiveSheet.PrintOut
'réinitialisation des valeurs à partir du tableau
maplage = t
End Sub
Est-il possible d’ajouter à cette macro des tris complémentaires avant l’impression finale et, avec retour à la feuille d'origine, soit :
un tri complémentaire sur la colonne M (total - 1000 à 0)
et en cas d'égalité des totaux de la colonne M :
de trier par les résultats de la colonne K (100 à 0)
et si encore égalité :
de trier par les résultats de la colonne L (100 à 0)
et pour finir
de trier la colonne G par les lettre J ; S ; V et E
Merci d'avance
Guy
Si les conseils de Pierrot63, Bruno45, abcd et jmd2, m'ont été fort utiles jusqu'à maintenant. Après moultes essais, je suis planté. Je vous demande de me venir en aide. Merci.
La macro de base :
Range("A11:N134").Select
Dim maplage As Range, l As Long, t As Variant
Set maplage = Range("H11:L" & Range("L65536").End(xlUp).Row)
'sauvegarde des valeurs dans un tableau virtuel
t = maplage
'boucle sur les lignes concernées et tri de chacune d'elles
For l = 1 To maplage.Rows.Count
Range(maplage(l, 1), maplage(l, 5)).Sort Key1:=maplage(l, 1), Order1:=xlDescending, Orientation:=xlLeftToRight
Next l
'code d'impression
ActiveSheet.PrintOut
'réinitialisation des valeurs à partir du tableau
maplage = t
End Sub
Est-il possible d’ajouter à cette macro des tris complémentaires avant l’impression finale et, avec retour à la feuille d'origine, soit :
un tri complémentaire sur la colonne M (total - 1000 à 0)
et en cas d'égalité des totaux de la colonne M :
de trier par les résultats de la colonne K (100 à 0)
et si encore égalité :
de trier par les résultats de la colonne L (100 à 0)
et pour finir
de trier la colonne G par les lettre J ; S ; V et E
Merci d'avance
Guy
