Tri automatique qui ne se fait pas en ordre décroissant

Question

Bonjour,

J'ai un petit problème de tri dans le classement des écuries qui ne se fait pas dans l'ordre décroissant (du 1er au dernier en L4) en même temps que le nom des écuries en I4 alors que cela marche normalement juste à coté dans le classement des pilotes.

D'où vient mon oubli ?

D'avance, merci https://we.tl/t-L8r5PPA1t3

Answer 1

Cette réponse a été automatiquement traduite. Par conséquent, il peut y avoir des erreurs grammaticales ou des formulations étranges.

Bonjour Jean-Maurice GUÉRET,

Merci de nous avoir fourni les détails demandés pour nous aider à isoler davantage le problème.

Il semble que le problème que vous décrivez ici soit lié à VBA et nous avons un forum de support dédié destiné à cela. Nous vous aiderons à obtenir de l’aide pour votre préoccupation.

Vous pouvez faire part de vos préoccupations ou obtenir des commentaires d’assistance via le lien ci-dessous :

• Prise en charge et commentaires d’Office VBA | Microsoft Learn
• Microsoft 365 - Microsoft Q&R [Notez que cette rubrique est rédigée en anglais ; des traductions peuvent être nécessaires pour plus de clarté.]

Nous sommes convaincus que vous obtiendrez des informations plus pertinentes et la meilleure solution possible à votre problème.

Sincèrement

Tomm_A

Modérateur de la communauté Microsoft

Answer 2

Bonjour,

Je souhaite que le tri mette RED bull en 1er et ainsi de suite automatiquement à chaque gain de points :

Voilà ma VBA :

Sub tri()
Select Case ActiveSheet.Name
Case "Écuries"
Set NomKey = ActiveSheet.Range("D4")
Set RangeFiltrée = ActiveSheet.Range("C4:D13")
Case "Pilotes"
Set NomKey = ActiveSheet.Range("C5")
Set RangeFiltrée = ActiveSheet.Range("B5:C30")
Case Else
Set NomKey = ActiveSheet.Range("J5")
Set RangeFiltrée = ActiveSheet.Range("I5:J14")

        Set NomKey = ActiveSheet.Range("C42")  
        Set RangeFiltrée = ActiveSheet.Range("B62:C40")  
    End Select  

    Application.ScreenUpdating = False  
     
    With ActiveSheet.Sort  
        .SortFields.Clear  
        .SortFields.Add Key:=NomKey, Order:=xlDescending  
        .SetRange RangeFiltrée  
        .Apply  
    End With  
     
    Application.ScreenUpdating = True  

End Sub  

Sub relance()
Application.EnableEvents = True
End Sub

D'avance, merci

Answer 3

Cette réponse a été automatiquement traduite. Par conséquent, il peut y avoir des erreurs grammaticales ou des formulations étranges.

Bonjour Jean-Maurice GUÉRET,

Merci de partager votre inquiétude ici sur Microsoft Community Forum et nous espérons que tout va bien.

D’après la description, vous rencontrez des problèmes avec le tri automatique dans l’ordre décroissant dans votre classeur dans Excel. Laissez-nous vérifier et voir comment nous pouvons vous aider.

Avant d’aller plus loin, nous tenons à vous informer que le lien fourni ci-dessus pour votre pièce jointe ne fonctionne pas de mon côté. Nous aimerions poser quelques questions pour nous aider à isoler davantage le problème.

1. Existe-t-il une option pour effectuer un tri par ordre croissant ou décroissant lorsque vous faites un clic droit sur la colonne I4?
2. Pouvez-vous nous envoyer une capture d’écran et expliquer brièvement ce que vous essayez de réaliser?

En attendant, vous pouvez consulter les articles connexes ci-dessous sur la façon de trier les données dans une feuille de calcul Excel.

• Démarrage rapide : trier des données dans une feuille de calcul Excel
• Fonction SORT
• Trier les données d’une plage ou d’une table

Nous attendons votre réponse avec impatience. Veuillez nous faire savoir s’il y a un malentendu ou des clarifications de notre description en nous envoyant une réponse.

Sincèrement

Tomm_A

Modérateur de la communauté Microsoft