Selection et tri

SergiO

XLDnaute Accro

• 30 Octobre 2007

• #2

Re : Selection et tri

Bonsoir Gilles et bienvenue sur XLD

Voici un code à tester

Code:

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

@+

 

Vote positif 0 Vote négatif

G

Gil_Se

XLDnaute Occasionnel

• 30 Octobre 2007

• #3

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

 

Vote positif 0 Vote négatif

SergiO

XLDnaute Accro

• 30 Octobre 2007

• #4

Re : Selection et tri

Re,

Mon test fonctionne, le voici.

@+

 

Pièces jointes

• Gilles.zip

  9.9 KB · Affichages: 23
• Gilles.zip

  9.9 KB · Affichages: 23
• Gilles.zip

  9.9 KB · Affichages: 22

Vote positif 0 Vote négatif

G

Gil_Se

XLDnaute Occasionnel

• 30 Octobre 2007

• #5

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

 

Vote positif 0 Vote négatif

SergiO

XLDnaute Accro

• 31 Octobre 2007

• #6

Re : Selection et tri

Bonjour Gilles, le Forum

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

@+

 

Pièces jointes

• Gilles-2.zip

  10 KB · Affichages: 22

Vote positif 0 Vote négatif

G

Gil_Se

XLDnaute Occasionnel

• 31 Octobre 2007

• #7

Re : Selection et tri

C'est parfait.
Merci pour tout.
Gilles

 

Vote positif 0 Vote négatif