Usine à gaz
XLDnaute Barbatruc
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 :
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,
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 SubJ'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,