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)
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)
VB:
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