Plage décroissante excel

Résolu/Fermé
ath80 Messages postés 208 Date d'inscription dimanche 15 juillet 2007 Statut Membre Dernière intervention 15 mars 2018 - 12 mars 2012 à 17:44
ath80 Messages postés 208 Date d'inscription dimanche 15 juillet 2007 Statut Membre Dernière intervention 15 mars 2018 - 12 mars 2012 à 18:35
Bonjour,

Je voudrais ranger dans l'ordre une plage données.

http://cjoint.com/data3/3CmrRpysDGL.htm

La macro utilisée est la macro1 et je l'ai affecté au bouton mettre dans l'ordre décroissant dans la feuille Calculs. Je voudrais ranger dans l'ordre la plage E1253 à E1291.

Voici la macro utilisée:

Sub Macro1()
Sheets("Calculs").Select
Range("E1253:K1291").Select
Selection.Sort Key1:=Range("F1253"), Order1:=xlDescending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
End Sub

Ca marche quand je sélectionne Temps de cycle (H23 de la feuille Accueil) et Janvier (J23 de la feuille Accueil), tout est bien dans l'ordre décroissant.
Mais quand je sélectionne Rebut et Janvier c'est décroissant qu'à partir de la deuxième valeur. Même si la première valeur est inférieure, elle reste toujours en premier.

Merci de votre aide.

A voir également:

3 réponses

chossette9 Messages postés 4239 Date d'inscription lundi 20 avril 2009 Statut Contributeur Dernière intervention 12 septembre 2014 1 308
12 mars 2012 à 17:51
Bonjour,

je sais que quand je dois faire des tris comme ceci, je prends toujours en compte la ligne de tri. Donc remplace RANGE("F1253") par RANGE("E1253"), voir si ça fonctionne.

Cordialement.
0
ath80 Messages postés 208 Date d'inscription dimanche 15 juillet 2007 Statut Membre Dernière intervention 15 mars 2018 9
12 mars 2012 à 18:18
Bonjour,

Non ça classe suivant la liste des OP dans l'ordre décroissant, moi je veux classer la colonne juste à droite.

Cordialement.
0
chossette9 Messages postés 4239 Date d'inscription lundi 20 avril 2009 Statut Contributeur Dernière intervention 12 septembre 2014 1 308
12 mars 2012 à 18:20
Oups, je me suis loupé, j'ai changé le numéro de colonne au lieu de la ligne...
Change donc Range("F1253") par Range("F1252").

Si ça ne marche pas non plus, ben.... je laisse ma place à quelqu'un d'autre :)
0
ath80 Messages postés 208 Date d'inscription dimanche 15 juillet 2007 Statut Membre Dernière intervention 15 mars 2018 9
12 mars 2012 à 18:35
Je vous remercie beaucoup, c'est ça :)

Bonne soirée.
0