Réaliser un classement automatique

**AlboRobie10** · 22/03/2010, 19h01

Bonsoir à tous!
Je souhaite donc réaliser un classement qui se met à jour automatiquement.

Mon tableau se présente comme ci dessous:
Place/Nom du joueur/Pts
1
2

j'aimerai donc que dès que le nombre pts d'un joueur change, son classement par rapport aux autres joueur s'effectue automatiquement.

Je sais qu'on peut faire avec Données/Trier mais ça ne m'intéresse pas étant donné qu'il faut faire la manipulation à chaque fois.
Y a t-il besoin de VBA???

Merci d'avance
Bonne soirée

**sabzzz** · 22/03/2010, 19h42

bonjour AlboRobie10,

met la formule suivante en cellule A2
=RANG(C2;$C$2:$C$100)
et recopier vers le bas,

fait clic droit sur l'onglet de la feuille et sélectionne "Visualisé le code"
et met y le code suivant

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Private Sub Worksheet_Calculate()
Application.EnableEvents = False
Columns("A:C").Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlGuess, _
 OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal
 Application.EnableEvents = True
End Sub

isabelle

**AlboRobie10** · 22/03/2010, 22h14

Bonsoir SABzzz,

Merci pour ta solution mais je n'ai pas vraiment réussi!
j'ai mis en place la fonction rang comme tu me l'as écrite. ça fonctionne puisqu'on obtient bien le bon classement.

Le problème qui persiste ce sont que les noms ne bouge pas. C'est le numéro du rang qui change.

Je vous joint le fichier pour y voir plus clair!

Bonne soirée et merci d'avance

**sabzzz** · 22/03/2010, 23h56

re bonjour AlboRobie10,

remplace la macro par celle-ci qui est adapté à la plage réel,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Private Sub Worksheet_Calculate()
Application.EnableEvents = False
Range("A6:G20").Sort Key1:=Range("A6"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, DataOption1:=xlSortTextAsNumbers
 Application.EnableEvents = True
End Sub

isabelle