RECHERCHEV

Résolu
Kuartz Messages postés 852 Date d'inscription   Statut Membre Dernière intervention   -  
Kuartz Messages postés 852 Date d'inscription   Statut Membre Dernière intervention   -
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

Kuartz Messages postés 852 Date d'inscription   Statut Membre Dernière intervention   61
 
Je précise qu'elle marche très bien à la main en tapant la formule RECHERCHEV.

Cordialement.
0
f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   1 713
 
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
Kuartz Messages postés 852 Date d'inscription   Statut Membre Dernière intervention   61
 
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