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 ;)
 

Créez un compte ou connectez vous pour répondre

Vous devez être membre afin de pouvoir répondre ici

Créer un compte

Créez un compte Excel Downloads. C'est simple!

Connexion

Vous avez déjà un compte? Connectez vous ici.

Haut Bas