Aidez-moi SVP, création d'une macro pour un tri....

[videocontact]

Bonjour à tous,

J'ai développé avec mes (très) petite connaissance un petit programme pour la gestion d'un tournoi.

J'aimerai avoir une macro sur le bouton "Classement par Victoire&Avr." dans la feuille "Classement" qui me donne :

- Un tri dans l'odre suivant, plus grand nombre de victoire (colonne "P"), et ensuite en 2eme valeur le meilleur avérage (colonne "Q").....mais sans qui tienne compte biensûrs des lignes ou il y a pas de joueur.
....Je pense que l'idéal serait qu'il me copie cela dans une autre feuille ou apparaitrait seulement un numéro de classement (1er,2er,3eme), le nom du joueur, le nombre de victoire et ensuite l'avérage ; et se afin que je puisse également l'imprimer grâce à un bouton.

Pouvez-vous vraiment m'aider, car la je patauge pour y parvenir...

Merci à vous.

 

[sourcier08]

Re : Aidez-moi SVP, création d'une macro pour un tri....

Salut,

J'ai ajouté une macro que j'ai enregistré avec l'outil d'enregistrement et la fonction tri qui se trouve dans Excel 2007.

Sub Classement_victoire_average()

    Range("g3:AI146").Select
        ActiveWorkbook.Worksheets("Classement").Sort.SortFields.Clear
        ActiveWorkbook.Worksheets("Classement").Sort.SortFields.Add Key:=Range("P3:P146"), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
        ActiveWorkbook.Worksheets("Classement").Sort.SortFields.Add Key:=Range("Q3:Q146"), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
    
    With ActiveWorkbook.Worksheets("Classement").Sort
        .SetRange Range("g2:AI146")
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    
    Range("AK3").Select
    
End Sub

Voici le fichier.

 

[videocontact]

Re : Aidez-moi SVP, création d'une macro pour un tri....

Merci a toi de m'apporter ton aide.

Quand j'excécute la macro, il y a un débogage....et le tri ne s'effectue pas malheureusement..