Menu

VBA Tirer la fonction RechercheV [Résolu]

texastina 46 Messages postés jeudi 15 janvier 2015Date d'inscription 30 janvier 2018 Dernière intervention - 6 nov. 2017 à 15:27 - Dernière réponse : texastina 46 Messages postés jeudi 15 janvier 2015Date d'inscription 30 janvier 2018 Dernière intervention
- 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 :)
Afficher la suite 

2 réponses

Répondre au sujet
Patrice33740 6743 Messages postés dimanche 13 juin 2010Date d'inscription 21 février 2018 Dernière intervention - Modifié par Patrice33740 le 6/11/2017 à 16:45
+1
Utile
1
Bonjour,

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


Cordialement
Patrice
Cette réponse vous a-t-elle aidé ?  
texastina 46 Messages postés jeudi 15 janvier 2015Date d'inscription 30 janvier 2018 Dernière intervention - 6 nov. 2017 à 16:53
Bonjour, Patrice33740,

Merci beaucoup pour ta réponse cela fonctionne :)

Bonne journée!
Commenter la réponse de Patrice33740