etendre une macro jusqu'à la dernière cellule non vide

[obelix77]

Bonjour à tous,

Tout est dans le titre.

J'utilise le code suivant pour étendre une série de formules :
copier_coller Macro

Range("D22").Select
Sheets("source").Select
Range("H1:M2").Select
Selection.Copy
Sheets("Export").Select
Range("H1").Select
ActiveSheet.Paste
Range("H2:M2").Select
Application.CutCopyMode = False
Selection.AutoFill Destination:=Range("H2:M1876")
Range("H2:M1876").Select
Range("H2").Select

End Sub

Le copier_coller se fait donc de la ligne "2" à la ligne "1876"

Je souhaiterais adapter ma macro afin que la limite ne soit plus "M1876" mais la dernière cellule remplie.

S quelqu'un peut m'aider dans la modification, se serait le top; sachant que je suis un gros nul en VB.

Par avance, un grand merci à tous ceux qui prendront le temps de me lire.

 

[pierrejean]

Re

A tester:

Sheets("source").Range("H1:M2").Copy Destination:=Sheets("Export").Range("H1")
Application.CutCopyMode = False
derlin = Sheets("Export").Range("H" & Rows.Count).End(xlUp).Row
Sheets("Export").Range("H2:M2").AutoFill Destination:=Range("H2:M" & derlin)

 

[phlaurent55]

Bonjour Obelix,

peut-être avec ceci:

Selection.AutoFill Destination:=Range("H2:M" & Range("H65535").End(xlUp).Row)

à+
Philippe

Edit: Bonjour PierreJean

 

[obelix77]

Sheets("source").Range("H1:M2").Copy Destination:=Sheets("Export").Range("H1")
Application.CutCopyMode = False
derlin = Sheets("Export").Range("H" & Rows.Count).End(xlUp).Row
Sheets("Export").Range("H2:M2").AutoFill Destination:=Range("H2:M" & derlin)

Bonjour Pierre-Jean,

Merci pour ta réponse.
Par contre ça plante :

Et là, je ne sais trop que faire.

Bonne fin de journée

 

[pierrejean]

Re
peux-tu poster un fichier exemple ?

 

[obelix77]

Bonjour Pierre-Jean,

Merci pour ta réponse.
Par contre ça plante : Regarde la pièce jointe 1004459

Et là, je ne sais trop que faire.

Bonne fin de journée

Quand je dis que ça plante, pour être plus précis, ça copie les 2 premières lignes et ça ne va pas plus bas

 

[obelix77]

Selection.AutoFill Destination:=Range("H2:M" & Range("H65535").End(xlUp).Row)

Bonjour Philippe,
J'ai le même message d'erreur au'avec la proposition de Pierre-Jean : "erreur d’exécution 1004" et seules les 2 premières lignes se copient.
En tous les cas, merci de ta réponse.
Bonne fin de journée,

 

[obelix77]

Re
peux-tu poster un fichier exemple ?

Bien sur, avec plaisir. C'est le fichier "travail-4.xml"
Dans l'onglet "Export", il faut lancer la macro "copier_coller" qui va aller chercher les formules dans l'onglet "Source" et les copier dans l'onglet "Export".
Actuellement, l'onglet "Export" représente 1876 lignes. Demain, ça pourra être 10 ou 10000 ...
Encore merci de ton aide

 

[pierrejean]

Re

Avec le fichier on comprend mieux

A tester

 

[obelix77]

Re

Avec le fichier on comprend mieux

A tester

Je viens de tester en supprimant une centaine de ligne dans l'onglet "Export".
Sauf erreur, pas de changement : le copier/coller se fait toujours jusqu'à la ligne 1876.
Donc ça ne marche pas, selon moi.

 

[pierrejean]

Re
toutes mes excuses
Je suis allé trop vite
Comme ceci ce devrait être mieux

 

[redexcel]

Voila le code a utiliser
macro test() dans module 2

 

[obelix77]

Re
toutes mes excuses
Je suis allé trop vite
Comme ceci ce devrait être mieux

Je peux dire que c'est le top. Un grand merci à toi.

J'ose une question ? Allez j'ose; si ça te saoule, laisses tomber.
Depuis fort longtemps, je mets mes formules dans un onglet à part ("Source" dans l'exemple) car je ne sais pas les intégrer directement à la macro. Ça te parait faisable?
La 1ère formule se mettrait dans la 1ère colonne disponible, la 2ème dans la colonne à coté, ...

Encore un énorme merci pour ce super coup de main.

 

[redexcel]

Yes c'est faisable et c'est pas très compliqué !!
PierreJean tu t'en charges ? ou tu veux que je le fasse ?

 

[pierrejean]

Re
Salut redexcel

Voila