Bonjour a tous,
Je suis en train de m'arracher les cheveux sur la macro suivante :
J'ai une erreur de syntaxe avec la ligne (Set selection_init _
= Selection.Range("F4:Q" & Sheets("Tableau détaillé").[C65000].End(xlUp).Row).PasteSpecial Paste:=xlPasteFormats) en rouge.
Si qqn a une idée,
merci bcp pour votre aide
Je suis en train de m'arracher les cheveux sur la macro suivante :
J'ai une erreur de syntaxe avec la ligne (Set selection_init _
= Selection.Range("F4:Q" & Sheets("Tableau détaillé").[C65000].End(xlUp).Row).PasteSpecial Paste:=xlPasteFormats) en rouge.
Si qqn a une idée,
merci bcp pour votre aide
Code:
Private Sub Worksheet_Activate()
Sheets("Tableau détaillé").Range("C4:J" & Sheets("Tableau détaillé").[C65000].End(xlUp).Row).AdvancedFilter Action:=xlFilterCopy, _
CopyToRange:=Range("C4:E4"), Unique:=False
Sheets("Tableau détaillé").Range("K4:Q" & Sheets("Tableau détaillé").[C65000].End(xlUp).Row).AdvancedFilter Action:=xlFilterCopy, _
CopyToRange:=Range("R4:S4"), Unique:=False
Dim selection_init As Range
With Sheets("Tableau détaillé").Range("R4:AC" & Sheets("Tableau détaillé").[C65000].End(xlUp).Row).Copy
End With
With ActiveSheet
Set selection_init _
= Selection.Range("F4:Q" & Sheets("Tableau détaillé").[C65000].End(xlUp).Row).PasteSpecial Paste:=xlPasteFormats
selection_init.Select
End With
Application.CutCopyMode = False
End Sub