recherchev Résolu/Fermé

Question

comment récupérer une donnée figurant dans un fichier source pour l'intégrer dans un fichier de destination.

La formule excel employée est une recherche verticale mais je n'arrive pas à la traduire en VBA;

voici mon script :

Range(Cells(1, 1), Cells(nb_ligne_fichier_source, nb_colonne_fichier_source)).Select
fichier_source = Selection

Windows("EXTREFFE.TXT").Activate 'j'active mon fichier de destination celui qui doit récuperer la donnee

ligne_lue = 2

While Not IsEmpty(Cells(1, ligne_lue))
    matricule_lu = Cells(1, ligne_lue)'je définie le dénominateur commun
    Cells(ligne_lue_12).Select 'je selectionne la cellule dans laquelle doit etre écrit la valeur recherchée
    recherchev = Application.WorksheetFunction.VLookup(matricule_lu, fichier_source, 23, False) 'la recherche v
    Cells(ligne_lue, 12).Value = recherchev
    ligne_lue = ligne_lue + 1
Wend

Mavericku · Answer

Application.VLOOKUP(lookup_value, table_array, column_index, range_lookup)

Frenchie83 · Answer

Bonjour
Je crois que vous faites les choses à l'envers.
Commencez par le fichier destination
-relevez le matricule 
-allez dans le fichier "source"
-avec la recherchev, récupérez la valeur de la colonne 23
-dans le fichier "destination",  coller en colonne 12 sur la même ligne que le matricule testé.
-recommencez avec le matricule suivant.
Faites un essai avec l'enregistreur de macro, pour voir le processus, puis adaptez-le à votre code.
Bonne journée
Cdlt

Recherchev

2 réponses

Discussions similaires