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

Patrice33740 Messages postés 8930 Statut Membre 1 780
 
Bonjour,

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


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

Merci beaucoup pour ta réponse cela fonctionne :)

Bonne journée!
0