XL 2019 supprimer exequos dans un classement de tournoi

Mimi1952

XLDnaute Occasionnel
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
 

Pièces jointes

  • Classeur2.xlsx
    41.7 KB · Affichages: 12

job75

XLDnaute Barbatruc
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 :
VB:
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+
 

Pièces jointes

  • Classement(1).xlsm
    36.2 KB · Affichages: 7

Mimi1952

XLDnaute Occasionnel
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 :
VB:
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

XLDnaute Barbatruc
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..
 

Pièces jointes

  • Classement(2).xlsm
    36.3 KB · Affichages: 7

Discussions similaires

Réponses
0
Affichages
274
Haut Bas