VBA: Copier une formule jusqu'à la dernière ligne et dernière colonne d'une feuille

Re : VBA: Copier une formule jusqu'à la dernière ligne et dernière colonne d'une feui

bonjour,

un essai

Sub Macro1()
'
' Macro1 Macro
'
'Recherche de la dernière ligne et dernière colonne de la feuille 1
derligne = Sheets("Feuil1").Range("A65536").End(xlUp).Row
dercol = Sheets("Feuil1").Range("CXX3").End(xlToLeft).Column
'
' copie de la formule en A1
'
Sheets("Feuil2").Activate
Range("A1").Select
Selection.Copy
Range(Cells(1, 1), Cells(derligne, dercol)).Select
ActiveSheet.Paste
End Sub

a+

Re : VBA: Copier une formule jusqu'à la dernière ligne et dernière colonne d'une feui

Merci beaucoup pour ta réponse rapide Chalet53 (ce qui n'est pas le cas de la mienne).
Grace à ton code, j'ai compris ou j'avais fait une faute sur le mien 🙂
Je n'ai pas réutilisé excactement ce que tu avais mais l'ai un peu remanié:

Sub Atomic1()
'Trouver la derniere ligne active sur la page et insérer un message pour vérifier que cela correspond avec la réalité
Dim lastRow As Long
lastRow = ActiveSheet.UsedRange.Row - 1 + ActiveSheet.UsedRange.Rows.Count
MsgBox lastRow
'Trouver la derniere colonne active sur la page et insérer un message pour vérifier que cela correspond avec la réalité
Dim LastColumn As Long
With ActiveSheet.UsedRange
LastColumn = .Columns(.Columns.Count).Column
End With
MsgBox LastColumn
'Copier une formule d'une autre page sur la plage active prédéfinie (dernière ligne, dernière colonne)
Sheets("Feuil2").Activate
Range("A1").Select
Selection.Copy
Range(Cells(1, 1), Cells(lastRow, LastColumn)).Select
ActiveSheet.Paste
End Sub