VBA Trier par nom et par nombre décroissant

[zephir94]

Bonjour à tous,

J'aurais besoin de vos aides et lumières pour trier des colonnes en fonction de nom et de nombre.
J'ai fait un classeur exemple avec ce que je voudrais obtenir comme résultat après traitement en VBA.
Je vous remercie par avance pour vos aides.

Bien Amicalement

Zephir

 

[Dranreb]

Bonsoir.
Cette procédure le fait sur vos exemples de données :

Sub TriSpécial()
Dim Plage As Range
Set Plage = Feuil1.[A5:C17]
Plage.Sort Key1:=Plage(1, 3), Key2:=Plage(1, 1), Order2:=xlDescending
With Plage.Columns(2)
   .FormulaR1C1 = "=IF(RC3=R[-1]C3,R[-1]C,RC1)"
   .Value = .Value: End With
Plage.Sort Key1:=Plage(1, 2), Order1:=xlDescending, Key2:=Plage(1, 1), Order2:=xlDescending
Plage.Columns(2).Value = Empty
End Sub

Edit: bonsoir Lone-wolf

 

[Lone-wolf]

Réédit: bonsoir Dranreb

J'ai supprimer le precedent message suite à une mauvaise interpretation.

 

[zephir94]

Bonsoir à vous deux,

Merci beaucoup à vous deux.

Je vais tacher de comprendre ce code
Bonne soirée et encore merci.

Bien Amicalement

Zéphir