Bonsoir à tous
La macro ci dessous peut elle être raccourcie ? (Macro créer ave l' éditeur)
Je vous remercie de votre aide
La macro ci dessous peut elle être raccourcie ? (Macro créer ave l' éditeur)
Je vous remercie de votre aide
VB:
Sub TriTab4()
Range("D2").Select 'Tri Tableau4
ActiveWorkbook.Worksheets("Parametres").ListObjects("Tableau4").Sort.SortFields _
.Clear
ActiveWorkbook.Worksheets("Parametres").ListObjects("Tableau4").Sort.SortFields _
.Add2 Key:=Range("Tableau4[Nom]"), SortOn:=xlSortOnValues, Order:= _
xlAscending, DataOption:=xlSortTextAsNumbers
With ActiveWorkbook.Worksheets("Parametres").ListObjects("Tableau4").Sort
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub