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

[Atiom]

Bonjour,
J’ai un petit problème avec une macro.
Je souhaiterais faire une copie de la dernière ligne remplie d’une colonne et la transposer dans une autre Feuil.
J’utilise la macro ci-dessous elle fonctionne seulement s’il n’y a pas de cellules vides.
Je mets un fichier joint pour une meilleure compréhension de mon problème.
Merci de votre aide

Sub Copie()
Sheets("B").Select
Range("E10").End(xlDown).Select
Selection.Copy
Sheets("A").Select
Range("C16").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
 Application.CutCopyMode = False
Range("C16").Select
End Sub

 

[Etienne2323]

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 :

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

Sinon, un paste normal :

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

Bonne continuité,

Étienne

 

[Staple1600]

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)

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

 

[Atiom]

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.

 

[Etienne2323]

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