VBA Copie formule jusqu à la dernière colonne remplie

[reve24]

Bonjour

Merci d'avance


J aimerais en vba copier une formule et ce jusqu à la dernière colonne remplie .



VOIR MON PETIT FICHIER

Et bonne journée à tous !

 

[job75]

Re : VBA Copie formule jusqu à la dernière colonne remplie

Bonjour reve24,

Sub RemplirDerniereLigne()
With [A1].CurrentRegion
  .Rows(.Rows.Count).FormulaR1C1 = .Cells(.Rows.Count, 1).FormulaR1C1
End With
End Sub

A+

 

[job75]

Re : VBA Copie formule jusqu à la dernière colonne remplie

Re,

Ou aussi :

Sub RemplirDerniereLigne1()
With [A1].CurrentRegion
  .Cells(.Rows.Count, 1).AutoFill .Rows(.Rows.Count), xlFillValues
End With
End Sub

Et si l'on veut aussi copier la mise en forme :

Sub RemplirDerniereLigne2()
With [A1].CurrentRegion
  .Cells(.Rows.Count, 1).Copy .Rows(.Rows.Count)
End With
End Sub

Bonne soirée.