XL 2019 supprimer exequos dans un classement de tournoi

  • Initiateur de la discussion Initiateur de la discussion Mimi1952
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

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

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

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
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
0
Affichages
783
Retour