Top 50

[Dan]

Bonjour à tous,

Je vais essayé d'être clair.
Je cherche le moyen de réaliser un top 50 sur base de critère.

Mon fichier étant trop volumineux(128K zippé), je ne sais pas le mettre en directe sur le forum, cependant si vous voulez m'aider envoyé moi un mail sur atrayoux@yahoo.fr, je vous expédierais le fichier.

les critères sont :
Modèle
localisation 1
localisation 2
Code Erreur
Date

Il faudrait regardé les valeurs des cellules et me les copier dans l'ordre de grandeur c'est vraiment comme un top 50 de musique.
exemple:

Modèle :S140LC-VB; Localisation1 :A01; Localisation2 :10;Code Erreur :A1; Répétitivité :105 et tout ça pour une période.

C'est un peu compliquer et je n'y arrive pas.

Merci d'avance

Dan

 

[bbmarcus]

Bonjour Dan, le forum,

essaye avec cette formule:

Range('B15:M13000').Select
Selection.Sort Key1:=Range('C15'), Order1:=xlAscending, Key2:=Range('D15') _
, Order2:=xlAscending, Key3:=Range('G15'), Order3:=xlAscending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Range('A5').Select

Elle te permettra de faire un tri par ordre croissant sur 3 critères.....plus de trois je ne sais pas si ca marche....

bbmarcus