étirer une formule
Résolu
supercreed
Messages postés
10
Statut
Membre
-
supercreed Messages postés 10 Statut Membre -
supercreed Messages postés 10 Statut Membre -
Bonjour,
Je souhaite étirer une formule en G1 vers le bas jusqu'à qu'il soit à coté de la dernière cellule pleine, mais mon code ne veut pas marcher :
Sub test()
Dim LstRow&
LstRow = Cells(Rows.Count, 1).End(xlUp).Row
Range(Cells(1, 7), Cells(LstRow, 7)).FormulaLocal = Cells(1, 7).Formula
End Sub
Pourtant je suis sûr que tout est bon.
Merci d'avance de votre aide.
Je souhaite étirer une formule en G1 vers le bas jusqu'à qu'il soit à coté de la dernière cellule pleine, mais mon code ne veut pas marcher :
Sub test()
Dim LstRow&
LstRow = Cells(Rows.Count, 1).End(xlUp).Row
Range(Cells(1, 7), Cells(LstRow, 7)).FormulaLocal = Cells(1, 7).Formula
End Sub
Pourtant je suis sûr que tout est bon.
Merci d'avance de votre aide.
