Sélectionner des lignes à copier(sauf la derniére)

bonjour à tous

je me prends la tête depuis 1 heure, et je pense pour truc simple voila mon probléme

je veux sélectionner des lignes dans un fichier en écrivant le code ci dessous

    Range("A4").Select
    Range(Selection, Selection.End(xlDown)).Select
        Range(Selection, Selection.End(xlToRight)).Select
    Selection.Copy

sauf que si j'écrit ça en vba

Range(Selection, Selection.End(xlDown)).Select

la macro me prend toutes lignes , je voudrais ne pas prendre la dernière ligne.

merci de votre aide par avance

philippe

Bonjour,

Avec votre fichier, il y aurait peut-être d'autres moyen de prendre la zone désirée... Si la méthode .end(xldown) va jusqu'en bas, c'est qu'a priori vous avez du vide...

Essayez :

with activesheet
    .usedrange.copy
end with

with activesheet
    .range("A4").currentregion.copy
end with

with activesheet
    Range(.Range("A4"), .Range("A4").End(xltoright).End(xldown)).Copy
end with

Mais en commençant par la droite puis vers le bas, ça devrait être mieux.

Cdlt,

Bonjour 3GB

merci de ton aide , ta solution fonctionne et j'ai essayé ça tout bêtement

en commençant par ma cellule la + à droite

Range("U4").Select
    Range(Selection, Selection.End(xlToLeft)).Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy

encore pour ton aide