VBA_E : Selection des 5 plus grandes valeurs d'une colonne..

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:

---

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

Bonjour,
Ce que tu peux faire c'est de rajouter une 3° colonne ou il n'y a par exemple que des 0 et lorsque tu l'as traité tu la passe à 1. Et lorsque tu fais un test tu vérifie d'abord que ta troisème colonne est à 0

ouais pas bete du tout

mais mes fichiers excel sont générées par une base de donnée...
j'aurais préféré ne pas toucher aux requetes...

Donc si tu ne veux pas toucher le fichier Excel, tu peux toujours créer un tableau à partir de ce fichier

oui tout à fait....je vais voir ca...

il doit bien exister une solution plus directe que de construire des tableaux
j'en ai jamais utilisé en plus

bonjour

Citation:

---

v = Application.Match(Nombre, Columns(i), 0)

---

la fonction Match ne peut renvoyer que la premiere valeur trouvée

comme le dit Marsupilami34, la meilleure solution est de
créer un tableau
le trier sur ta colonne i
et récupérer les 5 plus grandes valeurs


michel