XL 2016 classement avec conservation des doublons et éviter les sauts des chiffres.

saberamira · 2 Décembre 2024

Je veux faire un classement avec conservation des doublons et éviter les sauts des chiffres.
cad un classement de 1; 2; 3 etc...
et les doublons reçoivent la même valeur.

Bien cordialement.

Phil69970 · 2 Décembre 2024

Bonjour à toi aussi @saberamira

Voir la charte § 1.3

job75 · 3 Décembre 2024

Bonjour saberamira, Phil69970, le forum,

J'ai commencé par mettre le tableau sous forme de tableau structuré.

Puis formule matricielle en C2 à valider par Ctrl+Maj+Entrée et tirer à droite et vers le bas :

Code:

=EQUIV(A2-LIGNE()/1000000;GRANDE.VALEUR(INDEX(Tableau1;;COLONNE(A2))-LIGNE(Tableau1)/1000000;LIGNE(Tableau1)-1);0)

-LIGNE()/1000000 et -LIGNE(Tableau1)/1000000 permettent de distinguer les ex-aequo.

A+

job75 · 3 Décembre 2024

Bon OK vous avez dit :

saberamira à dit:
et les doublons reçoivent la même valeur.

mais tant pis car ce n'est pas ce qu'on faut d'habitude.

saberamira · 3 Décembre 2024

job75 à dit:
Bonjour saberamira, Phil69970, le forum,

J'ai commencé par mettre le tableau sous forme de tableau structuré.

Puis formule matricielle en C2 à valider par Ctrl+Maj+Entrée et tirer à droite et vers le bas :

Code:

=EQUIV(A2-LIGNE()/1000000;GRANDE.VALEUR(INDEX(Tableau1;;COLONNE(A2))-LIGNE(Tableau1)/1000000;LIGNE(Tableau1)-1);0)

-LIGNE()/1000000 et -LIGNE(Tableau1)/1000000 permettent de distinguer les ex-aequo.

A+

Bonjour, merci, en fait, je veux par exemple que les doublons restent dans le classement mais avec la même notation cad par exemple, si on prend la ligne A, on trouve la valeur 15 trois fois, donc, je veux que les trois de 15 reçoivent le classement 7 par exemple et on continu par la suite vers la classe 8 et ainsi de suite.

saberamira · 3 Décembre 2024

job75 à dit:
Bonjour saberamira, Phil69970, le forum,

J'ai commencé par mettre le tableau sous forme de tableau structuré.

Puis formule matricielle en C2 à valider par Ctrl+Maj+Entrée et tirer à droite et vers le bas :

Code:

=EQUIV(A2-LIGNE()/1000000;GRANDE.VALEUR(INDEX(Tableau1;;COLONNE(A2))-LIGNE(Tableau1)/1000000;LIGNE(Tableau1)-1);0)

-LIGNE()/1000000 et -LIGNE(Tableau1)/1000000 permettent de distinguer les ex-aequo.

A+

Bonjour, merci, en fait, je veux par exemple que les doublons restent dans le classement mais avec la même notation cad par exemple, si on prend la ligne A, on trouve la valeur 15 trois fois, donc, je veux que les trois de 15 reçoivent le classement 7 par exemple et on continu par la suite vers la classe 8 et ainsi de suite.

ALS35 · 3 Décembre 2024

Bonjour à tous,
Tu peux essayer en C3 et à recopier vers le bas :

VB:

=SOMMEPROD((1/NB.SI.ENS($A$3:$A$38;$A$3:$A$38))*($A$3:$A$38>A3))+1

si c'est bien ça que tu souhaites (pour un classement décroissant).
Cordialement

saberamira · 3 Décembre 2024

ALS35 à dit:
Bonjour à tous,
Tu peux essayer en C3 et à recopier vers le bas :

VB:

=SOMMEPROD((1/NB.SI.ENS($A$3:$A$38;$A$3:$A$38))*($A$3:$A$38>A3))+1

si c'est bien ça que tu souhaites (pour un classement décroissant).
Cordialement

Merci, tout est bon, mais il a sauter le neuf donc, il y a toujours erreur.

ALS35 · 3 Décembre 2024

Bonjour de nouveau,

Merci, tout est bon, mais il a sauter le neuf donc, il y a toujours erreur.

Je ne vois pas de problème, poste ton fichier avec l'erreur et le résultat attendu.
Cordialement

job75 · 3 Décembre 2024

Voyez le fichier .xlsm joint et cette macro dans le code de la feuille :

VB:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim col%, P As Range
Application.ScreenUpdating = False
Application.EnableEvents = False 'désactive les évènements
With [Tableau1] 'tableau structuré
    For col = 1 To 2
        Set P = .Columns(col).Offset(, 100) 'colonne auxiliaire extérieure au tableau
        .Columns(col).Copy P
        P.RemoveDuplicates 1, Header:=xlNo 'supprime les doublons
        P.Sort P, xlDescending, Header:=xlNo 'tri décroissant
        .Columns(col + 2) = "=MATCH(" & .Cells(1, col).Address(0) & "," & P.Address & ",0)"
        .Columns(col + 2) = .Columns(col + 2).Value 'supprime les formules
        P.Clear
    Next
End With
Application.EnableEvents = True 'réactive les évènements
End Sub

Elle se déclenche quand on modifie ou valide une cellule quelconque.

saberamira · 3 Décembre 2024

ALS35 à dit:
Bonjour de nouveau,

Je ne vois pas de problème, poste ton fichier avec l'erreur et le résultat attendu.
Cordialement

Merci infiniment.

XL 2016 classement avec conservation des doublons et éviter les sauts des chiffres.

saberamira

XLDnaute Nouveau

Pièces jointes

Phil69970

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

Pièces jointes

job75

XLDnaute Barbatruc

saberamira

XLDnaute Nouveau

saberamira

XLDnaute Nouveau

ALS35

XLDnaute Impliqué

Pièces jointes

saberamira

XLDnaute Nouveau

ALS35

XLDnaute Impliqué

job75

XLDnaute Barbatruc

Pièces jointes

saberamira

XLDnaute Nouveau

Discussions similaires