Copier plage vers autre feuille

[glm]

Bonjour à tous,
je cherche à copier une plage de la feuil1 "B55:F55" dans feuil2 "Bx:Fx"
A savoir que dans la feuil2, il y a déjà des données dans les colonnes et qu'il ne faut pas les écraser.
J'ai essayé ce code mais cela ne fonctionne pas !
With Sheets("Feuil1")
Set LigneBase = .Range("B55:F55")
End With
With Sheets("Feuil2")
If .Range("B3").Value = "" Then
Set dest = .Range("B3")
Else
Set dest = .Range("B65536").End(xlUp).Offset(1, 0)
End If
dest = LigneBase.Value
End With

Merci pour vos conseils avisés...
A+

 

[wilfried_42]

Re : Copier plage vers autre feuille

salut

je ne sais pas si je suis dans le faux mais je trouve que tu compliques les choses

j'aurai ecrit comme ca

sheets("Feuil1").range("B55:F55").copy
if isempty(sheets("Feuil2").range("B3") then
sheets("Feuil2").range("B53:F53").select
selection.paste
else
sheets("Feuil2").Range("B65536").End(xlUp).Offset(1, 0).select
selection.paste
end if

ce n'est pas par ce qu'il n'y a rien dans une cellule, qu'elle est vide


salutation

 

[glm]

Re : Copier plage vers autre feuille

Bonjour wil,
ta surement raison...mais le vba je le pratique pas assez encore!!
je ne peux faire ce que tu m'a répondu
car des formules se trouvent dans la plage de la feuil1"B55:F55"
et je veux copier que les valeurs

 

[ziopizza]

Re : Copier plage vers autre feuille

Bonjour à tous,

Change : selection.paste
Par :Selection.PasteSpecial Paste:=xlPasteValues
Salut Yves

 

[glm]

Re : Copier plage vers autre feuille

Merci à tous les deux
cela ne fonctionne pas !
il me met une erreur sur isempty!!
je pense qu'il est mal placé...

 

[wilfried_42]

Re : Copier plage vers autre feuille

resalut

je viens de me relire, il maque ) apres "B3")

salutations