Bonjour,

petite question d'ordre technique sur excel, je souhaite faire un classement automatique selon le nombre de points d'une équipe.

pour cela j'ai fait un tableau avec des colonnes (nom du club, matchs joués, nombre de forfaits , nombre de but et enfin points) les lignes correspondent aux équipes ligne 1 equipe X, ligne 2 équipe Y....

Je souhaite que les lignes se classent automatiquement selon le nombre de points ordre décroissant à savoir 1ère équipe celle qui a obtenue le + de points ....

je vous remercie de prendre le temps de m'expliquer la démarche à suivre.

Bonne journée

Flac

Bonjour,

Trier ton tableau sur la colonne points en ordre décroissant est très rapide et le mettra dans l'ordre voulu chaque fois que tu le souhaite.

effectivement, le problème est que le nom des équipes ne suit pas (les lignes) du coup les équipes ne se retrouvent pas avec leurs points. Il me semble qu'il faudrait une macro ou un formule pour déplacer les lignes en fonction d'un critère dans une colonne

voici le tableau :

Nom des équipes nbre de buts nbre de matchs nbre de forfait points acquis

1er X 15 8 0 2

2ND y 30 8 0 3

...

désolée la mise en page ne donne rien

NOM CLUB BUTS MATCHS Ffaits POINTS

1 chauvé 12 3 0 15

2 st brevin 10 3 1 8

3 corsept 14 3 0 12

4 paimboeuf 8 3 0 5

5

flac a écrit :

effectivement, le problème est que le nom des équipes ne suit pas (les lignes) du coup les équipes ne se retrouvent pas avec leurs points.

Lorsque tu tries un tableau selon un critère, par exemple le nb de points, dans la boître de dialogue Trier, tu indiques la colonne correspondant à ce critère, l'ordre de tri (ascendant ou descendant), si la première ligne du tableau est une ligne de titres (auquel cas elle ne sera pas touchée), et quand tu valides, les lignes du tableau sont remises en ordre selon les paramètres que tu auras indiqués. Ton curseur doit évidemment être positionné dans le tableau à trier lorsque tu lances la commande : Données > Trier (s'il n'y a pas de ligne ou colonne vide, le tableau sera reconnu par Excel, sinon il te faudra le sélectionner entièrement).

Avant d'envisager éventuellement de faire la même opération au moyen d'une macro, apprend à la réaliser manuellement sans erreur.

Bonjour,

Ton problème ressemble beaucoup à celui que j'avais : classer des équipes d'un marathon de belote d'abord par nombre de parties gagnées, par nombre de points cédés et par nombre de points réalisés, sachant que le nombre d'équipe peut varier.

Dans ma feuille de résultats, que j'appelle FINAL, je fais agir la macro ci-dessous (attention, c'est pour excel 2010, elle devrait fonctionner avec excel 2007, quant aux versions antérieurs, il y a une variante expliquée dans la macro ). En colonne A, le nom des équipes, en B, C et D les diverses valeurs. En colonne E j'ai ajouté : en E1 : 1, en E2 (et recopie au-dessous) suivantes : =SI(C2<>"";E1+1;"") pour effectuer le classement automatique (1er, 2e, 3e, etc.) :

Sub Resultat()
'Classement des résultats
'---------------------------------
' Sélection des cellules utilisées :
Sheets("FINAL").Select 'FINAL est le nom de ma feuille
Range("H1").Select 'Sélection de la cellule où j'ai placé le nombre de lignes, de joueurs, d'équipes...
valtest = InputBox("Donnez le nombre de joueurs " & " :", "Combien de joueurs ?", , 8800, 4800) 'Ouverture d'une

fenêtre pour donner ce nombre

For i = 1 To valtest 'Sélection des lignes et colonnes utilisées, depuis A1 jusqu'à la dernière équipe
Range("a1:d" & valtest).Select
Next i
'MsgBox "Le tirage au sort est en cours !" ' juste pour faire joli

'*************classement sur les trois colonnes début (pour excel 2010, 2007) :
'Première colonne tri décroissant
ActiveWorkbook.Worksheets("FINAL").Sort.SortFields.Add Key:=Range("B1:B" & valtest), _
SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
'Deuxième colonne tri décroissant
ActiveWorkbook.Worksheets("FINAL").Sort.SortFields.Add Key:=Range("C1:C" & valtest), _
SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
'Troisième colonne tri croissant
ActiveWorkbook.Worksheets("FINAL").Sort.SortFields.Add Key:=Range("D1:D" & valtest), _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal

'Rangement des valeurs
With ActiveWorkbook.Worksheets("FINAL").Sort
.SetRange Range("A1:D" & valtest)
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
'************Classement en trois colonnes fin pour excel 2010 2007.
'------------------------------Cette partie est pour excel version antérieure à 2007 !
'Classement en trois colonnes : remplace la partie ci-dessus avec les *** par ce qui est entre ------

Range("a1:d" & valtest).Select
ActiveWindow.SmallScroll Down:=0
Selection.Sort Key1:=Range("B1"), Order1:=xlDescending, Key2:=Range("C1") _
, Order2:=xlDescending, Key3:=Range("D1"), Order3:=xlAscending, Header _
:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom _
, DataOption1:=xlSortNormal, DataOption2:=xlSortNormal, DataOption3:= _
xlSortNormal
'------------------------------

'Supprime les lignes dans l'option tri afin d'ouvrir ultérieurement ce fichier
ActiveWorkbook.Worksheets("FINAL").Sort.SortFields.Clear
With ActiveWorkbook.Worksheets("FINAL").Sort
.SetRange Range("A1:D" & valtest)
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With

End Sub

Bon tri,

pour être honnête je n'ai pas compris grand chose concernant la macro, le tri manuel a été réussi mais cela se fait que lorsque nous avons entré toutes les données.

Je vais tenter la macro ...

pour la macro trop complexe pour moi merci encore pour votre aide

bonjour

La fonction Rang() d'excel devrait permettre d'obtenir le résultat souhaité

flac a écrit :

pour être honnête je n'ai pas compris grand chose concernant la macro, le tri manuel a été réussi mais cela se fait que lorsque nous avons entré toutes les données.

Si tu tries ton tableau manuellement avec succès, un grand pas est fait

Une macro ne fera rien d'autre que cela. Une macro devient intéressante si l'opération manuelle est longue et complexe. Pour un tri élémentaire de ce type, cela n'est pas vraiment le cas. Car la macro il faudra la lancer manuellement (soit directement: Outils>Macro..., soit par une combinaison de touches, soit par un bouton, ...).

On peut imaginer qu'elle s'exécute automatiquement, c'est d'ailleurs le terme que tu as utilisé dans ton 1er post. "Automatiquement", cela veut dire qu'elle va s'exécuter à un moment opportun parce que les conditions pour que le résultat du tri soit conforme à tes voeux sont réunies. Pour pouvoir réaliser une telle macro, qui va s'exécuter en fonction de la survenance d'un évènement, il faut d'abord que tu définisses quel est l'évènement adéquat et quelles conditions doivent être réunies pour le tri soit lancé, autrement dit dans la mesure où ton action sur le tableau consiste à mettre des données à jour, donc changer des valeurs dans les cellules qui le constituent, l'évènement qui semble adéquat est le changement de valeur d'une cellule dans la feuille, reste à définir à l'issue de quels changements (de quelles cellules) il serait opportun qu'un nouveau tri s'effectue. Je te laisse y réfléchir.

pour si peu d'équipes je ne pense pas qu'il soit nécessaire d'aller aussi loin car je n'ai pas ces compétences.

Je vais en rester au tri manuel que j'ai réussi à faire car très simple et je considère donc le sujet résolu.

MERCI BEAUCOUP

Bonne continuation.

A une prochaine fois