Discussion :

[Yamiral]

Bonjour,

Dans le code suivant

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Dim CP As Variant
CP = Cells(6, 2)
Range("E15") = Application.WorksheetFunction.VLookup(CP, Sheets("LISTE54").Range("LISTECP54"), 2, False)

Tout fonctionne, CP étant un Code postal situé en B6.

Je rencontre un problème à partir du moment ou j’ai un code postal type « 04000 » !
La cellule prend en compte 4000 et de ce fait la recherche échoue.

J’ai dans un premier temps essayer de passer le format cellule en Spécial : Code postal, puis spécial « 00000 » sans succès. La seule possibilité que j’ai trouvé pour que la valeur 04000 soit prise en compte est de passer la cellue en format Texte.

Et la c’est le drame, la macro ne fonctionne plus.

SI vous avez une idée ou une direction à me conseiller, je suis preneur.

Cordialement.

[casefayere]

Bonjour,
essayes comme ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Range("E15") = Application.WorksheetFunction.VLookup(Format(CP, "00000"), Sheets("LISTE54").Range("LISTECP54"), 2, False)