Suppressions de lignes en doublons

bonjour à tous,

je suis confronter à un problème de suppression de lignes en doublons.

Je m'explique : je gère des compétions de tennis de table

j'ai un onglet avec tous mes inscrits dans différents tableaux

à l'aide de filtre j'extrais les numéros de licence des joueurs inscrits en double et je les insère dans un autre onglet

à l'aide de RECHERCHEV je récupère les infos concernant les joueurs (dossard, nom, prénoms points de chaque joueur et points de la paire

par la suite sur cet onglet, je trie les paires (de la plus forte à la plus faible et le joueur le plus fort en premier c a d trie sur total de points et tri sur point colonne E dans mon exemple.)

de façon à avoir le plus fort sur la première ligne

le problème est que j'ai deux paires avec les mêmes noms

NOM Point NOM Point total pts Rang

exemple paire 1 Dupont 1200 Durand 1100 2300 1

Durand 1100 Dupont 1200 2300 1

paire 2 Toto 1300 Tata 900 2200 2

tata 900 Toto 1300 2200 2

il faut que je garde uniquement la paire avec le plus fort en premier dans mon cas il faut supprimer la deuxième ligne et la quatrième

pour l'instant je supprime manuellement les lignes en doublon

Existe-t-il une méthode pas trop compliquée pour automatiser la suppression.

Merci d'avance pour votre aide

je vous joins un fichier simplifié ; mon problème se situe sur les onglets double 2400 et coupe <3400

personne pour me venir en aide ????

Bonsoir,

Depuis Excel 2007, il existe un outil de suppression de doublons...

Il suffit de sélectionner ton tableau, le trier (ce que tu fais apparemment...), puis d'aller dans le ruban "Données", et de cliquer sur "Supprimer les doublons"

Si ton problème est plus complexe, il va falloir que tu joignes un fichier exemple...

Bon courage

merci pour la réponse, mais ce n'est pas si simple. Sauf erreur de ma part j'ai fourni un fichier exemple

Re-,

Euh, non, scuse, erreur de ma part, je n'avais point fait attention au fichier joint....

Si tu modifies ta formule dans la cellule Q5 ainsi :

=SI(M5="";SI(I5="";"";"PAIRE INCOMPLETE");SI(NB.SI(E$5:F5;E5)>1;"DOUBLON DEJA SAISI";SI(M5>2400;"PAIRE INCORRECTE>2400";"PAIRE BONNE")))

(La modification ne porte que sur la fonction NB.SI), tu ne retrouves plus que les doublons en 2ème ligne, la 1ère signalant "Paire Bonne"

Peut-être?

Et ainsi, supprimer (toujours en partant du bas), les doublons?

Bon courage

Merci mais j'aurais souhaité supprimer les lignes (doubles) en automatique....

Re-,

Euh, je t'ai donné le début....

En insérant ce code, tu effaces les numéros de licence en double....

Sub suppr_doublon()
Dim DerLig As Long, I As Long
Application.ScreenUpdating = False
With Sheets("D Dble2400")
    DerLig = .Cells(Rows.Count, "E").End(xlUp).Row
    For I = DerLig To 5 Step -1
        If .Cells(I, "Q").Value = "DOUBLON DEJA SAISI" Then
            .Cells(I, "E").ClearContents
        End If
    Next I
End With
Call Tri_double2400
End Sub

Et en modifiant ton code de tri (qui se trouve dans le module 7, et que tu dois donc supprimer, puis coller ce nouveau code) :

Sub Tri_double2400()
'
' Tri_double2400 Macro
'
Dim DerLig As Long
With Sheets("D Dble2400")
    DerLig = .Cells(Rows.Count, "E").End(xlUp).Row
    .Sort.SortFields.Clear
    .Sort.SortFields.Add Key:=.Range("P5:P" & DerLig), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    .Sort.SortFields.Add Key:=.Range("I5:I" & DerLig), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
    With .Sort
        .SetRange Range("C5:P" & DerLig)
        .Header = xlGuess
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End With
End Sub

Tu devrais arriver à ce que tu désires....

Bon courage

J'essaierai demain.

je te tiens au courant.

Merci bcp pour ton aide précieuse

Apparemment ça marche.

Merci Bcp