Microsoft 365 Extraire le code pays d'une référence avec un code VBA

[Faroyo]

Bonjour,

je sèche sur un pb de traitement de données. J'ai une liste de produit de provenance diverses (feuille "data"). En fonction de l'origine, des droits de douanes s'appliquent. J'aimerai pouvoir extraire le code pays et ainsi pouvoir determiner s' il est en provenance de la CEE ou non (feuille "pays"). Le code pays n'a pas de position fixe dans le texte et il est composé de 2 ou de 3 caractères (code pays mis en rouge pour l'exemple).
Résumé de la demande:
-identifier le code pays colonne A feuille data, 2 à 3 caractères et position non fixe.
-Recherche la provenance dans le tableau feuille "pays" et le reporter dans la colonne B feuille "data".

Dans l'attente de vous lire
Merci pour votre aide !

 

[dysorthographie]

Voila

 

[Faroyo]

C'est vraiment top.
Rien de plus à ajouter.
Un grand merci pour tout.
Très bon We.
Faroyo

 

[Faroyo]

Voila

Bonjour dysorthographie,
je reviens encore une fois vers vous. Je viens de découvrir des exceptions pour des pays. Il s'agit d'une fusion entre deux origines, CZE/SVK, DNK/SWE.
J'si ajouté ces deux code pays dans ma liste mais malheureusement ils ne sont pas reconnus.
Pourriez-vous svp m'indiquer la marche à suivre pour intégrer ces deux nous cas dans votre cote.

Merci

Cordialement,
Faroyo

 

[dysorthographie]

Bonjour,
Voila

 

[Faroyo]

Ça fonctionne parfaitement.
Un très grand merci pour votre temps.

Tres bon WE à vous
Bien cordialement

Faroyo

 

[dysorthographie]

A ton service

 

[Faroyo]

A ton service

Bonjour Dysorthographie,
je reviens vers vous une fois encore. Si vous pensez que j’abuse surtout n’hésitez pas à me le dire.
Mon nouveau pb:
Pour des raisons pratiques, j'ai du ajouter une colonne à votre code. RAS tant qu'il y a un code pays dans le texte et qu'il est bien dans la liste 'pays'.
Par contre dans le cas contraire (absence code pays ou non trouvé) le code plante.

Merci pour votre aide.

faroyo

Manque code pays ligne 2

 

[job75]

Bonjour le forum,

Concaténez 2 "|" :

t = Split(CodePays(R.Value) & "||", "|")

A+

 

[Faroyo]

Bonjour le forum,

Concaténez 2 "|" :

t = Split(CodePays(R.Value) & "||", "|")

A+

Ca à l'air si simple. Comme d'hab, rapide et efficace
Tres grand merci pour ta dispo.
Bonne journée

 

[dysorthographie]

Bonjour,
Dans mon code j'avais déjà concatené un "|" pour éviter un erreur si la requête ne trouvait pas de valeur. job75, que je salue à raison il faut doubler "||"

 

[Faroyo]

Bonjour,
Dans mon code j'avais déjà concatené un "|" pour éviter un erreur si la requête ne trouvait pas de valeur. job75, que je salue à raison il faut doubler "||"

Merci d'avoir pris de votre temps pour me répondre.
Et bien évidemment je me suis empressé de tester la proposition de job75,. Sans surprise, ça fonctionne parfaitement.
Merci à tous les deux pour votre aide et votre temps.
Cordialement,
Faroyo