Trier sans doublon et du plus grand nombre au plus petit

JBARBE · 27 Octobre 2019

Bonjour à tous,
Je voudrais trier mon tableau sans doublon et du plus grand au plus petit nombre !
Soit par macro ou par formule !

https://www.cjoint.com/c/IJBswOajnna

Merci et Bonne journée !

BOISGONTIER · 27 Octobre 2019

Bonsoir,

VB:

Sub class()
  Set Rng = Range("d2:E" & [D65000].End(xlUp).Row)
  tbl = Rng.Value
  Set d = CreateObject("scripting.dictionary")
  For i = 1 To UBound(tbl)
    d(tbl(i, 1)) = tbl(i, 2)
  Next i
  [G2].Resize(d.Count) = Application.Transpose(d.keys)
  [H2].Resize(d.Count) = Application.Transpose(d.items)
  [G2].CurrentRegion.Sort key1:=[H2], Order1:=xlDescending, Header:=xlNo
End Sub

Boisgontier

JBARBE · 27 Octobre 2019

Re,
Merci beaucoup c'est OK !
Bonne soirée !

Trier sans doublon et du plus grand nombre au plus petit

JBARBE

XLDnaute Barbatruc

BOISGONTIER

XLDnaute Barbatruc

Pièces jointes

JBARBE

XLDnaute Barbatruc

Discussions similaires

Trier sans doublon et du plus grand nombre au plus petit

JBARBE

XLDnaute Barbatruc

BOISGONTIER

XLDnaute Barbatruc

Pièces jointes

JBARBE

XLDnaute Barbatruc

Discussions similaires

Privacy & Transparency

Privacy & Transparency