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. 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
    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. Je précise qu'elle marche très bien à la main en tapant la formule RECHERCHEV.

        Cordialement.
        0