Bonjour

J'ai un tableau (1 to 16,1 to 2)
1,0
2,8
3,7
4,7
5,6
6,4
...
13,1
14,1
15,3
16,2

Avec la fonction Application Small ou Large je veux chercher les 3 plus grandes valeurs et 3 plus petites valeurs du tableau sans les zéros de la COL2
Le problème c'est que si je prends les 3 premières petites ou grandes valeurs dans mon tableau je voudrais comme résultat 8,7,7,6 et 1,1,2,3 et non 8,7,6 et 0,1,2

Comment faire avec
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Dim I as integer
Dim Tablo() 'exemple avec 16 ligne et 2 col
Dim ResultatLarge() 'donc 1 a 16 Ligne et 2 col
Dim ResultaPetit()
Dim Nombre As Single
Dim Ligne As Long
 
for I = 1 to ubound(Tablo)
'Pour le LARGE
Nombre = Application.WorksheetFunction.Large(Application.Index(Tablo, , 2), I)......
'recherche le numéro de ligne pour la valeur trouvée
Ligne = Application.Match(Nombre, Application.Index(Tablo, , 2), 0)
ResultaPetit(I,1)=I
ResultaPetit(I,2)=Tablo(I,Ligne)
.....
next I

merci d'avance