m = Sheets("Récap par stagiaire").Range("AQ4").Value
n = Sheets("Récap par stagiaire").Range("AQ5").Value
Sheets("Suivi Sessions").Range(n).Resize(12, 56).Select
ActiveWorkbook.Worksheets("Suivi Sessions").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Suivi Sessions").Sort.SortFields.Add Key:= _
Range(n).Resize(12, 0), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
With ActiveWorkbook.Worksheets("Suivi Sessions").Sort
.SetRange Range(n).Resize(12, 56)
.Header = xlNo
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Bonjour,
Est ce que quelqu'un peut me dire ce qui ne va pas avec cette macro?
message d'erreur:
Erreur d'exécution 1004, erreur définie par l'application ou par l'objet
zone surlignée:
ActiveWorkbook.Worksheets("Suivi Sessions").Sort.SortFields.Add Key:=Range(n).Resize(12, 0), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
n = Sheets("Récap par stagiaire").Range("AQ5").Value
Sheets("Suivi Sessions").Range(n).Resize(12, 56).Select
ActiveWorkbook.Worksheets("Suivi Sessions").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Suivi Sessions").Sort.SortFields.Add Key:= _
Range(n).Resize(12, 0), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
With ActiveWorkbook.Worksheets("Suivi Sessions").Sort
.SetRange Range(n).Resize(12, 56)
.Header = xlNo
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Bonjour,
Est ce que quelqu'un peut me dire ce qui ne va pas avec cette macro?
message d'erreur:
Erreur d'exécution 1004, erreur définie par l'application ou par l'objet
zone surlignée:
ActiveWorkbook.Worksheets("Suivi Sessions").Sort.SortFields.Add Key:=Range(n).Resize(12, 0), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal