Bonjour
Je débute en VBA pour excel . j’ai créé une macro qui importe un tableau (type nomenclature donc le Nb de lignes varies) format excel avec plusieurs lignes les 4 premières lignes servent de mise en forme et je besoin de recopier un formule de type recherche situé dans la cellule J4 pour toutes les lignes suivante jusqu’à la dernière ligne remplie de la colonne B
voici mon code mais la formule s’arrête de se recopier à la ligne 9
merci de votre aide
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
 
    Range("J4").Select
    ActiveCell.FormulaR1C1 = _
        "=IF(RC[-5]<>"""",VLOOKUP(RC[-5],'[03_Prix d''achat moyen par macro.xlsm]recap'!R2C1:R1048576C9,4,0),VLOOKUP(RC[-9],'[03_Prix d''achat moyen par macro.xlsm]recap'!R2C1:R1048576C9,4,0))"
    Range("J4").Select
     Selection.AutoFill Destination:=Range("J4:J" & Range("B1048576").End(xlUp).Row)