OVH Cloud OVH Cloud

Macro avec une recherche dans une table.

1 réponse
Avatar
marchepied
Bonjours,
Dans feuil2: j'ai la liste des pays européens (sur 3 caractères ex:
FRA) j'ai appelé cette liste EUROP. (position: G1 à G15)
Dans feuil1: j'ai un grand tableau de 3000 lignes environ) tout les
mois le nombre de ligne change)
Dans la colonne A, j'ai le code pays (sur 3 caract.)
Je voudrai faire une macro qui mette dans la colonne F « 15 » si le
code pays ce trouve dans la table EUROP, « 99 » si le code pays ne ce
trouve pas dans la table EUROP. Et ceci pour tout le tableau Feuil1.
Merci pour votre aide.
Marchepied,

1 réponse

Avatar
Ellimac
Bonjour,

Sub Toto()
Range(Range("F2"), Range("a2").End(xlDown).Offset(0,
5)) = "=IF(ISNA(VLOOKUP(RC[-5],europe,1,0)),99,15)"
End Sub

Camille

-----Message d'origine-----
Bonjours,
Dans feuil2: j'ai la liste des pays européens (sur 3
caractères ex:

FRA) j'ai appelé cette liste EUROP. (position: G1 à G15)
Dans feuil1: j'ai un grand tableau de 3000 lignes
environ) tout les

mois le nombre de ligne change)
Dans la colonne A, j'ai le code pays (sur 3 caract.)
Je voudrai faire une macro qui mette dans la colonne F «
15 » si le

code pays ce trouve dans la table EUROP, « 99 » si le
code pays ne ce

trouve pas dans la table EUROP. Et ceci pour tout le
tableau Feuil1.

Merci pour votre aide.
Marchepied,
.