étirer une formule

Résolu

supercreed Messages postés 9 Date d'inscription Statut Membre Dernière intervention -
supercreed Messages postés 9 Date d'inscription Statut Membre Dernière intervention - 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.

A voir également:

étirer une formule
Formule si et - Guide
Formule moyenne excel plusieurs colonnes - Guide
Formule mathématique - Télécharger - Études & Formations
Formule somme excel colonne - Guide
Excel mise en forme conditionnelle formule - Guide

1 réponse

Réponse 1 / 1

supercreed Messages postés 9 Date d'inscription Statut Membre Dernière intervention

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

Discussions similaires

Décalage de formule

exo pix

Votre réponse

Discussions similaires