étirer une formule

Résolu/Fermé
supercreed Messages postés 9 Date d'inscription jeudi 21 mai 2015 Statut Membre Dernière intervention 16 mars 2016 - Modifié par supercreed le 2/06/2015 à 14:56
supercreed Messages postés 9 Date d'inscription jeudi 21 mai 2015 Statut Membre Dernière intervention 16 mars 2016 - 2 juin 2015 à 14:56
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.

1 réponse

supercreed Messages postés 9 Date d'inscription jeudi 21 mai 2015 Statut Membre Dernière intervention 16 mars 2016
2 juin 2015 à 14:56
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
0