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+

Faroyo · 16 Février 2024

DJunqueira à dit:
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.

Bonjour DJunqueira,
Je viens de prendre connaissance de votre solution.
Ça ne semble pas fonctionner pour les deux dernières lignes. Y a t-il quelque chose de particulier à faire pour faire fonctionner le fichier.
Merci

Faroyo · 16 Février 2024

dysorthographie · 16 Février 2024

Bonjour,
déjà nous avons ModuleRequeteurUniversel qui contient toutes les routines de communication avec une base de données.

Base de données - Module Requeteur Universel

Bonjour, Je me suis longuement posé la question de savoir si je devais publier cette source. En effet de plus en plus nous trouvons sur les forum des adeptes de Power Query qui ne voient pas d'un bon œil l'utilisation d’ADO. Personnellement je dispose d’Office 2007 je n’ai pas accès à Power...

excel-downloads.com

VB:

Static Cn As Object
If Cn Is Nothing Then
    Set Cn = CreateObject("Adodb.Connection")
    Cn.Open (GenereCSTRING(Xls, Base:=ThisWorkbook.FullName))
End If

ici comme je considère ton fichier Excel comme une base de données, j'effectue une connexon dessus ; j'utilise une variable static pour garder la connexion ouverte à l'intérieur de la fonction uniquement!

une requête SQL est un descriptif d'une demande?
par exemple je veux sélectionner tel et tel information en provenance de la table1 filtré sur tel valeur!

Code:

Const SQL As String = "SELECT [F3] FROM [pays$] WHERE [F2]=?"

vue que la première ligne d'onglet pays n'est pas un titre de colonne, j'utilise F1 pour colonne A,F2 B,etc.

notes que la syntaxe vue qu'on appel l'onglet ave $ [pays$] je t'invites à toujours mettre le noms des tables {oui si je considère Excel comme une base de données, j'emploie les termes d'une base de données} et des champs entre crochets [] ça t'éviteras des désagrément si tu as des espace dans leurs nom!
je sélectionne la colone [F3] {C} from [pays$] {en provenance de la table [pays$]} WHERE [F2]=? {filtré sur B= paramètre indéfinit}

Code:

With ExecuteRequete(SQL, Cn, "P", UCase(T(I)))

ici nous exécutons la requête en fournissant le paramètre "P" qui viendra ce substituer à ? et enfin ça valeur UCase(T(I)).

Code:

 If Not .EOF Then
                CodePays = !F3
                 .Close
                Exit For
            End If

ici nous vérifions si la requête retourne une valeur : If Not .EOF
si oui un donne à la fonction la valeur de la colonne C : CodePays = !F3
on cloture la requête et on quitte la fonction: .Close; Exit For

j'ai modifié le code pour afficher les 2 colonnes!

Code:

Public Function CodePays(Code As String) As String
Static Cn As Object
If Cn Is Nothing Then
    Set Cn = CreateObject("Adodb.Connection")
    Cn.Open (GenereCSTRING(Xls, Base:=ThisWorkbook.FullName))
End If
Const SQL As String = "SELECT [F3],[F1] FROM [pays$] WHERE [F2]=?"
Const SQL1 As String = "SELECT [F7],[F5] FROM [pays$] WHERE [F6]=?"
Dim T() As String, I As Integer
T = Split(Replace(Replace(Code, Chr(160), Chr(32)), "-", Chr(32)))
For I = UBound(T) To LBound(T) Step -1
    If Len(T(I)) < 4 Then
        With ExecuteRequete(SQL, Cn, "P", UCase(T(I)))
            If Not .EOF Then
                CodePays = .Getstring(, , "|")
                 .Close
                Exit For
            End If
            .Close
        End With
        With ExecuteRequete(SQL1, Cn, "P", UCase(Left(T(I), 2)))
            If Not .EOF Then
                CodePays = .Getstring(, , "|")
                 .Close
                Exit For
            End If
            .Close
        End With
    End If
Next
If CodePays = "" Then CodePays = "-?-"
End Function

dysorthographie · 16 Février 2024

AGR ne figure pas dans la liste des pays en revanche on trouve ARG; en tout cas dans le fichier que tu nous as donné c'est bien AGR!
Pour la ligne 17 il y le caractère 160 et le trai d'union.

VB:

T = Split(Replace(Replace(Code, Chr(160), Chr(32)), "-", Chr(32)))

Faroyo · 16 Février 2024

dysorthographie à dit:
AGR ne figure pas dans la liste des pays en revanche on trouve ARG; en tout cas dans le fichier que tu nous as donné c'est bien AGR!
Pour la ligne 17 il y le caractère 160 et le trai d'union.

VB:

T = Split(Replace(Replace(Code, Chr(160), Chr(32)), "-", Chr(32)))

Merci beaucoup pour toutes vos explication et votre temps passé à solutionner mon pb.

Ce que vous avez fait est top.
Un très bon WE à vous.

Faroyo · 16 Février 2024

Faroyo à dit:
Merci beaucoup pour toutes vos explication et votre temps passé à solutionner mon pb.

Ce que vous avez fait est top.
Un très bon WE à vous.

Une derrière petite question:
si je devais avoir des designations produits avec un voir deux mots plus.
Me serait-il possible d'adapter facilement votre code pour prendre en compte ce dernier paramètre?

EX: SODA BTLPET 10X1L Orange HU

Merci

DJunqueira · 16 Février 2024

Bonjour a tout,

En plus des problématiques évoquées par la dysorthographie dans mon rôle j'ai choisi de rechercher le premier 'code' (séquence de 3 ou 2 lettres) trouvé et s'il est relié par un trait d'union le code ne sera pas détecté. En revanche, la question de l'espace (code 160) a été résolue.

dysorthographie · 16 Février 2024

En plus des problématiques évoquées par la dysorthographie

C'est vrai que j'ai les cheveux un peu long mais je préfère le à la

DJunqueira · 16 Février 2024

dysorthographie, désolé pour tout malentendu, mon français est très limité.

dysorthographie · 16 Février 2024

Pas de soucis du reste dysorthographie c'est la maladie de l'hotographe.

Faroyo · 16 Février 2024

Faroyo à dit:
Merci beaucoup pour toutes vos explication et votre temps passé à solutionner mon pb.

Ce que vous avez fait est top.
Un très bon WE à vous.

dysorthographie à dit:
AGR ne figure pas dans la liste des pays en revanche on trouve ARG; en tout cas dans le fichier que tu nous as donné c'est bien AGR!
Pour la ligne 17 il y le caractère 160 et le trai d'union.

VB:

T = Split(Replace(Replace(Code, Chr(160), Chr(32)), "-", Chr(32)))

Houla,
je viens de me rendre compte que ma dernière la taille variable du texte question n'était pas pour dysorthographie mais pour Sylvanu. Je me suis un peu mélangé les crayons entre les 3 solutions.
Ma dernière question pour dysorthographie et promis c'est la dernière,
y a t-il un moyen de lancer la recherche à partir d'un bouton?

Merci

dysorthographie · 16 Février 2024

Tu veux un bouton qui exécute la recherche de toutes les lignes plutôt qu'une formule qui retourne la valeur de la ligne?

Faroyo · 16 Février 2024

Un bouton qui exécute la recherche me paraît être la meilleure option dans mon cas.

dysorthographie · 16 Février 2024

Ok je regarde

Faroyo · 16 Février 2024

Merci

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

Faroyo

XLDnaute Junior

Pièces jointes

job75

Faroyo

XLDnaute Junior

Faroyo

XLDnaute Junior

dysorthographie

XLDnaute Accro

Base de données - Module Requeteur Universel

dysorthographie

XLDnaute Accro

Faroyo

XLDnaute Junior

Faroyo

XLDnaute Junior

DJunqueira

XLDnaute Occasionnel

dysorthographie

XLDnaute Accro

DJunqueira

XLDnaute Occasionnel

dysorthographie

XLDnaute Accro

Faroyo

XLDnaute Junior

dysorthographie

XLDnaute Accro

Faroyo

XLDnaute Junior

dysorthographie

XLDnaute Accro

Faroyo

XLDnaute Junior

Discussions similaires