XL 2016 Faire défiler des formules Excel par macro

Sylvain133

XLDnaute Nouveau
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

XLDnaute Barbatruc
Bonsoir le fil,

Défilons, matelot !
VB:
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 ;)
 

Discussions similaires

Statistiques des forums

Discussions
311 720
Messages
2 081 896
Membres
101 833
dernier inscrit
sandra25