frayer
XLDnaute Nouveau
Bjour,
Je voudrais remplacer la recopie de L9 :AA9 jusqu’en ligne 3509
------------------------------------------------------------
Range("L9:AA9").Select
Range("AA9").Activate
Application.CutCopyMode = False
Selection.Copy
Range("L10:AA3509").Select
ActiveSheet.Paste
>>> Par la recherche de la dernière ligne de données (selon code Forum)
MAIS CA NE FONCTIONNE PAS CAR JE N’AI PAS DE DONNEES EN COL. A (Seult en col. B)
Comment faut-il modifier ces 2 lignes pour checker la colonne “B”
--------------------------------------------------------------
der = Range("A65000").End(xlUp).Row
Selection.AutoFill Destination:=Range("L9:AA" & der), Type:=xlFillDefault
Je voudrais remplacer la recopie de L9 :AA9 jusqu’en ligne 3509
------------------------------------------------------------
Range("L9:AA9").Select
Range("AA9").Activate
Application.CutCopyMode = False
Selection.Copy
Range("L10:AA3509").Select
ActiveSheet.Paste
>>> Par la recherche de la dernière ligne de données (selon code Forum)
MAIS CA NE FONCTIONNE PAS CAR JE N’AI PAS DE DONNEES EN COL. A (Seult en col. B)
Comment faut-il modifier ces 2 lignes pour checker la colonne “B”
--------------------------------------------------------------
der = Range("A65000").End(xlUp).Row
Selection.AutoFill Destination:=Range("L9:AA" & der), Type:=xlFillDefault