salut a tous

j'ai un pti soucis...voila:


j'ai une macro su excel qui doit prendre les colonne d'une feuille

et selectionner les 5 plus grandes valeurs.
ma boucle va donc
selectionner la plus grande valeur de la colonne 2 et la copier elle ainsi que le titre de cette ligne dans un autre classeur

j'utilise

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
 
For x = 1 To 5    'boucle pour récupérer les 5 valeurs les plus eleveées
 
  On Error GoTo a  ' gestion de l'erreur dans le cas ou la colonne considérée
                   ' contient moins de 5 valeurs
 
  Nombre = Application.WorksheetFunction.Large(Columns(i), x)
  v = Application.Match(Nombre, Columns(i), 0)
  Ligne = Application.Match(Nombre, Columns(i), 0)
  market = f1.Cells(Ligne, 1)
  titre1 = f1.Cells(1, i).Value
tout se passe bien quand les valeurs sont distictes mais ya un pb dés que il ya 2 plus grandes valeurs identiques

ex

jai

a b c

aa 2
bb 2
cc 1


dans ce cas il mecopie (aa 2) comme la plus grande valeur et (aa 2 ) comme la deuxieme plus grande valeur au lieu de (bb 2 )...

en éspérant avoir été clair...Merci de votre aide