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

Faroyo · 14 Février 2024

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 !

job75 · 28 Février 2024

Bonjour le forum,

Concaténez 2 "|" :

VB:

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

A+

job75 · 14 Février 2024

Bonjour Faroyo,

En data!A14 on devrait trouver "POL" non ?

A+

sylvanu · 14 Février 2024

Bonjour Faroya, Job,
Il manque des codes dans votre feuille "pays" comme Soudan, Tadjikistan.
D'autre part il me semble que "BL" n'existe pas.
Cependant un essai avec cette macro :

VB:

Option Explicit
Sub CEEouNon()
Dim DL%, Item$, Réponse$, L%, Li%
With Sheets("Pays")
    DL = [A65500].End(xlUp).Row
    For Li = 2 To DL
        Réponse = ""
        Item = Cells(Li, "A")
        For L = 1 To .[A65500].End(xlUp).Row
            If Item Like "*" & .Cells(L, "B") & "*" Then Réponse = .Cells(L, "C"): Exit For
        Next L
        If Réponse = "" Then
            For L = 1 To .[E65500].End(xlUp).Row
                If Item Like "*" & .Cells(L, "F") & "*" Then Réponse = .Cells(L, "G"):  Exit For
            Next L
        End If
        If Réponse = "" Then Cells(Li, "B") = "Non trouvé" Else Cells(Li, "B") = Réponse
    Next Li
End With
End Sub

Faroyo · 14 Février 2024

job75 à dit:
Bonjour Faroyo,

En data!A14 on devrait trouver "POL" non ?

A+

Bonjour Job75,
merci pour votre réponse.
Concernant le code pays POL je dirais oui et non. En fonction du fournisseur pour le meme pays il y avoir PL ou POL c'est pourquoi il y a deux codes possibles dans l'onglet pays. Si on ne trouve pas en "B" il faudrait verifier en "F"

Faroyo · 14 Février 2024

sylvanu à dit:

Bonjour Faroya, Job,
Il manque des codes dans votre feuille "pays" comme Soudan, Tadjikistan.
D'autre part il me semble que "BL" n'existe pas.
Cependant un essai avec cette macro :

VB:

Option Explicit
Sub CEEouNon()
Dim DL%, Item$, Réponse$, L%, Li%
With Sheets("Pays")
    DL = [A65500].End(xlUp).Row
    For Li = 2 To DL
        Réponse = ""
        Item = Cells(Li, "A")
        For L = 1 To .[A65500].End(xlUp).Row
            If Item Like "*" & .Cells(L, "B") & "*" Then Réponse = .Cells(L, "C"): Exit For
        Next L
        If Réponse = "" Then
            For L = 1 To .[E65500].End(xlUp).Row
                If Item Like "*" & .Cells(L, "F") & "*" Then Réponse = .Cells(L, "G"):  Exit For
            Next L
        End If
        If Réponse = "" Then Cells(Li, "B") = "Non trouvé" Else Cells(Li, "B") = Réponse
    Next Li
End With
End Sub

Je viens de tester le code sur le fichier original, il fonctionne très très bien mais je ne suis pas certain de tout comprendre.
Sans vouloir abuser vous serait-il possible de le commenter.

Merci

sylvanu · 14 Février 2024

Re,
Voir PJ.
Vous avez rectifié "BL" ?

DJunqueira · 14 Février 2024

Bonjour Faroyo,
Avec formule de tableau de déversement (spill array):

=LET(p;FRACTIONNER.TEXTE(JOINDRE.TEXTE(";";1;SUBSTITUE(TEXTEAPRES(SUPPRESPACE(A2:A14);" ";2;0);" ";";"));;";";1);
s;FILTRE(p;NBCAR(p)<=3);
t;TRI(ASSEMB.V(pays!$B$1:$C$64;pays!$F$1:$G$123));
RECHERCHEX(GAUCHE(s;2);INDEX(t;;1);INDEX(t;;2);RECHERCHEX(s;INDEX(t;;1);INDEX(t;;2);"Pas trouvé";0);0))

Il n'y a pas de 'BL' dans votre liste.

dysorthographie · 14 Février 2024

Bonsoir,

DJunqueira · 14 Février 2024

Il est également possible de transformer la formule en fonction LAMBDA appelée HorsCEE() sans transformer le fichier en .xlsm.

Faroyo · 14 Février 2024

Merci pour toutes vos propositions de solutions.
Impossible pour moi de les tester encore ce soir, St Valentin oblige , mais je me ferai un plaisir de toutes les tester dès la première heure demain matin.
Je ne manquerai pas de vous faire part de mes commentaires.
Passez une très bonne soirée

Faroyo · 15 Février 2024

Merci pour votre reponse.

DJunqueira à dit:
Bonjour Faroyo,
Avec formule de tableau de déversement (spill array):

Il n'y a pas de 'BL' dans votre liste.

Merci pour response. Votre proposition fonctionne très bien

Faroyo · 15 Février 2024

Bonjour,
je viens de tester toutes vos solutions et toutes fonctionnes très bien. Malheureusement pas dans tous les cas.
Vos solutions ne sont pas en cause. C'est en parcourant le nouveau fichier reçu ce jour que je suis tombé sur des syntaxes de textes différents.
Exemple:
Eau 6x1.5L US HF-2365 (US code pays, HF-2365 code propre au fournisseur)
Bière BTLPET6X0.25L BLT AGR BB-0001 (AGR code pays, BLT code pour dire bouteille)
Biere PREMIUM 330 EC 6X0.33L BTL UA-AAS (UA code pays,...)
On se retrouve avec fois 2/3 caractères. Pl

Cela complique très nettement la donne. Pas certain que mon problème soit soluble.
Je reste néanmoins ouvert à toutes vos propositions.

PS: Merci pour le code BL. Erreur de code pays, le bon est 'BR'

Dans tous les cas, un grand merci à tous pour votre temps et votre partage.

Faroyo.

DJunqueira · 15 Février 2024

Faroyo à dit:
Merci pour votre reponse.
Merci pour response. Votre proposition fonctionne très bien

Merci pour votre avis positif Faroyo.

J'ai modifié le code pour prendre en compte les nouvelles saisies de données. Évidemment, il peut toujours y avoir une nouvelle complication, mais je pense que la formule renvoie un bon résultat.

dysorthographie · 15 Février 2024

a tester!

Faroyo · 16 Février 2024

dysorthographie à dit:
a tester!

Merci pour votre réponse.
Votre solution me semble très bien fonctionner par contre, j'avoue ne pas comprendre grand chose à votre code. Je n'ai aucune notion de SQL. Sans vouloir abuser, vous serait-il possible de le commenter?
Une derrière requête, vous serait possible d’ajouter une colonne dans laquelle apparaîtrait le code pays. Cela pourrait me permettre en cas d'erreur de verifier très raidement la cause.

Encore une fois un très grans merci pour votre aide

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

XLDnaute Junior

Pièces jointes

XLDnaute Barbatruc

XLDnaute Barbatruc

Pièces jointes

XLDnaute Junior

XLDnaute Junior

XLDnaute Barbatruc

Pièces jointes

XLDnaute Occasionnel

Pièces jointes

XLDnaute Accro

Pièces jointes

XLDnaute Occasionnel

Pièces jointes

XLDnaute Junior

XLDnaute Junior

XLDnaute Junior

Pièces jointes

XLDnaute Occasionnel

Pièces jointes

XLDnaute Accro

Pièces jointes

XLDnaute Junior

Discussions similaires