Macro - Erreur de syntaxe - Ou est elle ?

  • Initiateur de la discussion Initiateur de la discussion noks
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

noks

XLDnaute Nouveau
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

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
 
Re : Macro - Erreur de syntaxe - Ou est elle ?

Bonjour,

Je ne comprends pas l'objet de ta macro mais pourquoi y a t il un selection avant ton range ?
et :
Code:
Set ini = Range("F4:Q" & Sheets("Tableau détaillé").[C65000].End(xlUp).Row).PasteSpecial
devrait mùieux convenir à un objet range...

Cordialement
 
Re : Macro - Erreur de syntaxe - Ou est elle ?

On m'a aidé a l'écrire,

la 2eme partie de la macro consiste a recopier une plage de cellules dans une 2eme feuille sans en recopier la valeur, seulement la mise en page (suivre l'ajout/suppression de lignes de la 1ere feuille).
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
2
Affichages
410
  • Question Question
Microsoft 365 Erreur de macro
Réponses
4
Affichages
694
Réponses
7
Affichages
533
Réponses
9
Affichages
366
Retour