erreur de compilation

1

Bonjour,

J'a un soucis : le message

"erreur de compilation : fonction ou variable attendu"

et "selection" (en dessous de rows("5:5) est en surbrillance

Voici le code :

Sub REPORT()
'
' REPORT Macro
'

'
  Sheets("base Faits Etablissement").Select
  Rows("5:5").Select
  selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
  Range("A6:EZ6").Select
  selection.AutoFill Destination:=Range("A5:EZ6"), Type:=xlFillDefault
  Sheets("saisie simplifiée").Select
  Range("A26:BZ26").Select
  selection.Copy
  Sheets("base Faits Etablissement").Select
  Range("G5").Select
  selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
  :=False, Transpose:=False
  Sheets("saisie simplifiée").Select
  Range( _
  "A2:B2,F2:G2,A7:D7,H6,A12:C12,E12:I12,K12:M12,O12:V12,X12:AA12,AC12,A17,D17:K18,L18,N17:P17,R17:S17,X17:AB17" _
  ).Select
  Range("X17").Activate
  Application.CutCopyMode = False
  selection.ClearContents
End Sub


Pourtant sur des essais simplifiés le même code marche…..

Help !


Le but est d'insérer une ligne 5 (par tassement vers le bas des autres lignes), de récupérer toutes les formules des cellules (entre A et EZ) et de mettre à jour certaines (à partir de G)

Débutant en VBA je ne trouve pas ce qu'il faut faire !


Merci d'avance pour vos lumières.


Michel





    Posté le 25 octobre, 11:46
    par Michel du 52
    Répondre
    1

    Bonjour,

    Peux-tu partager le fichier qui te pose problème ?

    ouisansdoute Posté le 27 octobre, 09:55
    par ouisansdoute

    Si vous n'êtes pas inscrit sur le site, vous pouvez poster librement (en tant qu'invité).
    Pour cela, indiquez un pseudonyme (nom d'utilisateur) et une adresse email :