Bonjour à tous,
je souhaite faire une petite modification dans du vba mais comme je suis novice je n'arrive pas à tout modifier.
Voici le code original de tri pour un tableau, nommé Tableau1, dans une feuille Sheet1
Je souhaite que mon code fonctionne à chaque fois que je rajoute une feuille, mais je bloque dans
, car je ne sais pas comment la modifier
Un grand merci pour votre aide et bonne journée.
je souhaite faire une petite modification dans du vba mais comme je suis novice je n'arrive pas à tout modifier.
Voici le code original de tri pour un tableau, nommé Tableau1, dans une feuille Sheet1
VB:
ActiveWorkbook.Worksheets("Sheet1").ListObjects("Table1").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Sheet1").ListObjects("Table1").Sort.SortFields.Add _
Key:=Range("Table1[[#All],[Column1]]"), _
SortOn:=xlSortOnValues, _
Order:=xlAscending, _
DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Sheet1").ListObjects("Table1").Sort
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Je souhaite que mon code fonctionne à chaque fois que je rajoute une feuille, mais je bloque dans
VB:
Range("Table1[[#All],[Column1]]")
VB:
ActiveWorkbook.ActiveSheet.ListObjects(1).Sort.SortFields.Clear
ActiveWorkbook.ActiveSheet.ListObjects(1).Sort.SortFields.Add _
Key:=Range("Table1[[#All],[Column1]]"), _
SortOn:=xlSortOnValues, _
Order:=xlAscending, _
DataOption:=xlSortNormal
With ActiveWorkbook.ActiveSheet.ListObjects(1).Sort
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Un grand merci pour votre aide et bonne journée.