Classement

[Babe]

Bonjour le forum,

Je vous joint un fichier pour faire un classement en automatique en fonction des résultats des équipes.

Merci pour votre aide.

BABE

 

[le Fnake]

bonjour Babe, le forum

une solution à la main qui peut éventuellement te suffire :

- tu sélectionnes toute la plage concernée, du nom des équipes jusqu'au dernier mois (par exemple si ca s'arrete en janvier ca sera la plage A2 à F6)

- menu Données/Trier. Dans "Trier par", tu choisis le mois qui t'intéresse, en cochant décroissant (ca fait le tri suivant les points), et dans "puis par", tu choisis "(colonne A)" en cochant croissant (pour tri des équipes).

- copier-coller de la colonne A dans le tableau du bas et le tour est joué !

Voila, si ca peut te suffire.

le Fnake

 

[Babe]

Bonjour Fnake, (re) bonjour le forum,

J'avais pensé à cette solution sauf que je me disais que sur le site, certaines personnes pourraient m'aider en utilisant soit une fonction soit une macro.

Sinon, j'utiliserais cet outil.

Merci beaucoup.

BABE

 

[le Fnake]

re,

ben voila ce que je propose dans ce cas, ca semble fonctionner. Par contre, ca reprend tout à chaque fois, même si tu rajoutes qu'un mois. Mais comme le déroulement ne dure pas trop, ce n'est peut etre pas grave.

Sub Classement()

Dim NbMois As Byte
NbMois = 1
While Not (IsEmpty(Cells(2, NbMois + 1)))
NbMois = NbMois + 1
Wend

Range(Cells(2, 1), Cells(6, NbMois)).Select
For i = 2 To NbMois
Selection.Sort Key1:=Cells(2, i), Order1:=xlDescending, Key2:=Range("A2") _
, Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:= _
False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, DataOption2 _
:=xlSortNormal
Range("A2:A6").Copy Destination:=Cells(10, i)
Next
Selection.Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Range("A1").Select

End Sub

voili voilou

le Fnake