Classement par points automatique

Bonjour a tous,

Je travaille sur un fichier excel qui inclut un classement par points.

Grace a une fonction RANK (=RANK(Q3;$Q$3:$Q$6) , j'ai reussi a trouver le classement de chaque membre du tournoi.

Cependant j'aimerais que mon classement a trois colonnes (Position, nom et nombre de points) s'affiche du premier au dernier par ordre de position.

Mon classement ressemble pour le moment a ceci:

2 Nom A 50

4 Nom B 0

1 Nom C 100

2 Nom D 50

Et j'aimerais qu'il ressemble a cela:

1 Nom C 100

2 Nom D 50

2 Nom A 50

4 Nom B 0

Merci d'avance pour votre aide

Cordialement

Bonjour Loukas, bonjour le Forum,

C'est peut-être idiot de ma part de te le demander mais à tu essayer de trier ta colonne du plus grand au plus petit ?

1° Sélectionne la colonne qui t’intéresse (colonne 3 pour toi)

2° Dans l'onglet "Accueil" du Ruban Excel, clique sur "Trier et Filtrer"

3° Clique sur "Trier du plus grand au plus petit"'

Voilà :p

Bonjour Juice,

Merci pour ta réponse,

En effet j'ai essayer l'option Trier, sans succès.

Sachant que le classement s'actualise automatiquement, la somme de points change et l'option trier ne s'actualise pas automatiquement.

Je joins mon fichier, peut etre que ce sera plus simple comme ca.

Loukas,

Je me doutais bien que ma question était idiote

J'ai modifier ton fichier pour qu'à chaque nouvelle saisie dans ton tableau, ton classement général ce filtre automatiquement !

Regarde et dit moi si sa te conviens

Restant à ta dispo

Ca marche super!

Comment as tu fait?

Merci beaucoup

Loukas

Aha parfait ^^

Comment as tu fait?

Avec un Private Sub Worksheet_Change(ByVal Target As Range) qui permet de lancer une procédure à chaque nouvelle saisie dans une plage de donnée.

En sachant que ta plage est ton tableau de donnée où tu saisie tes scores

La procédure dans son entier ressemble à sa :

Private Sub Worksheet_Change(ByVal Target As Range)
  If Not Intersect(Target, Range("c2:j22")) Is Nothing Then
    With ActiveWorkbook.Worksheets("Pronos").Sort
        .SetRange Range("O3:Q6")
        .Apply
    End With
  End If
End Sub

Voilà ! Ravie d'avoir pu aider