XL 2016 Faire défiler des formules Excel par macro

Sylvain133 · 4 Mars 2020

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 · 7 Mars 2020

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 😉

XL 2016 Faire défiler des formules Excel par macro

Sylvain133

XLDnaute Nouveau

Staple1600

XLDnaute Barbatruc

Discussions similaires

XL 2016 Faire défiler des formules Excel par macro

Sylvain133

XLDnaute Nouveau

Staple1600

XLDnaute Barbatruc

Discussions similaires

Privacy & Transparency

Privacy & Transparency