RECHERCHEV

Résolu/Fermé
Kuartz Messages postés 850 Date d'inscription vendredi 13 février 2015 Statut Membre Dernière intervention 15 février 2019 - 1 juil. 2015 à 17:30
Kuartz Messages postés 850 Date d'inscription vendredi 13 février 2015 Statut Membre Dernière intervention 15 février 2019 - 1 juil. 2015 à 17:58
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 850 Date d'inscription vendredi 13 février 2015 Statut Membre Dernière intervention 15 février 2019 61
1 juil. 2015 à 17:36
Je précise qu'elle marche très bien à la main en tapant la formule RECHERCHEV.

Cordialement.
0
f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 702
1 juil. 2015 à 17:52
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 850 Date d'inscription vendredi 13 février 2015 Statut Membre Dernière intervention 15 février 2019 61
1 juil. 2015 à 17:58
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