XL 2019 PB syntaxe avec une variable

[desmonts]

Bonjour à tous j'aimerai tirer mes formules des colonnes A b et C jusqu'à la dernière ligne non vide de la cellule D. Ceci depuis la dernière ligne non vide en A, b et C, cette ligne peut se trouver en ligne 5, 6 ou une autre. Je l'ai fait avec le code ci-dessous depuis la ligne 2, mais j'aimerai le faire depuis la dernière ligne non vide et je n'arrive pas à trouver la bonne syntaxe en introduisant une variable i , quelqu'un pourrait m'aider ?
Par avance merci
sub essai()
dim fin As Long
Dim i As Integer
Sheets("Stock VD").Select
i = 1
While (Cells(i, 1).Value <> "")
i = i + 1
Wend
With Sheets("Stock VD")
fin = .Range("d" & .Rows.Count).End(xlUp).Row
.Range(cell(1, i), cell(3, i)).AutoFill Destination:=.Range(cell(1, i, 3) & fin)
End With

End Sub

 

[ChTi160]

Bonsoir desmonts
déjà cela ne fonctionnera pas !

Destination:=.Range(cell(1, i, 3) & fin)

peux tu être plus claire dans ce que tu veux ?
jean marie

 

[desmonts]

En gros je voudrai étendre mes formules et mise en forme de la dernière non vide ligne A,B,C jusqu'a la dernière colonne non vide D.
merci

 

[desmonts]

jusqu'a la dernière ligne non vide de la colonne D

 

[Dranreb]

Bonjour.
Je dirais :

Sub Test()
   Dim RngSrc As Range, NbrL As Long
   With Worksheets("Stock VD")
      Set RngSrc = .[A1000000].End(xlUp).Resize(, 3)
      NbrL = .[D1000000].End(xlUp).Row - RngSrc.Row + 1
      End With
   If NbrL > 1 Then RngSrc.AutoFill Destination:=RngSrc.Resize(NbrL)
   End Sub

 

[Valtrase]

Salut à tous,
On ne le répètera jamais assez...

 

[ChTi160]

Re
Merci!
Jean marie

 

[desmonts]

Merci Draneb, c'est parfait.

​