Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Microsoft 365 tri automatique sur 2 colonnes

cp4

XLDnaute Barbatruc
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
 

GUERET

XLDnaute Occasionnel
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
 

Discussions similaires

Réponses
3
Affichages
312
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…