Microsoft 365 tri automatique sur 2 colonnes

GUERET

XLDnaute Occasionnel
Bonsoir à toutes et à tous,

je reviens vers vous avec mon tableau F1 dans lequel je souhaite faire un tri automatique décroissant en I et J comme dans le tableau pilotes juste à côté.
Je ne sais si je me suis trompé dans mes formules ou dans la VBA.

HELP !!!!
D'avance, merci

 

cp4

XLDnaute Barbatruc
Bonsoir à toutes et à tous,

je reviens vers vous avec mon tableau F1 dans lequel je souhaite faire un tri automatique décroissant en I et J comme dans le tableau pilotes juste à côté.
Je ne sais si je me suis trompé dans mes formules ou dans la VBA.

HELP !!!!
D'avance, merci

Bonjour,

Je ne veux pas accepter les conditions du site de transfert de fichier que tu utilises.
Si ton fichier ne dépasse pas 1Mo, tu peux le joindre directement sut XLD.
Sinon, tu peux utiliser ce site https://www.cjoint.com/?BLrwvewL5xO et éditer le lien ici

Bonne journée.
 
Dernière édition:

fanch55

XLDnaute Barbatruc
Bonjour, code pour le module 3 :
VB:
Sub tri()
    With ActiveSheet
       Select Case .Name
        Case "Écuries"
            Run_Tri .Range("D4"), .Range("C4:D13")
        Case "Pilotes"
            Run_Tri .Range("C5"), .Range("B5:C30")
        Case Else
            Run_Tri .Range("J4"), .Range("I4:J13")
            Run_Tri .Range("O4"), .Range("N4:O23")
        End Select
    End With
        
End Sub
Sub Run_Tri(Nomkey, Rangefiltrée)
      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
 

Discussions similaires

Statistiques des forums

Discussions
312 225
Messages
2 086 412
Membres
103 202
dernier inscrit
Claire2BM