XL 2019 supprimer exequos dans un classement de tournoi

[Mimi1952]

Bonjour à tous ,

J'ai un programme de tournoi sportif , j'ai une feuille de 8 ème de finale sur laquelle 2 joueurs on le même score
Reveil 129 points puis le deuxième joueur Golo également 129 points .
Ensuite, dans ma feuille Classement je retrouve Reveil 2 fois et pas Golo .Par contre si je modifie seulement d'un point le score de l'un ou de l'autre
dans la feuille finale j'ai les deux noms qui apparaissent .
Je pense qu'il doit y avoir une formule pour éviter ce problème .
Dans l'attente de vos réponses je vous remercie.
Mimi1952

 

[job75]

Bonjour Mimi1952,

J'avoue ne pas avoir vraiment compris ce que vous avez fait.

Voyez quand même le fichier joint et cette macro affectée au bouton :

Sub Classement()
Dim c As Range, n&, a(), nn&
For Each c In Feuil8.Columns("I").SpecialCells(xlCellTypeConstants)
    If n Mod 2 Then
        If c(1, 6) > a(1, nn) Then a(0, nn) = c(1, 2): a(1, nn) = c(1, 6)
    Else
        nn = n / 2
        ReDim Preserve a(1, nn) 'base 0
        a(0, nn) = c(1, 2)
        a(1, nn) = c(1, 6)
    End If
    n = n + 1
Next
'---restitution dans la feuille Classement---
Feuil2.[B4].Resize(nn + 1, 2) = Application.Transpose(a)
Feuil2.Activate
End Sub

A+

 

[Mimi1952]

Bonjour Mimi1952,

J'avoue ne pas avoir vraiment compris ce que vous avez fait.

Voyez quand même le fichier joint et cette macro affectée au bouton :

Sub Classement()
Dim c As Range, n&, a(), nn&
For Each c In Feuil8.Columns("I").SpecialCells(xlCellTypeConstants)
    If n Mod 2 Then
        If c(1, 6) > a(1, nn) Then a(0, nn) = c(1, 2): a(1, nn) = c(1, 6)
    Else
        nn = n / 2
        ReDim Preserve a(1, nn) 'base 0
        a(0, nn) = c(1, 2)
        a(1, nn) = c(1, 6)
    End If
    n = n + 1
Next
'---restitution dans la feuille Classement---
Feuil2.[B4].Resize(nn + 1, 2) = Application.Transpose(a)
Feuil2.Activate
End Sub

A+

Bonjour Job 75,

Merci pour votre réponse, j'ai essayer mais j'ai toujours le même souci , il y à toujours des exequos dans le classement (rang).
il y à 2 joueurs avec 147 points qui sont classés 1er puis 2 autres avec 144 et aussi 2 autres avec 145 points .
Je voudrais s'y possible supprimer ces doublons dans le classement.
Ah ! oui j'ai oublié de préciser que ce classement ne concerner que les perdants des 8 èmes de finale.
Cordialement
mimi1952

 

[job75]

Je ne vois pas pourquoi vous ne voulez pas d'exaequo ni comment vous voulez les supprimer.

Pour récupérer les perdants c'est facile, voyez ce fichier (2) et la macro très peu modifiée..