Microsoft 365 tri automatique sur 2 colonnes

[GUERET]

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

WeTransfer | Send Large Files Fast

The simple, quick and secure way to send your files around the world without an account. Share your files, photos, and videos today for free.

we.tl

 

[cp4]

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

WeTransfer | Send Large Files Fast

The simple, quick and secure way to send your files around the world without an account. Share your files, photos, and videos today for free.

we.tl

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.

 

[GUERET]

Bonjour,
Voila ce que tu m'as demandé.
Bonne journée

https://www.cjoint.com/c/MDwjJQXwQFV

 

[fanch55]

Bonjour, code pour le module 3 :

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

 

[TooFatBoy]

Bonjour,

Si tin fichier ne dépasse pas 1Mo, tu peux le joindre directement sut XLD.

Il tourne plutôt dans les 4 à 5 Mo, à cause des images. 😉

 

[fanch55]

Ben mince, l'écran ne s'était pas rafraichi,
salut @cp4 et @TooFatBoy
Le classeur fait la même taille que le Zip : 10 Mo

 

[TooFatBoy]

Le classeur fait la même taille que le Zip : 10 Mo

Au temps pour moi... le classeur précédent faisait moins de 5 Mo et je ne pensais pas qu'il avait tellement grossi juste en changeant les images. 😔

 

[TooFatBoy]

Le classeur fait la même taille que le Zip : 10 Mo

Le fichier ZIP fait même 225 octets de plus que le classeur qu'il contient... 😅

 

[GUERET]

Hello à tous,
Papy vous dit merci pour votre coup de main salvateur. Mais, ne pensez pas vous être débarrassé de moi aussi vite, je risque de revenir encore avec un autre sujet su lequel je coïncerai. 🤣😜
Bon WE