Macro pour étirer une formule jusqu’à la dernière ligne
a
Bonjour à tous ,
J'aimerai faire une macro qui me permette d'étirer ma formule en "E2" jusqu'à la dernière ligne.
Le fichier que je vous ai transmis ne contient que 76 lignes mais le fichier sur lequel je travaille est variable et peut atteindre 2000 lignes.
C'est pour cela que j'ai besoin d'une macro qui exécutera cette tâche automatique.
Cordialement
Arnaud Leharanger
Bonjour,
Essaye ce code suivant :
Sub test()
Range("E2:E" & Range("A" & Rows.Count).End(xlUp).Row).FormulaR1C1 = "=RC[-2]-RC[-3]"
End SubBonjour,
Un exemple ci-dessous.
Cdlt.
Public Sub DEMO()
Dim DerLigne As Long
With ActiveSheet
DerLigne = .Cells(Rows.Count, 1).End(xlUp).Row
.Range("E2:E" & DerLigne).FormulaR1C1 = "=RC[-2]-RC[-3]"
End With
End SubBonjour,
pas besoin de macro
tu selectionnes ta cellule et tu doubles clic sur la croix en bas a droite de ta cellule
Crdmt
a
Bonjour,
Merci Jean-Eric ta macro fonctionnement bien
cordialement
Arnaud