Bonjour à tous,
A partir d'une base de donnée, je dois transformer des codes IATA d'aéoroport (ex : CDG, MRS) en nom d'aéroport (tel que Paris Charles de Gaulle ou Marseille).
Mon problème est que après avoir établi une liste de plus de 7000 codes IATA dans excel, il m'arrive parfois qu'il n'y ait pas de correspondance... J'utilise une recherche V.
J'aimerai que dans ce cas là, le programme continu et renvoie la valeur actuelle.
Par exemple :
On cherche le nom du code XIY (aéroport de Xianyang en Chine)
La correspondance ne se fait pas car l'aéroport n'est pas dans ma base de donnée
La valeur reste XIY
Actuellement, j'ai un code avec des boucles du style :
Et s'il n'y a pas de correspondance un message d'erreur apparait et stop la macro
En remplaçant le code par "2, 1" à la fin pour avoir une valeur approchée.
La macro continue mais donne un aéroport erroné, ce qui ne convient pas du tout !
Si vous avez une solution à mon problème ce serait super ! Peut être il y a-t-il une fonction qui sait détecter lorsque la valeur n'existe pas et donc dans ce cas là j'écris simplement :
If "fonction pas de correspondance" Then
Range(destination) = Range(code_IATA)
End if
Merci à tous ceux qui seront en mesure de m'aider
A partir d'une base de donnée, je dois transformer des codes IATA d'aéoroport (ex : CDG, MRS) en nom d'aéroport (tel que Paris Charles de Gaulle ou Marseille).
Mon problème est que après avoir établi une liste de plus de 7000 codes IATA dans excel, il m'arrive parfois qu'il n'y ait pas de correspondance... J'utilise une recherche V.
J'aimerai que dans ce cas là, le programme continu et renvoie la valeur actuelle.
Par exemple :
On cherche le nom du code XIY (aéroport de Xianyang en Chine)
La correspondance ne se fait pas car l'aéroport n'est pas dans ma base de donnée
La valeur reste XIY
Actuellement, j'ai un code avec des boucles du style :
Code:
Cells(a, r).Select
ActiveCell.FormulaR1C1 = WorksheetFunction.VLookup(Cells(a, q), plage_destination, 2, 0)
Et s'il n'y a pas de correspondance un message d'erreur apparait et stop la macro
En remplaçant le code par "2, 1" à la fin pour avoir une valeur approchée.
Code:
Cells(a, r).Select
ActiveCell.FormulaR1C1 = WorksheetFunction.VLookup(Cells(a, q), plage_destination, [B]2, 1[/B])
La macro continue mais donne un aéroport erroné, ce qui ne convient pas du tout !
Si vous avez une solution à mon problème ce serait super ! Peut être il y a-t-il une fonction qui sait détecter lorsque la valeur n'existe pas et donc dans ce cas là j'écris simplement :
If "fonction pas de correspondance" Then
Range(destination) = Range(code_IATA)
End if
Merci à tous ceux qui seront en mesure de m'aider
Dernière édition: