Microsoft 365 Top 3 sans TCD

[nat54]

Bonjour,

Comment réaliser un top 3 par service (j'ai mis 2 exemples) sans TCD ?

Merci,

 

[chris]

Bonjour

=PRENDRE(TRIER(FILTRE(A2:C37;$A2:$A37=J1);3;-1;0);3)

 

[job75]

Bonsoir nat54, chris,

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [J1]) Is Nothing Then Exit Sub
Dim P As Range
Application.ScreenUpdating = False
With [A1].CurrentRegion
    .AutoFilter 1, [J1] 'filtre automatique
    Set P = .Offset(1).SpecialCells(xlCellTypeVisible)
    .AutoFilter
    Set P = Intersect(P, .Columns(2).Resize(, 2))
End With
With [J3].Resize(Rows.Count - 2, 2)
    .Clear 'RAZ
    If P Is Nothing Then Exit Sub
    P.Copy .Cells(1) 'copier-coller
    .RemoveDuplicates Array(1, 2), Header:=xlNo 'supprime les lignes doublons
    .Sort .Cells(1, 2), xlDescending, .Cells(1), , xlAscending, Header:=xlNo 'tri sur 2 colonnes
End With
[J6].Resize(Rows.Count - 5, 2).Clear 'garde les 3 premiers
End Sub

Comme il peut y avoir des lignes en doublon il faut les supprimer.

A+

 

[Efgé]

Bonjour à toutes et tous,
Je n'ai pas compris la même chose, donc je propose...
Je n'ai pas trouvé comment limiter le résultat aux trois premières lignes mais je trie les valeurs par opération en additionnant les montant correspondants.

=LET(
toto1;UNIQUE(FILTRE(Tableau1[Opération];Tableau1[Service]=J1));
toto2;SOMME.SI.ENS(Tableau1[Montant];Tableau1[Service];J1;Tableau1[Opération];toto1);
TRIER(ASSEMB.H(toto1;toto2);2;-1)
)

Si quelqu'un trouve comment ne renvoyer que les trois premières lignes, je suis intéressé.

Cordialement

 

[nat54]

Bonjour
Je vais regarder vos propositions
NB : j'aurai dû préciser sans VBA

 

[nat54]

Bonjour

=PRENDRE(TRIER(FILTRE(A2:C37;$A2:$A37=J1);3;-1;0);3)

Bonjour,
A coller où ? Car ça ne donne pas le résultat attendu

Cela donne
A5 45
A4 15
A4 6

Alors que j'attends
A5 45
A4 27
A1 20

 

[Efgé]

Re
En fait la solution pour extraire les trois premières lignes était déjà donnée par @chris

=LET(
toto1;UNIQUE(FILTRE(Data[Opération];Data[Service]=J1));
toto2;SOMME.SI.ENS(Data[Montant];Data[Service];J1;Data[Opération];toto1);
PRENDRE(TRIER(ASSEMB.H(toto1;toto2);2;-1);3;2)
)

Cordialement

 

[nat54]

Re,

Génial cette proposition ! Même si je ne comprends rien à la formule ...

Mon collègue vient par contre de m'annoncer une complexité dont je n'avais pas connaissance lors de la création du sujet sur le forum.
On doit exclure une des opérations, admettons la A4 : est-ce possible ?

 

[Efgé]

Re
Tout dépend du pourquoi A4 ?
Il faut des règles compréhensibles par 1: Excel 2: Moi
Cordialement

 

[nat54]

Parce que c'est une opération liée à un sujet RH qui ne doit pas intervenir dans le top 3, sinon elle sera dans les top 3 de tous les services

 

[chris]

Bonjour à tous

Je ne vois aucune valeur à 27 ni 20 pour le service AAA dans le tableau fourni...

Si on mets sous forme d etableau

=PRENDRE(TRIER(FILTRE(Data[[Opération]:[Montant]];Data[Service]=J1);2;-1;0);3)

A placer en I4

Pour exclure A4

=PRENDRE(TRIER(FILTRE(Data[[Opération]:[Montant]];(Data[Service]=J1)*(Data[Opération]<>"A4"));2;-1;0);3)

 

[Efgé]

Re
@chris : nat54 voudrait sommer les valeurs avant de sortir le top 3
@nat54 : il me faut des informations plus fiables. avec un fichier plus représentatif du sujet. Comment savoir que telle ou telle ligne est un "sujet RH" ?
Cordialement

 

[nat54]

Re,
Je découvre mon job là (nouveau poste ), je prépare un fichier plus représentatif.

 

[Efgé]

Re
Ma vision sans "A4"

=LET(
toto1;UNIQUE(FILTRE(Data[Opération];(Data[Service]=J1)*(Data[Opération]<>"A4")));
toto2;SOMME.SI.ENS(Data[Montant];Data[Service];J1;Data[Opération];toto1);
PRENDRE(TRIER(ASSEMB.H(toto1;toto2);2;-1);3;2)
)

Cordialement

 

[nat54]

Re,

Voilà le tableau revu.
Je vois déjà un hic si 2 montants identiques mais on verra ça après ^^

Idée supplémentaire
• exclure l'opération en question du TCD
• peut-être que trier de façon décroissante les montants aiderait ?! pour ne conserver que les 3 premières valeurs du service