XL 2010 Macro de tri automatique de données

[Greg38550]

Bonjour,

J'ai créer un tableau qui recense :

- des équipes (20)
- des scores (de 0 à 10 sur 20 journées)
- le total de points obtenus
- le rang (de 1 à 20)

Ma question est la suivante : Comment faire pour automatiser le tri des équipes pour quelles soient de la mieux classée à la moins bien classée (et ce à chaque fois que j'ajoute une valeur). J'ai essayer d'adapter plusieurs macros vues sur ce forum mais sans succès (je suis novice en macro).

Merci d'avance pour votre aide précieuse.

Greg

 

[Dranreb]

Bonsoir.
Ceci dans le module "Feuil1 (Feuil1)" paraît faire l'affaire :

Private Sub Worksheet_Change(ByVal Target As Range)
   If Intersect(Me.[B2:U16], Target) Is Nothing Then Exit Sub
   Me.[A2:X16].Sort key1:=Columns("V"), order1:=xlDescending
   End Sub

 

[Dranreb]

Pour ne classer que les colonnes W:X :

Private Sub Worksheet_Change(ByVal Target As Range)
   If Intersect(Me.[B2:U16], Target) Is Nothing Then Exit Sub
   Me.[W2:W16].Value = Me.[A2:A16].Value
   With Me.[X2:X16]: .FormulaR1C1 = "=RANK(RC22,R2C22:R16C22)": .Value = .Value: End With
   Me.[W2:X16].Sort key1:=Columns("X"), Order1:=xlAscending
   End Sub

(N'oubliez pas de l'enregistrer en .xlsm)

 

[Greg38550]

Bonjour,

Effectivement, cela fonctionne parfaitement.
Merci pour votre aide.