XL 2016 Recherche des 10 plus grandes valeurs successives

Lorenzini · 28 Avril 2023

Bonjour,

N'ayant pas trouvé ce que je cherchais, je viens demander de l'aide sur le forum :
J'ai un tableau très simple avec 3 colonnes : Nom de service - Matériel - Prix
Dans un second tableau, j'ai commencé par trier les 10 plus grandes valeurs (Prix) en ordre décroissant.
Peut-être est-ce simple pour vous ; pour moi, je bloque (vu mon niveau débutant).
Comment fait-on pour trier aussi par service ?
Car ma formule me renvoie toujours (et uniquement) le 1er service rencontré.
Me dirigerai-je vers une formule matricielle ?
J'ai tenté d'expliquer dans le fichier joint le résultat que j'espérais obtenir par formule...

Vos aides sont toutes les bienvenues

Gen Rose · 28 Avril 2023

Bonjour
Est-ce obligé par formule?

Car en utilisant le tableau excel avec les filtre; en filtrant d'abord service; ensuite Prix, on obtient exactement le résultat souhaité.
Voir p.j.

Gen Rose · 28 Avril 2023

J'ai ajouté une MFC pour surligner les 10 plus grandes valeurs

sylvanu · 28 Avril 2023

Bonjour Lorenzini,
Le problème est que GRANDE.VALEUR ne traite pas les d'exæquos.
Une astuce possible est de créer une colonne qui peut être masquée et qui contient :
VB:
=D2+LIGNE()/100000
Comme le N° de ligne change ... à chaque ligne, il ne peut plus y avoir d'exæquos.

Staple1600 · 28 Avril 2023

Bonjour

Il y a une option dans le filtre Automatique qui se nomme : 10 premiers
Donc on filtre avec cette option puis on trie la plage filtrée (sur la colonne D) du plus grand au plus petit
Ci-dessous en VBA (par commodité pour reproduire le test)

VB:

Sub Macro1()
'Etape 1 : Filtre
ActiveSheet.Range("$B$1:$D$22").AutoFilter Field:=3, Criteria1:="10", Operator:=xlTop10Items
'Etape 2 : Trie
ActiveSheet.Range("$B$1:$D$22").Sort Key1:=Range("D2"), Order1:=xlDescending, Header:=xlYes
End Sub

Lorenzini · 28 Avril 2023

Gen Rose à dit:
Bonjour
Est-ce obligé par formule?

Car en utilisant le tableau excel avec les filtre; en filtrant d'abord service; ensuite Prix, on obtient exactement le résultat souhaité.
Voir p.j.

Bonsoir Gen Rose

Alors, obligé par formule, non (même si j'étais parti sur cette idée), mais j'avoue que j'avais pensé à la solution que tu proposes ainsi qu'à une mise en forme conditionnelle.
En fait, c'était même la seule solution que j'avais envisagé, je veux dire à ma portée.
Merci Gen Rose

Lorenzini · 28 Avril 2023

sylvanu à dit:
Bonjour Lorenzini,
Le problème est que GRANDE.VALEUR ne traite pas les d'exæquos.
Une astuce possible est de créer une colonne qui peut être masquée et qui contient :
VB:
=D2+LIGNE()/100000
Comme le N° de ligne change ... à chaque ligne, il ne peut plus y avoir d'exæquos.

Bonsoir sylvanu

Wow, alors là, j'aime vraiment beaucoup ta solution ! Subtil ! Il fallait y penser ; je retiens, Merci !

Staple1600 · 28 Avril 2023

Bonsoir @Lorenzini

Et quid de la proposition qui utilise le filtre automatique ?
(cf message#5)
Qui donne ce résultat

NB: La macro était juste là pour rapidement appliquer le filtre et le tri.
Mais cela se fait très facilement manuellement (sans macro)

Lorenzini · 28 Avril 2023

Staple1600 à dit:
Bonjour

Il y a une option dans le filtre Automatique qui se nomme : 10 premiers
Donc on filtre avec cette option puis on trie la plage filtrée (sur la colonne D) du plus grand au plus petit
Ci-dessous en VBA (par commodité pour reproduire le test)

VB:

Sub Macro1() 'Etape 1 : Filtre ActiveSheet.Range("$B$1:$D$22").AutoFilter Field:=3, Criteria1:="10", Operator:=xlTop10Items 'Etape 2 : Trie ActiveSheet.Range("$B$1:$D$22").Sort Key1:=Range("D2"), Order1:=xlDescending, Header:=xlYes End Sub

Bonsoir Staple1600

Tout comme Gen Rose, j'avais pensé aux filtres ; après, j'avoue que je n'ai pas pensé au code VBA pour lequel je prends note !

Du coup, je me tâte... je suis pour le moment sur la solution de sylvanu mais d'office, j'ajoute ta solution à ma bibliothèque VBA...
Merci !

Lorenzini · 28 Avril 2023

Staple1600 à dit:
Bonsoir @Lorenzini

Et quid de la proposition qui utilise le filtre automatique ?
(cf message#5)
Qui donne ce résultat
Regarde la pièce jointe 1169240
NB: La macro était juste là pour rapidement appliquer le filtre et le tri.
Mais cela se fait très facilement manuellement (sans macro)

oui, je reconnais qu'elle est rapide... et efficace !
Merci ! Merci ! Je prends !

Staple1600 · 28 Avril 2023

Re

@Lorenzini
Précisions
Le code VBA était juste là pour que tu puises faire le test rapidement
Mais comme je viens de l'écrire dans le précédent message, je suggère plutôt de simplement piloter le filtre et le tri à la souris

Lorenzini · 29 Avril 2023

Staple1600 à dit:
Re

@Lorenzini
Précisions
Le code VBA était juste là pour que tu puises faire le test rapidement
Mais comme je viens de l'écrire dans le précédent message, je suggère plutôt de simplement piloter le filtre et le tri à la souris

Merci encore Staple !

XL 2016 Recherche des 10 plus grandes valeurs successives

Lorenzini

XLDnaute Occasionnel

Pièces jointes

Gen Rose

XLDnaute Impliqué

Pièces jointes

Gen Rose

XLDnaute Impliqué

Pièces jointes

sylvanu

XLDnaute Barbatruc

Pièces jointes

Staple1600

XLDnaute Barbatruc

Lorenzini

XLDnaute Occasionnel

Lorenzini

XLDnaute Occasionnel

Staple1600

XLDnaute Barbatruc

Lorenzini

XLDnaute Occasionnel

Lorenzini

XLDnaute Occasionnel

Staple1600

XLDnaute Barbatruc

Lorenzini

XLDnaute Occasionnel

Discussions similaires