VBA Tirer la fonction RechercheV

Résolu/Fermé
texastina Messages postés 52 Date d'inscription jeudi 15 janvier 2015 Statut Membre Dernière intervention 12 juin 2019 - Modifié le 6 nov. 2017 à 15:37
texastina Messages postés 52 Date d'inscription jeudi 15 janvier 2015 Statut Membre Dernière intervention 12 juin 2019 - 6 nov. 2017 à 16:53
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 8556 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 2 mars 2023 1 775
Modifié le 6 nov. 2017 à 16:45
Bonjour,

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


Cordialement
Patrice
1
texastina Messages postés 52 Date d'inscription jeudi 15 janvier 2015 Statut Membre Dernière intervention 12 juin 2019
6 nov. 2017 à 16:53
Bonjour, Patrice33740,

Merci beaucoup pour ta réponse cela fonctionne :)

Bonne journée!
0