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 

Votre réponse

2 réponses

Meilleure réponse
Patrice33740 6965 Messages postés dimanche 13 juin 2010Date d'inscription 20 juin 2018 Dernière intervention - Modifié par Patrice33740 le 6/11/2017 à 16:45
1
Merci
Bonjour,

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


Cordialement
Patrice

Merci Patrice33740 1

Avec quelques mots c'est encore mieux Ajouter un commentaire

CCM a aidé 24569 internautes ce mois-ci

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