Methode AutoFill

Question

Bonjour,

Je voudrais copier dans toutes les lignes non vide de la feuille la formule entrée dans la 1er cellule:

Par exemple j'ai 5 lignes de remplies en colonne A que je mets dans une variable que je récupère pour recopier la formule qui se trouve en B1 sur les 4 lignes restantes.

J'ai actuellement :

Sheets("Feuil1").Select
    dernligne = Range("a1").End(xlDown).Row

Range("b1").Select
    ActiveCell.FormulaR1C1 = "M"
    Selection.AutoFill Destination:=Range("b2:b" & dernligne )

ça fonctionne mais existe il une façon afin de ne pas avoir a utiliser de variable svp?

J'ai essayé différentes façon mais sans succès.

M-12 · Answer

Bonjour,

Teste ceci

Sub test()
  Sheets("Feuil1").Range("B1").Formula = "Bonjour"
  Sheets("Feuil1").Range("B1").AutoFill Destination:=Sheets("Feuil1").Range("B1:B" & _
    Sheets("Feuil1").Range("A" & Rows.Count).End(xlUp).Row), Type:=xlFillDefaultSheets
End Sub

Methode AutoFill

1 réponse

Discussions similaires

Newsletters