Hello à tous,
Pouvez-vous me dire comment faire pour activé les feuilles qui sont composés du nom "Archives" ?
J'ai essayé ("*Archive*") mais sans succès !
Et pour finir pourquoi j'obtiens une erreur lorsque j'ajoute le code en bleu ???
Merci d'avance.
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
ActiveWorkbook.Worksheets("Archives TACHES").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Archives TACHES").Sort.SortFields.Add Key:=Range("B4:B1000") _
, SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Archives TACHES").Sort
.SetRange Range("A4:I1000")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
.Range("A3").Select
End With
End Sub
Bonne soirée,
Setila
Pouvez-vous me dire comment faire pour activé les feuilles qui sont composés du nom "Archives" ?
J'ai essayé ("*Archive*") mais sans succès !
Et pour finir pourquoi j'obtiens une erreur lorsque j'ajoute le code en bleu ???
Merci d'avance.
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
ActiveWorkbook.Worksheets("Archives TACHES").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Archives TACHES").Sort.SortFields.Add Key:=Range("B4:B1000") _
, SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Archives TACHES").Sort
.SetRange Range("A4:I1000")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
.Range("A3").Select
End With
End Sub
Bonne soirée,
Setila