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

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 !

videocontact

XLDnaute Junior
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.
 

Pièces jointes

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.

Code:
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.
 

Pièces jointes

- 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

Retour