Macro à modifier

giorgios

XLDnaute Occasionnel
Bonsoir, Bonjour

Je souhaiterai modifier ma macro

Elle contient, entres autres, 3 possibilités de "Rangement" ( et je voudrai en ajouter une 4éme, voire une 5éme qui soit "Descending" )

Sheets("Classement Individuel(Ctrl+A)").Select
Range("b11:ay79").Select
Selection.Sort Key1:=Range("d2"), Order1:=xlDescending, Key2:=Range("e2") _
, Order2:=xlAscending, Key3:=Range("f2"), Order3:=xlDescending, Header _
:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Range("b11").Select
End Sub


Merci pour vos propositions

Giorgios
 

giorgios

XLDnaute Occasionnel
Re : Macro à modifier

salut et merci beaucoup Forum

j'ai remplacé ma macro par la votre et j'ai un débogage qui s'affiche sur la ligne suivante uniquement et je sais pas pourquoi

Range("B11:AY79").Sort Key1:=Range("L2"), Order1:=xlDescending, Key2:=Range("M2") _
, Order2:=xllDescending

Merci de m'aider à nouveau

Giorgios

c'est bon, j'ai repéré l'erreur

il y avait 2 ll dans Order2:=xlldescending

mERCI ENCORE
 

Discussions similaires

Membres actuellement en ligne

Aucun membre en ligne actuellement.

Statistiques des forums

Discussions
312 595
Messages
2 090 094
Membres
104 374
dernier inscrit
cheick.coulibaly@dcsmali.