autofill faire descendre formule par rapport à une une autre colonne

[ptifanou]

Bonjour a tous,
voila j'ai un tableau avec 3 colonnes, dans la colonne A je vais venir coller des références dont le nombre peux varier, en colonne B et C je veux appliquer une formule comme recherche V avec les valeurs de la colonne A comme références de départ.
j'aimerais remplir la colonne B et C avec les formules jusque la dernières cellules non vides de la colonne A.
pour l'instant j'utilise ce code mais je n'arrive pas à arrêter le remplissage à la dernière cellule dans l'onglet "RESULTAT" (fichier joint)

Sub autofill2()
 Dim rng As Range
  Dim Dl1%
  Dl1 = Range("A" & Rows.Count).End(xlUp).Row
 Set rng = ThisWorkbook.Worksheets("RESULTAT").Range("B3:B50")
 rng.Formula = "=VLOOKUP(C[-1],GASEREAL!C[-1]:C[8],5,0)-VLOOKUP(C[-1],PREV!C[-1]:C[7],5,0)"
 Set rng = Nothing
End Sub

 

[sylvanu]

Bonjour PtiFanou,
DL1 calcul la limite de la colonne A. Alors il faut s'en servir :

Set rng = ThisWorkbook.Worksheets("RESULTAT").Range("B3:B" & Dl1)

Et le tableau se remplira de B3 à B(DL1)

 

[ptifanou]

Super merci sylvanu je n'arrivais pas à ecrire cette variable sur cette ligne, je mettais directement .range(Dl1)
merci encore pour la rapidité de ta réponse!!!!