Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

Trouver 4 maxis

2 réponses
Avatar
Franck
Bonjour,

En colonne A : des noms
En colonne B : des valeurs

Le but est de trouver par VBA les 4 noms correspondants=20
aux valeurs maxi.

Le but est soit d'extraire les 4 noms vers C1,C2,C3,C4=20
soit de les mettre en =E9vidence (fond de cellule rouge par=20
ex)

Je ne peux pas faire de tri sur les donn=E9es.

Merci

2 réponses

Avatar
isabelle
bonjour Franck,

sans vba en cellule C1

=INDEX(A:A;EQUIV(GRANDE.VALEUR(B:B;LIGNE());B:B;0))

à recopier vers le bas.

en vba,

For i = 1 To 4
Range("C" & i) = Evaluate("=INDEX(A:A,MATCH(LARGE(B:B," & i &
"),B:B,0))")
Next

isabelle


Bonjour,

En colonne A : des noms
En colonne B : des valeurs

Le but est de trouver par VBA les 4 noms correspondants
aux valeurs maxi.

Le but est soit d'extraire les 4 noms vers C1,C2,C3,C4
soit de les mettre en évidence (fond de cellule rouge par
ex)

Je ne peux pas faire de tri sur les données.

Merci


Avatar
Cela semble fonctionner (la formule)

Toutefois cela ne gère pas les égalités

Par ex

A 20
B 18
C 12
D 0
E 20
F 15
G 4

La formule devrait renvoyer A, E, B, F ce qui n'est pas le
cas (renvoie A, A, B, F).


-----Message d'origine-----
bonjour Franck,

sans vba en cellule C1

=INDEX(A:A;EQUIV(GRANDE.VALEUR(B:B;LIGNE());B:B;0))

à recopier vers le bas.

en vba,

For i = 1 To 4
Range("C" & i) = Evaluate("=INDEX(A:A,MATCH(LARGE(B:B," &
i &

"),B:B,0))")
Next

isabelle


Bonjour,

En colonne A : des noms
En colonne B : des valeurs

Le but est de trouver par VBA les 4 noms correspondants
aux valeurs maxi.

Le but est soit d'extraire les 4 noms vers C1,C2,C3,C4
soit de les mettre en évidence (fond de cellule rouge
par


ex)

Je ne peux pas faire de tri sur les données.

Merci
.