Triage par ordre alphabétique automatique

[leaner]

Bonsoir,😀
j'aimerai que dans la colonne C de la fiche gestion client se classe par ordre alphabétique automatiquement!😕

Je sais le faire manuellement mais pas en auto.


Est ce que l'on peut m'aider, à résoudre ce problème

Comme mon classeur est trop lourd
Ci-joint: Cijoint.fr - Service gratuit de dépôt de fichiers

Merci!😀
a+
Leaner

 

[JHA]

Re : Triage par ordre alphabétique automatique

Bonjour,

je suis loin d'être spécialiste en VBA mais si tu rajoutes le code dans le module1 cela semble faire ta demande:

Sub Bouton4_Clic()
UserForm1.DTPicker1.Value = Now
UserForm1.Show
Range("C4:C500").Select
Selection.AutoFilter
ActiveWorkbook.Worksheets("Gestion client").AutoFilter.Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Gestion client").AutoFilter.Sort.SortFields.Add Key _
:=Range("C4:C500"), SortOn:=xlSortOnValues, Order:=xlAscending, _
DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Gestion client").AutoFilter.Sort
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub

Ce code est fait avec l'enregistreur, il peut certainement être raccourci.

JHA

 

[leaner]

Re : Triage par ordre alphabétique automatique

Bonjour,😀
merci beaucoup JHA cela fonctionne très bien!😉
Amitiés!
Leaner🙂