Copie dernière ligne remplie d'une plage avec cellules vides

Etienne2323

XLDnaute Impliqué

• 16 Août 2011

• #2

Re : Copie dernière ligne remplie d'une plage avec cellules vides

Salut Atiom,
si tu veux absoluement un pastevalues, alors tu peux utiliser ceci :

Code:

Sheets("B").Cells(Sheets("B").Cells(65536, 5).End(xlUp).Row, 5).Copy
Sheets("A").Range("C16").PasteSpecial Paste:=xlPasteValues

Sinon, un paste normal :

Code:

Sheets("B").Cells(Sheets("B").Cells(65536, 5).End(xlUp).Row, 5).Copy Sheets("A").Range("C16")

Bonne continuité,

Étienne

 

Dernière édition: 16 Août 2011

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 16 Août 2011

• #3

Re : Copie dernière ligne remplie d'une plage avec cellules vides

Bonsoir Ation, Etienne2323, le fil, le forum

Si j'ai bien compris (sans passer par le copier/coller)

Code:

Sub copie2()
Sheets("A").[C16] = Sheets("B").[E65536].End(xlUp)
End Sub

 

Vote positif 0 Vote négatif

Atiom

XLDnaute Occasionnel

• 16 Août 2011

• #4

Re : Copie dernière ligne remplie d'une plage avec cellules vides

Salut Étienne et Staple1600
Merci de vos réponses ultra rapides !

Étienne j’ai testé et ça ne fonctionne pas.
Est-ce que tu as essayé dans mon fichier joint ? Ça fonctionne ?

Par contre la solution trouvée par Staple1600 fonctionne parfaitement, il est vrais que j’ai pas besoin de passer par copier coller.
Merci beaucoup pour vous réponses et bonne soirée.

 

Vote positif 0 Vote négatif

Etienne2323

XLDnaute Impliqué

• 16 Août 2011

• #5

Re : Copie dernière ligne remplie d'une plage avec cellules vides

Salut Atiom, Staple,
effectivement, j'aurais dû tester avant de poster ma réponse. Mes excuses. Le code est modifié dans mon message précédent. Par contre, la solution de Staple demeure la plus efficace selon moi !

Bonne journée,

Étienne

 

Vote positif 0 Vote négatif