Salut tout le monde,
Je suis face a 2 petits problèmes qui me rongent la tête depuis quelques jours alors que je suis que la réponse est très simple.
J’ai un tableau avec plusieurs colonnes et je voudrais trier l’ensemble de ces donnes. Ce JE fais une étude sur le marche des voiture. Dans la colonne E j’ai la marque des voiture et dans la colonne G leur vitesse max.
Dans un premier temps je voudrais les trier par marque et ensuite par vitesse max.
Mon code pour trier par ordre alphabetique est le suivant :
Sheets("voiture").Columns("E:E").Select
Range("C1:E53").Sort Key1:=Range("E1"), Order1:=xlAscending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Mon code pour trier par vitesse est le suivant :
Sheets("voituret").Columns("E:E").Select
Range("C1:E53").Sort Key1:=Range("E1"), Order1:=xlAscending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
1er problème :
Ces codes font partie d’une plus grande macro et bizarrement quand je les copie/ colle dans la macro il ne fonctionne pas. Par contre quand il sont seuls ils fonctionnent avez-vous une idée du problème ?
2em problème :
Comment faire pour que lorsque je trie par vitesse il garde en mémoire mon tri par ordre alphabétique afin d’avoir un classement par marque de la voiture la + rapide a la moins rapide ?
J’espère avoir été assez clair.
Je vous remercie pour votre aide