XL 2013 PB macro qui plante à la sélection. Voir PJ

[BRUNO28]

Bonjour à tous et merci de votre attention,
Ayant peu de connaissance en vba, dans la Pj il y a problème dès la 2ème ligne.
J'ai le message suivant:
"Erreur Compilation
Fonction ou variable attendue"
Pourriez-vous m'aider à comprendre la nature de ce message?
Grand merci par avance.
Bruno

 

[Patrice33740]

Bonjour,

J'ai fait un simple Copier / Coller :
Cette macro fonctionne parfaitement !

Il est préférable de l'écrire comme suit :

Sub ENTREES_SORTIES()
'
' ENTREES_SORTIES Macro
'
Dim r As Range
  With ActiveSheet
  Set r = .Range("A9:A10")
  .Range("B15").Resize(r.Rows.Count, r.Columns.Count).Value = r.Value
  Set r = .Range("D9:D10")
  .Range("C15").Resize(r.Rows.Count, r.Columns.Count).Value = r.Value
  Set r = .Range("I9:I10")
  .Range("E15").Resize(r.Rows.Count, r.Columns.Count).Value = r.Value
  .Rows("1:14").Delete
  .Rows("3:3").Delete
  .Columns("F:L").Delete
  .Columns("G:H").Delete
  .Columns("H:H").Delete
  .Columns("A:H").AutoFit
  End With
End Sub

 

[BRUNO28]

Merci pour votre réponse efficace.
A bientôt vous lire.
Bruno