feuille classement Résolu/Fermé

Question

Bonjour, 

J'ai un tableau de classement de résultats sportifs qui est alimenté par différents autres tableaux.
Quand je rentre des résultats je dois me rendre sur la feuille classement et appuyer sur 
un bouton Activx (macro)pour faire le classement.
Je voudrais savoir s'il existe un code qui fasse le classement dés que des données nouvelles sont entrées
dans le tableau,sans être obligé de venir appuyer sur ce bouton classement.
Merci pour votre aide
Cordialement



Configuration: Windows / Firefox 67.0

cs_Le Pivert · Accepted Answer

Bonjour,

avec l’événement  Worksheet_SelectionChange de ta feuille, comme ceci

Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("A:A")) Is Nothing Then 'adapter la colonne de saisie
'le code de classement
End If
End Sub

fabien25000 · Answer

Bonjour,
il suffit de changer ton code de place pour qu'il soit affecté à l'événement change de ta feuile plutot qu'au clic de ton bouton :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Not Application.Intersect(Target, Range("A:A")) Is Nothing Then ' range à ajuster à ton cas
        'ton code ici
    End If

End Sub

Nicos · Answer

Bonjour et merci à tous les 2
j'ai fais un essai mais pas concluant ,je dois me m’emmêler les pinceaux quelque part
un exemple
 https://www.cjoint.com/c/IFgnewIfg2k
Amicalement

fabien25000 · Answer

comme ça, ça devrait aller :
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("E:E")) Is Nothing Then 'adapter la colonne de saisie
    Range("A1:E1").Select
    Selection.AutoFilter
    ActiveWorkbook.Worksheets("Feuil1").AutoFilter.Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Feuil1").AutoFilter.Sort.SortFields.Add2 Key:= _
        Range("E1"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    With ActiveWorkbook.Worksheets("Feuil1").AutoFilter.Sort
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Selection.AutoFilter
End If
End Sub

michel_m · Answer

Bonjour,

Un exemple de classement à la volée par formules pour des nombres  (à adapter pour des chronos)
https://mon-partage.fr/f/2jOuyjR0/

Nicos · Answer

Je ne sais pas si ce que je demande est réalisable
Dés qu'une cellule de la plage E2:E11 se modifie 
toute la plage A2/E11 se classe du +petit au +grand

Nicos · Answer

j'ai bien mis ton code dans l’onglet de la feuil1
mais quand je rentre un chiffre dans une cellule de la plage A2:E11 
le classement ne se fait pas

Nicos · Answer

le fichier avec de modifs de données et le tri
ne se fait pas en colonne E

 https://www.cjoint.com/c/IFgoyxruh4k

Nicos · Answer

Ok ça fonctionne à peu près je suis obligé de cliquer plusieurs fois sur une cellule 
pour que le tri se fasse.
Est-ce normal?

Nicos · Answer

Là fabien tu es un dieu
exactement ce que je voulais.
Excuse moi pour l'insistance ,mais je ne suis pas trop doué avec le vba
Merci encore
Bonne continuation

Feuille classement

10 réponses

Discussions similaires