XL 2016 Faire défiler des formules Excel par macro

[Sylvain133]

Bonjour à tous,

J'aimerai comme le titre l'indique faire défiler des formules par macro.

J'ai en cellule L4 une formule à faire défiler jusqu'au nombre de lignes total de mon fichier. Mais également en cellules R4 jusqu'à AO4 ainsi qu'en cellules BG jusqu'à FU.

Voici le code mis en place déjà (qui ne fonctionne pas) :

Sub defiler()

Dim NBLIG As Integer

NBLIG = Cells(Rows.Count, 1).End(xlUp).Row

Range("L6").AutoFill Destination:=Range("L4:L" & NBLIG)

End Sub

Sachant que j'ai du mal avec ces Range("L4:L" & NBLIG), j'utilise seulement les attributs Cells(NBLIG,12) etc.

Merci à tous pour vos réponses

 

[Staple1600]

Bonsoir le fil,

Défilons, matelot !

Sub Le_Défilé_Sauvage_1954(Optional By_Jesse_Hibbs)
Dim NBLIG As Long, Ma_Formule_en_L4 As String
NBLIG = Cells(Rows.Count, 1).End(xlUp).Row
Ma_Formule_en_L4 = "=ADDRESS(ROW(),COLUMN(),4)"
Range(Cells(4, "L"), Cells(NBLIG, "L")).Formula = Ma_Formule_en_L4
End Sub
Sub Défiler(Optional By_Stromae)
Dim NBLIG As Long
NBLIG = Cells(Rows.Count, 1).End(xlUp).Row
[L4].Resize(NBLIG - 3).Formula = "=ADDRESS(ROW(),COLUMN(),4)"
End Sub

PS: Normalement, tu devrais me poser des questions sur ces codes VBA... ou pas
NB: Ces deux macros font la même chose.
En espérant que cela éclaire ta lanterne