Trier des données dans l'ordre croissant

[ecapp6666]

Bonjour,
Voilà, j'ai une série de vitesses associées à un nombre et je voudrais les trier dans l'ordre croissant,
J'ai récupéré le code en faisant une macro mais quand j'exécute le code ça ne fonctionne plus 😕 :

[...]
Sheets("PLOT").Activate
ActiveSheet.Range("A2:B4").Select
Selection.Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
[...]

J'ai comme erreur : 'Erreur d'exécution 1004, Référence de tri non valide.'

Les données sont sur la feuille 'PLOT' organisées de la manière suivante :

______A____________B_____
1 |__Vitesse___|___ Nbr____
2 |__30_______|____ 5 ____
3 |__10 ______ |____ 8 ____
4 |__20 ______ |____ 1 ____

Si vous avez des idées n'hésitez pas!! 😀
Merci d'avance pour vos réponses!

 

[mercant76]

Re : Trier des données dans l'ordre croissant

bonjour,

désolé, je n'arrive pas à reproduire ton message ( fait avec ta macro ).

un bout de fichier avec l'anomalie serait bienvenu.

@+

 

[dra72]

Re : Trier des données dans l'ordre croissant

Bonjour,

Essaie de remplacer:

Selection.Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom

par:

Selection.Sort Key1:=ActiveSheet.Range("A2"), Order1:=xlAscending, Header:=xlGuess, 
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom

Bonne journée

 

[ecapp6666]

Re : Trier des données dans l'ordre croissant

Merci pour ta réponse! j'essaye tout de suite et je te tiens au courant! 🙂

 

[ecapp6666]

Re : Trier des données dans l'ordre croissant

Meri bcp dra72!! ca fonctionne très bien! 😀
Bonne journée! à bientôt!

 

[ralph45]

Re : Trier des données dans l'ordre croissant

Bonjour à tous,

essaye également de bien définir ta table de tris :

ActiveSheet.Range("A1:B4").Select
et non pas :
ActiveSheet.Range("A2:B4").Select

Cordialement,

 

[ecapp6666]

Re : Trier des données dans l'ordre croissant

J'ai défini ma table de tri à partir de A2 car en A1 il y a l'intitulé de la colonne. Je dois quand même la prendre en compte?

 

[dra72]

Re : Trier des données dans l'ordre croissant

Oui effectivement

Avec

Header:=xlGuess

il faut aussi sélectionner l'intitulé.
Bien vu ralph45

Si tu ne veux pas le sélectionner, utilises

Header:=xlNo

Bonne journée à vous.

 

[ecapp6666]

Re : Trier des données dans l'ordre croissant

en effet c'est bcp mieux ainsi! merci à tous pour votre aide