Filtre "ordonné".

[Rick@]

Bonjour,

J'ai besoin de mettre en ordre des résultats obtenus à partir d'une matrice soit par formule ou code. voir le fichier en démo.

Merci à l'avance!!!

 

[david84]

Re : Filtre "ordonné".

Bonjour,
placer cette formule en H8 et la valider en matriciel (Ctrl, Maj et entrée) :

=SI(LIGNE(1:1)<=SOMME(SI(zone<>0;1/NB.SI(zone;zone)));INDIRECT(ADRESSE(MIN(SI((NB.SI(H$7:H7;zone)=0)*(zone<>0);LIGNE(zone)));MOD(MIN(SI((NB.SI(H$7:H7;zone)=0)*(zone<>0);COLONNE(zone)+LIGNE(zone)*10^5));10*5)));"")

Via VBA, c'est également possible en utilisant l'objet Dictionary.
A+

Edit : nommer ta plage "zone"

 

[R@chid]

Re : Filtre "ordonné".

Bonjour Rick@,
Voir PJ si ca te convient???
Amicalement

Edit : Salut David

 

[david84]

Re : Filtre "ordonné".

Re, salut Rachid,
via VBA :

Sub Tri()
Dim dico As Object, Pl(), c As Variant
Pl = Range("B8").CurrentRegion.Value
Set dico = CreateObject("scripting.dictionary")
For Each c In Pl
    If c <> 0 Then dico(c) = dico(c)
Next c
[H8].Resize(dico.Count) = Application.Transpose(dico.keys)
End Sub

A+

 

[Rick@]

Re : Filtre "ordonné".

Gros merci à vous deux! j'achête!!!!

Bonne fin de semaine!