copier la dernière ligne incrémentée

poussain · 29 Octobre 2018

Bonjour,

En appuyant sur le bouton "copier" je voudrais que la macro sélectionner la dernière ligne "incrémentée" de la feuille "STORE" de la colonne B à G afin que je puisse coller ensuite sur un autre support ( autre qu'Excel).
j'ai essayé ca ... en vain

"Sub Macro5()
Set Ws = Worksheets("STORE")
dls = Ws.Range("B" & Rows.Count).End(xlUp).Row
Ws.Range("B" & dls & ":G" & dls).Copy
End Sub
Merci pour votre aide.

mapomme · 29 Octobre 2018

Bonsoir poussain,

Pour rechercher la dernière ligne, vous utilisez la colonne B. Celle-ci étant vide, dls vous retourne 1 (la ligne de l'en-tête).
Pour rechercher la dernière ligne (dls), il faudrait, peut-être, prendre la colonne A:

Code:

dls = Ws.Range("a" & Rows.Count).End(xlUp).Row

Et même dans ce cas , il faudrait tester dls. Si dls égal1 alors la base est vide (sauf les en-têtes)

poussain · 29 Octobre 2018

Bonsoir "Mapomme" et merci de votre prompt correction qui fonctionne bien.

copier la dernière ligne incrémentée

poussain

XLDnaute Nouveau

Pièces jointes

mapomme

XLDnaute Barbatruc

poussain

XLDnaute Nouveau

Discussions similaires