Classement Automatique

[pascal35135]

Bonjour à tous,
Je viens de découvrir votre groupe et je me permets déjà de vous poser une question:
Je désire faire un classement automatique.
J'ai une colonne avec des points, une avec des noms (correspondant respectivement aux points), je désirerais que les noms se classent Automatiquement en fonction de la variation des points. (type classement sportif)
Pour l'instant, je fais un tri manuel
Merci
Bonne soirée
Pascal

 

[JCGL]

Re : Classement Automatique

Bonjour à tous,
Bienvenue sur XLD,

Merci de joindre ton fichier pour une aide adaptée : nous ne savons pas sur quelle colonne faire le tri et quelles sont les colonnes qui doivent "suivre" le tri.

A + à tous

 

[pascal35135]

Re : Classement Automatique

Merci pour la réponse, c'est exactement cela que je veux.
Cela parait si simple je suis très surpris!!
si j'ai bien compris, il suffit de ce code pour faire le tri:
--------------------
Private Sub Worksheet_Change(ByVal Target As Range)
Call Tri
End Sub
--------------------------
Des questions tout de même:
Comment faire un tri sur une autre colonne que A?
Comment se fait il que la ligne 1 ne soit pas triée?
Encore merci pour la qualité de la réponse.
Pascal

 

[JCGL]

Re : Classement Automatique

Bonjour à tous,

Il faut aussi copier le ModTri qui contient la macro de Tri.
Ce que tu indiques est la macro événementielle qui déclenche la macro Tri aux changements sur la feuille Classement

Regarde le code du ModTri :

• je demande le tri sur A
• la première ligne est généralement destinée aux titres

A + à tous

Édition : je viens de voir que tu avais déposé un fichier : OUI dépose le bout de code dans le module de la feuille concernée

 

[pascal35135]

Re : Classement Automatique

Bonjour,
La solution que tu m'a donnée est celle que je cherchais.
J'ai essayé de faire plusieurs tableaux qui se classent tout seul, j'y arrive si les tableau son sur les mêmes colonne par contre si il est ailleurs nenni. (cls3).
Questions est il possible d'utiliser des "noms" de zone à classer?
Si joint mon fichier essai.
Merci
A+
Pascal

 

[JCGL]

Re : Classement Automatique

Bonjour à tous,

Un essai par zones et cellules nommées.
Tu peux choisir l'ordre de tri par liste de validation.

Option Explicit

Sub Classement()
Dim X As Byte
For X = 1 To 3
    Application.ScreenUpdating = False
    Range("Zone" & X).Select
    With Sheets(1).Sort
        .SortFields.Clear
        If Range("Cell" & X).Offset(0, 2) = "Décroissant" Then .SortFields.Add Key:=Range("Cell" & X), SortOn:=xlSortOnValues, Order:=xlDescending
        If Range("Cell" & X).Offset(0, 2) = "Croissant" Then .SortFields.Add Key:=Range("Cell" & X), SortOn:=xlSortOnValues, Order:=xlAscending
        .SetRange Range("Zone" & X)
        .Header = xlNo
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("Cell" & X).Select
    Next X
End Sub

A + à tous

 

[pascal35135]

Re : Classement Automatique

Bonsoir,
Cela m'épate de voir avec quelle célérité et facilité tu réponds.
Encore merci, je me oserais bien de te montrer un travail que j'ai fait pour une compétition par équipe d'athlé, mais j'ai peur que tu rigoles sur la composition de mes macros qui font des Km.
Pascal