XL 2016 Classement de prix par articles

[Jovial87]

Bonjour,

Je cherche, depuis deux semaines sans succès, à faire un classement de prix (colonne H) par Article (colonne C), de sorte que le prix d'article le moins cher ait 1 (colonne J), le suivant 2, ..., pour le même article. Le classement recommence à l'article suivant.
Les ex-æquo de prix de la même série de l'article reçoivent les mêmes numéros de classement.

avec la formule (trouvee sur le forum, merci a ALS35), j'obtiens un resultat satisfaisant, sauf que, après les ex-æquo, elle saute un numéro, par ex., 1, 1, 3, ... ou 1, 2, 2, 4, ... au lieu de 1, 1, 2, ... ou 1, 2, 2, 3,

=NB.SI.ENS(C$14:C$1013;C14;H$14:H$1013;"<"&H14)+1

Merci d'avance a tous ceux qui vont m'aider a resoudre ce souci!

 

[fanfan38]

Bonjour
faut il classer tous les
ADAPADAP2I- 1, 2, 3 ,4, etc...
ensuite les ADAPADAP2SS 1,2,2,3,etc...
ou seulement par prix
A+ François

 

[Jovial87]

Bonjour fanfan38,

Ce que je cherche c'est de classer les prix par article, soit .

- ADAPADAP2I- 1, 2, 2, 3 ,4
- ADAPADAP2SS 1, 2, 3, 3, 4, ...

Le classement de prix par article!

Merci d'avance!

 

[sylvanu]

Bonjour Jovial, Fanfan ( ou jovial Fanfan )
Un essai en PJ avec une fonction perso dont la syntaxe est :

=TriSansVide(Valeur;Plage)

 

[fanfan38]

Ci joint ma solution par macro
A+ François
Ps: salut sylvanu

 

[Jovial87]

Bonjour sylvanu, fanfan38

Merci beaucoup pour vos nobles interventions.

Papa sylvanu, je voudrais classer les prix par article. Ce veut dire que, a chaque nouveau article, recommencer le classement,

Papa fanfan38, la macro présente un bug. si ça marchait, ce serait la solution idéale pour moi.

En tout cas, merci pour votre implication.

 

[fanfan38]

Quel bUG. J'ai reteste l'appli je ne vois pas de Bug
A+ François

 

[sylvanu]

Re,
@Jovial, désolé ça m'avait échappé.
Un autre essai en PJ. Tout est automatique.
a chaque modification d'une valeur dans la colonne Prix Unit, la colonne Tri se remet à jour automatiquement.

@Fanfan, j'ai le même problème sur mon PC , erreur 438, sur :

A

 

[fanfan38]

Merci sylvanu
Avez encore des problèmes avec cette correction
A+ François

 

[sylvanu]

Sorry, la même :

Après test ça marche si on supprime le 2 de Add2, Add au lieu de Add2. Et ce pour les deux Tris.

 

[fanfan38]

Bonjour
C'était une macro enregistrée… que j'avais modifiée…

   With Sheets("Step1 - PriceSelect")
        .Sort.SortFields.Clear
        Set maplage = .Range("C14:C" & dl)
        .Sort.SortFields.Add Key:=maplage, SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
        Set maplage = .Range("H14:H" & dl)
        .Sort.SortFields.Add Key:=maplage, SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
        With .Sort
            .SetRange Range("A13:K" & dl)
            .Header = xlGuess
            .MatchCase = False
            .Orientation = xlTopToBottom
            .SortMethod = xlPinYin
            .Apply
        End With
    End With

A+ François
merci Sylvanu

 

[Jovial87]

Bonjour
C'était une macro enregistrée… que j'avais modifiée…

   With Sheets("Step1 - PriceSelect")
        .Sort.SortFields.Clear
        Set maplage = .Range("C14:C" & dl)
        .Sort.SortFields.Add Key:=maplage, SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
        Set maplage = .Range("H14:H" & dl)
        .Sort.SortFields.Add Key:=maplage, SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
        With .Sort
            .SetRange Range("A13:K" & dl)
            .Header = xlGuess
            .MatchCase = False
            .Orientation = xlTopToBottom
            .SortMethod = xlPinYin
            .Apply
        End With
    End With

A+ François
merci Sylvanu

Bonjour fanfan,

Merci pour cette excellente intervention.

Deux petits soucis:
- Quand on execute la macro, elle deplace l'entete pour la placer a la derniere ligne;
- Si l'une de cellule de la colonne ''C '' est vide, la cellule correspondante en colonne ''J'' devrait l'etre aussi

 

[sylvanu]

Bonjour Jovial,
Vous avez testé la PJ du post #8 juste par curiosité ?

 

[fanfan38]

Problèmes réglés
A+ François

 

[Jovial87]

Bonjour Jovial,
Vous avez testé la PJ du post #8 juste par curiosité ?

Bonjour,
Certainement. Et merci beaucoup de l'intéret que vous avez accordé a ma préoccupation.
Seulement, selon le code, le classement se fait sur l'ensemble de la liste et non article par article comme souhaité.

Je vous joins le modele fait manuellement pour plus de comprehension. Vous pouvez verifier que le classement de prix se fait par article!