Bonjour à tous,
J'aurais besoin d'un peu d'aide SVP
J'ai un fichier composé de plusieurs feuilles. Je rempli des tableaux mensuels desquels je récupère des données dans un tableau sur une feuille de récap. Ces données sont triées pour supprimer les doublons et envoyées dans ma feuille récap grace à cette macro :
Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
Range("R6:R37", ("R40:R49")).AdvancedFilter Action:=xlFilterCopy, CopyToRange:=ThisWorkbook.Sheets("extract").Range( _
"AC9"), Unique:=True
ActiveWorkbook.Worksheets("extract").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("extract").Sort.SortFields.Add Key:=Range("AC10:AC49") _
, SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("extract").Sort
.SetRange Range("AC10:AC49")
.Header = xlNo
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Application.ScreenUpdating = True
End Sub
Mon souci est que, lorsque je protège ma feuille extract,s'affiche ce message "erreur d'exécution 1004" Vous ne pouvez pas effectuer cette opération sur une feuille protégée.....Ce malgré que les cellules de destination ne soient pas verrouillées.
Merci de votre coup de main