copier la dernière ligne incrémentée

[poussain]

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]

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:

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]

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