PasteSpecial VBA

JulienJJJ -  
 JulienJJJ -
Bonjour,

Je cherche à copier/coller les valeurs d'un range de cellule d'une feuille à l'autre en VBA.

Avez une idée de pourquoi test1() fonctionne, mais test2() plante ("erreur d'execution '1004'...)


Sub test1()
Dim rgIn, rgOut As Range

Set rgIn = Sheets("Feuil1").Range("C46:N46")
Set rgOut = Sheets("Feuil2").Range("B65536").End(xlUp).Offset(1, 0)

rgIn.Copy rgOut

End Sub




Sub test2()
Dim rgIn, rgOut As Range

Set rgIn = Sheets("Feuil1").Range("C46:N46")
Set rgOut = Sheets("Feuil2").Range("B65536").End(xlUp).Offset(1, 0)

rgIn.Copy rgOut.PasteSpecial(xlPasteFormulasAndNumberFormats)
End Sub

2 réponses

Moustic
 
Bonsoir,

Essaye comme ça:
rgIn.Copy: rgOut.PasteSpecial(xlPasteFormulasAndNumberFormats)

ou comme ça:
rgIn.Copy
rgOut.PasteSpecial(xlPasteFormulasAndNumberFormats)

Slt.
1
JulienJJJ
 
Merci !
0