étirer une formule Résolu

Question

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.

Configuration: Windows 7 / Chrome 43.0.2357.81

supercreed · Answer

Non c'est bon je viens juste de trouver. Pour ceux que ça intéresse :

Dim LastRow As Long

With Sheets("ficcss")
    LastRow = .Cells(Rows.Count, "A").End(xlUp).Row
    .Range("G1").AutoFill .Range("G1:G" & LastRow)
End With

étirer une formule

1 réponse

Votre réponse

Discussions similaires