VBA Tirer la fonction RechercheV

Résolu
texastina Messages postés 55 Statut Membre -  
texastina Messages postés 55 Statut Membre -
Bonjour,

Voici mon souci,

Je voudrais avec du VBA qu'une macro détecte automatiquement la dernière ligne non vide de la colonne D, et tire la fonction recherchev qui se trouve en colonne E jusqu’à cette dernière ligne..

Voici le code que j'ai repris :

DL = Range("D" & Rows.Count).End(xlUp).Row      
E = "=VLOOKUP(RC[-4],'[ASVA_MLP-FA.xlsm]Rupt PREV'!R3C1:R90C28,28,FALSE)"
Range("E2").Formula = E          
Range("E2").AutoFill Destination:=Range("E2:" & DL), Type:=xlFillDefault


L'erreur est apparemment sur la dernière ligne de code :

"Range("E2").AutoFill Destination:=Range("E2:" & DL), Type:=xlFillDefault" 


Pouvez-vous m'aider svp ?

Merci d'avance :)

1 réponse

  1. Patrice33740 Messages postés 8400 Date d'inscription   Statut Membre Dernière intervention   1 784
     
    Bonjour,

    Il manque un E :
    Range("E2").AutoFill Destination:=Range("E2:E" & DL), Type:=xlFillDefault


    Cordialement
    Patrice
    1
    1. texastina Messages postés 55 Statut Membre
       
      Bonjour, Patrice33740,

      Merci beaucoup pour ta réponse cela fonctionne :)

      Bonne journée!
      0