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
tout se passe bien quand les valeurs sont distictes mais ya un pb dés que il ya 2 plus grandes valeurs identiques
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
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
Partager