Selection et tri

[Gil_Se]

Bonjour à tous.
Dans la 1ère colonne de la 1ère feuille est saisi le noms de joueurs et dans une autre colonne leur score. Particularité: le nom des joueurs peuvent apparaitre plusieurs fois car ceux-ci ont la possibilité de rejouer.
Exemple:
Dupont 20
Durand 18
Dupont 22
Martin 21
Je suis à la recherche de la macro qui dans une seconde feuille, sélectionne que le meilleur score de chaque joueurs et les tri:
Dupont 22
Martin 21
Durand 18
J'espère être assez clair et vous remercie d'avance de l'aide que vous pouvez m'apporter.
Gilles

 

[SergiO]

Re : Selection et tri

Bonsoir Gilles et bienvenue sur XLD

Voici un code à tester

Sub Test()
LigVide = 2
Sheets("Feuil2").Range("A2:B65536").ClearContents
Derlig = [A65536].End(xlUp).Row
Range("A1:B" & Derlig).Sort Key1:=Range("A2"), Order1:=xlAscending, Key2:=Range("B2") _
        , Order2:=xlDescending, Header:=xlGuess, OrderCustom:=1, MatchCase:= _
        False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, DataOption2 _
        :=xlSortNormal
For L = 2 To Derlig
If Cells(L, 1) <> Cells(L - 1, 1) Then
Range(Cells(L, 1), Cells(L, 2)).Copy Destination:=Sheets("Feuil2").Cells(LigVide, 1)
LigVide = LigVide + 1
End If
Next L
End Sub

@+

 

[Gil_Se]

Re : Selection et tri

Merci Sergio mais la macro ne fonctionne pas: Dans la seconde feuille n'apparait pas le nom du joueur qui a plusieurs resultat.
A suivre...
Gilles

 

[SergiO]

Re : Selection et tri

Re,

Mon test fonctionne, le voici.

@+

 

[Gil_Se]

Re : Selection et tri

Merci pour le fichier. C'est presque parfait...Mais je souhaite que la feuille 1 reste inchangée, non triée (Elle sert à saisir les joueurs au fur et à mesure de la connaissance de leur scores par numéro d'ordre), et que la feuille 2 donne le résultat final, donc triée.
Encore Merci de ton aide.
Gilles

 

[SergiO]

Re : Selection et tri

Bonjour Gilles, le Forum

Voici une solution qui ne modifie pas la feuille de saisie.

@+

 

[Gil_Se]

Re : Selection et tri

C'est parfait.
Merci pour tout.
Gilles