Microsoft 365 Demande d'aide sur fonction de classement d'équipes selon un nombre de points

LAETI-TOINOU · 22 Février 2022

Rebonjour à toutes et à tous,

Je viens vers vous, les experts, pour m'aider une nouvelle fois sur une formule.

J'ai un tableau de 20 équipes, ayant toutes marqué un certain nombre de points.

Je voudrais faire un classement de celles-ci, en fonction de leur nombre de points
Classement 1 - Equipe XXXX - XXX Points
Classement 2 - Equipe XXXX - XXX Points
....

J'avoue avoir quelques difficultés sur la formule, alors que certains d'entre vous pourront en 2 clics m'aider sur ce sujet.

Merci beaucoup, beaucoup.

Bonne fin d'après-midi

sylvanu · 22 Février 2022

Bonjour LAETI-TOINOU,
En F5 essayez :

VB:

=RECHERCHEV(Tableau2[[#Cette ligne];[EQUIPE]];Tableau1;2;FAUX)

Victor21 · 22 Février 2022

Bonsoir, @LAETI-TOINOU
Essayez en F5 :
=INDEX(Tableau1[SCORE];EQUIV(Tableau2[@EQUIPE];Tableau1[EQUIPES];0))

djidji59430 · 22 Février 2022

Bonjour à tous,

Une autre façon (excel 365)

LAETI-TOINOU · 22 Février 2022

Merci beaucoup @sylvanu, @Victor21 et @djidji59430

Je m'aperçois qu'il y a vraiment de nombreuses façons d'arriver au résultat attendu.

Néanmoins, je retiendrais la solution de @djidji59430 beaucoup plus facile à reproduire.

Par contre @djidji59430, si dans mon tableau, je souhaitais mettre le score avant le nom de l'équipe, comment faudrait-il que je fasse ? Je sais pour pour cet exemple ce n'est pas ce qu'il faudrait faire, mais j'aimerais connaitre la manip, dans le cas où j'aurais un cas similaire.

Merci de votre aide à tous.

Laëtitia

djidji59430 · 22 Février 2022

Tu le fais 2 fois, une pour les equipes, une pour le score

job75 · 22 Février 2022

Bonsoir LAETI-TOINOU, le fil,

Une solution VBA avec cette macro qui crée le tableau classé :

VB:

Sub Classer()
Application.ScreenUpdating = False
With [Tableau1].ListObject.Range 'tableau structuré
    If .Parent.ListObjects.Count = 2 Then .Parent.ListObjects(2).Delete 'RAZ
    .Copy .Offset(, 4) 'copier-coller
    .Offset(, 4).Sort .Columns(6), xlDescending, Header:=True 'tri décroissant
    .Cells(1, 4) = "RANG"
    .Parent.ListObjects(2).Resize .Offset(, 3).Resize(, 3) 'redimensionne le 2ème tableau
    .Cells(2, 4) = "=RANK([@" & .Cells(1, 2) & "],[" & .Cells(1, 2) & "])" 'formule
    .Columns(4).HorizontalAlignment = xlCenter 'centrage
    '---permutation de colonnes (facultatif)---
    .Columns(6).Cut
    .Columns(5).Insert xlToRight
End With
End Sub

Bonne nuit.

LAETI-TOINOU · 23 Février 2022

djidji59430 à dit:
Tu le fais 2 fois, une pour les equipes, une pour le score

Bonjour @djidji59430, bonjour tout le monde,

Merci pour ta réponse.

Bonne journée.

Laëtitia

LAETI-TOINOU · 23 Février 2022

job75 à dit:

Bonsoir LAETI-TOINOU, le fil,

Une solution VBA avec cette macro qui crée le tableau classé :

VB:

Sub Classer()
Application.ScreenUpdating = False
With [Tableau1].ListObject.Range 'tableau structuré
    If .Parent.ListObjects.Count = 2 Then .Parent.ListObjects(2).Delete 'RAZ
    .Copy .Offset(, 4) 'copier-coller
    .Offset(, 4).Sort .Columns(6), xlDescending, Header:=True 'tri décroissant
    .Cells(1, 4) = "RANG"
    .Parent.ListObjects(2).Resize .Offset(, 3).Resize(, 3) 'redimensionne le 2ème tableau
    .Cells(2, 4) = "=RANK([@" & .Cells(1, 2) & "],[" & .Cells(1, 2) & "])" 'formule
    .Columns(4).HorizontalAlignment = xlCenter 'centrage
    '---permutation de colonnes (facultatif)---
    .Columns(6).Cut
    .Columns(5).Insert xlToRight
End With
End Sub

Bonne nuit.

Bonjour @job75,

Merci pour ta proposition.

Malheureusement, et à mon grand regret, je ne connais pas le VBA.
Il me faut vraiment apprendre le VBA si je veux vraiment progresser sur EXCEL.

Bonne journée.

Laëtitia

job75 · 23 Février 2022

Bonjour LAETI-TOINOU, le fil,

LAETI-TOINOU à dit:
Malheureusement, et à mon grand regret, je ne connais pas le VBA.

Il n'y a pas besoin de connaître le VBA.

Il suffit de cliquer sur le bouton ou d'exécuter la macro par les touches Alt+F8..

A+

LAETI-TOINOU · 23 Février 2022

job75 à dit:
Bonjour LAETI-TOINOU, le fil,

Il n'y a pas besoin de connaître le VBA.

Il suffit de cliquer sur le bouton ou d'exécuter la macro par les touches Alt+F8..

A+

Oui, je comprends bien, et je t'en remercie.

En plus que vous preniez tous du temps à m'aider, j'aime pouvoir ensuite reproduire ces formules toute seule pour progresser.
Lorsque "language" utilisé est trop compliqué pour moi (alors qu'il semble très accessible pour vous), je ne comprends pas pourquoi j'écris telle ou telle chose.

J'apprends énormément grâce à vous tous, car je n'ai malheureusement pas la possibilité de suivre de formation.

Laëtitia

job75 · 23 Février 2022

Et pas besoin de bouton, il suffit de placer cette macro dans le code de la feuille (clic droit sur l'onglet et Visualiser le code) :

VB:

Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
Application.EnableEvents = False 'désactive les évènements
With [Tableau1].ListObject.Range 'tableau structuré
    If .Parent.ListObjects.Count = 2 Then .Parent.ListObjects(2).Delete 'RAZ
    .Copy .Offset(, 4) 'copier-coller
    .Offset(, 4).Sort .Columns(6), xlDescending, Header:=True 'tri décroissant
    .Cells(1, 4) = "RANG"
    .Parent.ListObjects(2).Resize .Offset(, 3).Resize(, 3) 'redimensionne le 2ème tableau
    .Cells(2, 4) = "=RANK([@" & .Cells(1, 2) & "],[" & .Cells(1, 2) & "])" 'formule
    .Columns(4).HorizontalAlignment = xlCenter 'centrage
    '---permutation de colonnes (facultatif)---
    .Columns(6).Cut
    .Columns(5).Insert xlToRight
End With
Application.EnableEvents = True 'réactive les évènements
End Sub

Elle se déclenche quand on modifie ou valide une cellule quelconque, voyez ce fichier (2).

LAETI-TOINOU · 23 Février 2022

job75 à dit:

Et pas besoin de bouton, il suffit de placer cette macro dans le code de la feuille (clic droit sur l'onglet et Visualiser le code) :

VB:

Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
Application.EnableEvents = False 'désactive les évènements
With [Tableau1].ListObject.Range 'tableau structuré
    If .Parent.ListObjects.Count = 2 Then .Parent.ListObjects(2).Delete 'RAZ
    .Copy .Offset(, 4) 'copier-coller
    .Offset(, 4).Sort .Columns(6), xlDescending, Header:=True 'tri décroissant
    .Cells(1, 4) = "RANG"
    .Parent.ListObjects(2).Resize .Offset(, 3).Resize(, 3) 'redimensionne le 2ème tableau
    .Cells(2, 4) = "=RANK([@" & .Cells(1, 2) & "],[" & .Cells(1, 2) & "])" 'formule
    .Columns(4).HorizontalAlignment = xlCenter 'centrage
    '---permutation de colonnes (facultatif)---
    .Columns(6).Cut
    .Columns(5).Insert xlToRight
End With
Application.EnableEvents = True 'réactive les évènements
End Sub

Elle se déclenche quand on modifie ou valide une cellule quelconque, voyez ce fichier (2).

Je préfère cette version.

Top

Microsoft 365 Demande d'aide sur fonction de classement d'équipes selon un nombre de points

LAETI-TOINOU

XLDnaute Occasionnel

Pièces jointes

sylvanu

XLDnaute Barbatruc

Victor21

XLDnaute Barbatruc

djidji59430

XLDnaute Barbatruc

Pièces jointes

LAETI-TOINOU

XLDnaute Occasionnel

djidji59430

XLDnaute Barbatruc

Pièces jointes

job75

XLDnaute Barbatruc

Pièces jointes

LAETI-TOINOU

XLDnaute Occasionnel

LAETI-TOINOU

XLDnaute Occasionnel

job75

XLDnaute Barbatruc

LAETI-TOINOU

XLDnaute Occasionnel

job75

XLDnaute Barbatruc

Pièces jointes

LAETI-TOINOU

XLDnaute Occasionnel

Discussions similaires