Classer sans doublon

Salut,

j'ai une liste de personne avec un rang x.

Si la personne est non admissible, on doit conserver son rang initial.

Par contre, on doit décaler les autres et s'assurer de ne pas avoir de doublon.

On doit traiter de haut en bas.

Ce sera plus clair avec le fichier, je l'espère !

Merci

19classeur2.xlsx (52.04 Ko)

bonjour,

une proposition via macro

Sub aargh()
    With Sheets("feuil2")
        dl = .Cells(Rows.Count, 1).End(xlUp).Row
        For i = 2 To dl
            If .Cells(i, 2) = "N" Then
                .Cells(i, 4) = .Cells(i, 3)
                If .Cells(i, 3) > maxv Then maxv = .Cells(i, 3)
            ElseIf .Cells(i, 3) > maxv Then
                .Cells(i, 4) = .Cells(i, 3)
                maxv1 = .Cells(i, 3)
            Else
                maxv1 = maxv1 + 1
                .Cells(i, 4) = maxv1
            End If
        Next i
    End With
End Sub
5fauben.xlsm (58.38 Ko)

Bonjour

Bonjour à tous

Une variante.

Bye !

12classeur2-v2.xlsm (58.93 Ko)

Merci

Je ne comprend pas trop le fonctionnement du dictionnaire, mais je vais m'y pencher !

Rechercher des sujets similaires à "classer doublon"