RECHERCHEV

Résolu
Bonjour,

Quelqu'un peut-il me dire pourquoi cette RECHERCHEV ne marche pas?

 Dim PAYS As Long, lastligne As Long 'RECHERCHEV
    
    lastligne = Range("A65536").End(xlUp).Row
    
    For PAYS = 13 To lastigne
    
Sheets(1).Range("A" & PAYS) = Application.VLookup(Range("B" & PAYS).Value, Sheets(2).Range("A1:B20000"), 2, 0)

Next PAYS


Merci d'avance.

Cordialement.

3 réponses

  1. Je précise qu'elle marche très bien à la main en tapant la formule RECHERCHEV.

    Cordialement.
    0
    1. Bonjour,

      Si vous voulez ecrire dans la colonne A a partir de la ligne 13, je suppose que la colonne A de la ligne 13 a x les cellules sont vide. Donc, faudrait peut-etre prendre la colonne B pour avoir lastligne (pas lastigne)
      0
      1. Bonjour,

        Merci de l'info, j'ai un peu honte de pas m'en être rendu compte...

        Je vous ennuie pour des bêtises comme des fautes de frappe....

        Merci beaucoup en tout cas.

        Cordialement,
        0