Error 1004 vba

[IA69]

Bonjour à tous,

Je suis face à une erreur 1004 dont je ne comprends pas la raison.

Je souhaites seulement copier-coller une plage de donnée d'une feuille à l'autre. Sous le format Range("A5:G7").Copy aucun pb mais sous format Range(Cells(5,1),Cells( 7,7)).Copy
Il m'affiche à un msg d'erreur

Si qlq avait une idée de la cause, je vous remercie.


Voici le code :


Dim localigne As String
Dim localonne As String

Dim rownum As Long
Dim col As Long

localigne = Worksheets("Review").Cells.Find(TextBox1.Value, , xlValues).Address

rownum = Range(localigne).Row

MsgBox (rownum)

Worksheets(1).Range(Cells(rownum, 1), Cells(rownum, 7)).Copy Sheets("PSW").Range("B18")

 

[Gégé-45550]

Bonsoir, essayez ceci

Dim monRange As Range
    With Worksheets("Feuil1")
       Set monRange = .Range(.Cells(rownum, 1), .Cells(rownum, 7))
    End With
    monRange.Copy Sheets("PSW").Range("B18")

Cordialement

 

[IA69]

Bonjour,

Merci infiniment ! Ca fonctionne parfaitement.

Cordialement