XL 2013 Créer un classement conditionnel

H

Hieu

XLDnaute Impliqué

• 23 Mai 2016

• #2

Re : Créer un classement conditionnel

Salut,

Je te propose la fonction rang qui t'évite une macro inutile

++

 

Pièces jointes

• Classement_v0.xlsx

  9.3 KB · Affichages: 52

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 23 Mai 2016

• #3

Re : Créer un classement conditionnel

Bonsoir.
Sans macro pour l'instant, vos données me semblant déjà classées convenablement par projets puis montants.
En D2, à propager sur 14 lignes :

Code:

=SI($A2=$A1;D1+1;1)

 

Vote positif 0 Vote négatif

dridriboulot

XLDnaute Nouveau

• 23 Mai 2016

• #4

Re : Créer un classement conditionnel

Merci pour votre réponse rapide !
En effet, la formule fonction très bien lorsque les données sont classées de cette manière. Sauf qu'en réalité ce n'est pas le cas! J'avais crée le classeur "exemple" de manière rapide et donc avec une certaine logique (montant par projet croissant suivant le numéro de projet).
Pensez vous que l'on puisse faire une macro pour faire ce tri et ensuite appliquer votre formule?
Merci d'avance!

 

Vote positif 0 Vote négatif

dridriboulot

XLDnaute Nouveau

• 23 Mai 2016

• #5

Re : Créer un classement conditionnel

Merci pour ta réponse! 🙂 Néanmoins, la fonction rang ne prend pas ici la condition de classement par numéro de projet. Vois tu ce que je veux dire?

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 23 Mai 2016

• #6

Re : Créer un classement conditionnel

En s'inspirant largement du produit de l'enregistreur de macro :

VB:

Sub Macro1()
With ActiveWorkbook.Worksheets("Feuil1").AutoFilter.Sort
   .SortFields.Clear
   .SortFields.Add Key:=Range("A1"), SortOn:=xlSortOnValues, _
      Order:=xlAscending, DataOption:=xlSortNormal
   .SortFields.Add Key:=Range("C1"), SortOn:=xlSortOnValues, _
      Order:=xlAscending, DataOption:=xlSortNormal
   .Header = xlYes
   .MatchCase = False
   .Orientation = xlTopToBottom
   .SortMethod = xlPinYin
   .Apply
   End With
With ActiveWorkbook.Worksheets("Feuil1").AutoFilter.Range
   .Columns("D").Rows(2).Resize(.Rows.Count - 1) _
      .FormulaR1C1 = "=IF(RC1=R[-1]C1,R[-1]C+1,1)"
   End With
End Sub

 

Vote positif 0 Vote négatif

dridriboulot

XLDnaute Nouveau

• 23 Mai 2016

• #7

Re : Créer un classement conditionnel

Super! Je viens de l'insérer dans mon classeur de travail et ca fonctionne parfaitement 😀
A moi de comprendre la macro mnt !!
Je vous remercie pour la rapidité, la qualité de vos réponses et le temps que vous m'avez consacré !
Bonne soirée!
Cdlt,
Adrien

 

Vote positif 0 Vote négatif

H

Hieu

XLDnaute Impliqué

• 23 Mai 2016

• #8

Re : Créer un classement conditionnel

Danreb, t'es trop rapide pour moi ^^

 

Vote positif 0 Vote négatif