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 :)

A voir également:

Vba recherchev
Vba ouvrir un fichier excel avec chemin ✓ - Forum VB / VBA
Find vba - Astuces et Solutions
Vba attendre 1 seconde ✓ - Forum VB / VBA
Mkdir vba ✓ - Forum VB / VBA
Vba récupérer valeur cellule ✓ - Forum VB / VBA

1 réponse

Réponse 1 / 1

Patrice33740 Messages postés 8556 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 2 mars 2023 1 779
Modifié le 6 nov. 2017 à 16:45

Bonjour,

Il manque un E :

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

Cordialement
Patrice

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!

Discussions similaires

[Excel] Recherche de Texte avec RechercheV

"L'indice n'appartient à la sélection" + VBA

RECHERCHEV additionne les plusieurs lignes du meme nom

Combiné SI et RECHERCHEV excel

Erreur d'exécution 13 Incompatibilité de type