Discussion :

[jujuchouxe]

Bonjour,

j'implore votre aide pour résoudre un problème qui me bloque depuis plusieurs jours.

VBA Issues.xlsm

Dans le fichier en piéce jointe, je souhaiterais adapter cette formule en VBA (=IFERROR(VLOOKUP(INDEX('Reference Table PCDO'!$G:$G,MIN(IF(COUNTIF(Z2,"*" &'Reference Table PCDO'!$G:$G& "*")>0,ROW('Reference Table PCDO'!$G:$G),""))),'Reference Table PCDO'!$G:$H,2,0),"OTHERS")) ou du moins trouver un programme VBA rendant le meme resultat.

Mon fichier a 3 colonnes, la premiere (F) est la colonne dans lequel doit s'afficher le resultat de la macro, la seconde (G) contient le resultat de la formule que j'aimerais "traduire" en VBA et enfin la 3eme (Z) contient l'information qui doit me permettre de trouver le resultat (le nom du client ou de sa filliale).

Le problème est que dans cette 3eme colonne, le nom des clients/filliales est écrit de manière anarchique, ce qui fait qu'un meme client peut avoir plusieurs noms différents. Par exemple en ligne 8, le client "Athlon" peut s'appeler en colonne Z, "ATHLON CAR LEASE NEDERLAND B.V. 1054", "ATHLON CAR LEASE", "ATHLON CAR LEASE NEDERLAND BV", etc ...

Je dispose dans une feuille de calcul (Reference Table PCDO, colonne F a I) d'un tableau reprenant l'ensemble des noms des filliales ainsi que l'entreprise cliente a laquelle elles sont rattachés. (Par exemple ATHLON NL = ATHLON, JUSTLEASE = ATHLON, ATHLON = ATHLON)

Je demande de l'aide ici pour créer un calcul VBA faisant comprendre a Excel que si en colonne Z, il trouve "ATHLON CAR LEASE", il comprenne qu'il doit aller chercher la premiere occurence ou il est ecrit ATHLON dans les filliales de mon tableau Reference Table PCDO et qu'il me retourne ensuite le nom du client finale, ATHLON egalement dans l'exemple.

2eme exemple : Colonne Z = "JUSTLEASE NL NOORD" (ligne 64), Excel identifie "JUSTLEASE" dans "JUSTLEASE NL NOORD", Excel cherche le premier JUSTLEASE dans mon tableau Reference Table PCDO, le trouve en ligne 4, et me retourne ATHLON (nom du client final)

Je suis parvenu a le faire un Formule Excel (Celle partagé a debut du texte) mais impossible de l'utiliser, mon fichier original a 100 000 lignes et Excel n'arrive pas a faire le calcul pour les 100 000 lignes. Je pense cependant qu'un petit programme VBA pourrait etre plus léger.

Si quelqu'un sait comment faire je lui en serait infiniement reconnaissant.

Bien a vous,

[EricDgn]

Bonjour,

Une fonction personnalisée:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Option Explicit
 
Public Function TDC(rC As Range) As String      '--- Texte Dans Colonne
    Dim c As Range
    Set rRef = ThisWorkbook.Worksheets("Reference Table PCDO").Range("G:G")
    Set c = rRef.Find(What:=rC.Text, LookAt:=xlWhole)
    If c Is Nothing Then
        TDC = "?"
    Else
        TDC = c.Offset(0, 1)
    End If
End Function

Cordialement.

[Raccourcix]

Bonjour

vous pouvez déjà simplifier votre formule Excel sans passer par VBA.
ne pas faire référence à la colonne G en entier, en n'utilisant pas NB.SI ni RECHERCHEV : TROUVE, INDEX EQUIV sont plus efficaces

Code :

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

=SIERREUR(INDEX('Reference Table PCDO'!$H$2:$H$73;EQUIV(VRAI;ESTNUM(TROUVE('Reference Table PCDO'!$G$2:$G$73;Z2));0));"OTHER")

Code :

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

=IFERROR(INDEX('Reference Table PCDO'!$H$2:$H$73,MATCH(TRUE,ISNUMBER(FIND('Reference Table PCDO'!$G$2:$G$73,Z6)),0)),"OTHER")

Ensuite en ligne 9, 10, 16, 18, 19, 20, il n'est pas nécessaire de chercher pour la Nième fois "ATHLON CAR LEASE NEDERLAND B.V. 1054", on l'a déjà trouvé en ligne 8
Donc ajouter

Code :

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

EQUIV(Z2;$Z$2:$Z$100;0)=LIGNE()-1

si VRAI alors c'est la première occurrence d'un élément, si FAUX on l'a déjà identifié donc un INDEX dans la colonne G suffit

au final

Code :

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

1
2
3
=SI(EQUIV(Z2;$Z$2:$Z$100;0)=LIGNE()-1;
SIERREUR(INDEX('Reference Table PCDO'!$H$2:$H$73;EQUIV(VRAI;ESTNUM(TROUVE('Reference Table PCDO'!$G$2:$G$73;Z2));0));"OTHER");
INDEX($G$2:$G$100;EQUIV(Z2;$Z$2:$Z$100;0)))

Code :

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

1
2
3
IF(MATCH(Z2,$Z$2:$Z$100,0)=ROW()-1,
IFERROR(INDEX('Reference Table PCDO'!$H$2:$H$73,MATCH(TRUE,ISNUMBER(FIND('Reference Table PCDO'!$G$2:$G$73,Z2)),0)),"OTHER"),
INDEX($G$2:$G$100,MATCH(Z2,$Z$2:$Z$100,0)))

Enfin, l'utilisation des tableaux "structurés" est fortement conseillé (Insertion/Tableau)

Stéphane

[jujuchouxe]

Bonjour @EricDgn, Merci pour la fonction personnalisée mais elle ne résoud qu'une partie de mon problème puisque lorsque que le nom de la de la filliale ou du client n'est pas seul dans sa case, ta fonction ne semble pas etre en mesure de le trouver. J'ai testé avec "ATHLON CAR LEASE" et puisque il y a "CAR LEASE" apres "ATHLON", ta fonction me retourne "?" alors que je souhaiterai que elle me retourne "ATHLON".

Tu saurais comment faire ?

Bien a toi,

[jujuchouxe]

Bonjour @Raccourcix,

Merci pour ta proposition de Formule Excel, elle marche aussi bien que la mienne mais ... Elle a l'air beaucoup plus rapide ! Je vais l'essayer sur mes 100 000 données. Je te dirais si elle est vraiment efficace niveau temps.

Bien a toi !