Microsoft 365 Tri sur colonnes définies

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Usine à gaz

XLDnaute Barbatruc
Supporter XLD
Bonjour à toutes et à tous,
Je vous souhaite une belle journée 🙂

J'ai un souci de tri que je ne parviens pas à résoudre.
Voici le code qui m'avait été transmis par Job75 :
VB:
Sub tri_N°Clients()
Application.EnableEvents = False
Application.ScreenUpdating = False
'ActiveSheet.Unprotect Password:=""
    'With ActiveSheet 'Feuille active
    With Sheets("Clients")
    If .FilterMode Then .ShowAllData 'si la feuille est filtrée
    With .Rows("2:" & .Range("a65536").End(xlUp).Row)
        If .Row < 2 Then Exit Sub 'sécurité
        .Sort .Columns(1), xlAscending, Header:=xlNo
    End With
    End With
[a1].Select
'ActiveSheet.Protect Password:="", DrawingObjects:=True, Contents:=True, Scenarios:=True
Application.EnableEvents = True
Application.ScreenUpdating = True
End Sub
Ce code fonctionne parfaitement et tri pas lignes complètes (quel que soit le nombre de colonnes)

J'aimerais pouvoir trier les lignes mais que sur quelques colonnes,
Par exemple : de la colonne A à C mais je n'arrive par à modifier le code.
Pourriez-vous m'aider ?
Je joins un petit fichier test.

Je vous remercie comme d'habitude,
Amicalement,
lionel,
 

Pièces jointes

Bonjour laurent950,
Merci pour le retour mais :
1631110123277.png

Je continue mes p'tites recherches,
lionel 🙂
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
5
Affichages
235
  • Question Question
XL 2021 listbox
Réponses
18
Affichages
284
  • Question Question
Microsoft 365 worksheet_change
Réponses
29
Affichages
479
Réponses
7
Affichages
163
Réponses
17
Affichages
1 K
Retour