Copier plage et coller à la suite

[noviceAG]

Bonjour le Forum,
Je viens vers vous afin de vous demander ce qui 'cloche' dans ce code, car il ne 'colle' pas toujours à la suite et je ne comprends pas.

Sub ReportFact()
Sheets("Facture").Select
Application.Goto Reference:="PlageFact"
Selection.Copy
Sheets("ArchFact").Select
derligne = Sheets("ArchFact").Range("a65536").End(xlUp).Row + 1
ActiveSheet.Paste
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Selection.Interior.ColorIndex = xlNone
Selection.Font.ColorIndex = 0
Range("A1").Select
End Sub

Je vous remercie du temps que vous me consacrerez et des lumières que vous m'apporterez.

 

[Catrice]

Re : Copier plage et coller à la suite

Bonsoir,

Essaie ceci :

Sub ReportFact()
Sheets("Facture").Range("PlageFact").Copy
Sheets("ArchFact").Range("a65536").End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlPasteValues
Selection.Interior.ColorIndex = xlNone
Selection.Font.ColorIndex = 0
End Sub


Dans quel contexte cela ne copie pas correctement ?

 

[noviceAG]

Re : Copier plage et coller à la suite

Bonsoir Catrice, le Forum,
Je te remercie pour l'aide que tu m'apporte; la ligne
Sheets("ArchFact").Range("a65536").End(xlUp).Offse t(1, 0).PasteSpecial Paste:=xlPasteValues
se met en rouge (erreur de syntaxe)

lorsque je faisais F8, la première fois, mon code fonctionnait et les autres fois, il reportait en A1
Merci de ton aide

 

[noviceAG]

Re : Copier plage et coller à la suite

Re,
je viens de voir la cause de l'erreur
Sheets("ArchFact").Range("a65536").End(xlUp).Offse t(1, 0).PasteSpecial Paste:=xlPasteValues
j'ai supprimer l'espace du mot Offset
Merci beaucoup à toi Catrice