XL 2013 Formule Excel utilisant une table de transco

[LeDek]

Bonjour,

Je peine à trouver une formule [/contents/1103-tableur-comment-l-utiliser Excel] permettant d'utiliser une table de transco (2 colonnes) afin d'analyser une partie du texte d'une cellule X (autre table). Le but est de renvoyer le résultat de la deuxième colonne (de la table de transco) si X contient la chaine de caractères présente dans la première colonne (de la table de transco).

En pj un exemple en colonne D de ce que je souhaite avoir en colonne C grace à la formule.

Merci d'avance pour votre aide et à votre disposition si besoin de plus de détails.

Le Dek

 

[Compte Supprimé 979]

Re : Formule Excel utilisant une table de transco

Bonjour LeDek et bienvenue

Pour envoyer une image et non le fichier Excel !?
Tu ne crois tout de même pas qu'on va se farcir le tableau à saisir

 

[Chris401]

Re : Formule Excel utilisant une table de transco

Bonjour

Voir fichier joint

Cordialement
Chris

 

[thebenoit59]

Re : Formule Excel utilisant une table de transco

Bonjour LeDek, Bruno et Chris.

Je te joins un exemple avec fonction personnalisée.

 

[LeDek]

Re : Formule Excel utilisant une table de transco

Bonjour,

Voici en pj le fichier correspondant à ma demande.

Cordialement

 

[LeDek]

Re : Formule Excel utilisant une table de transco

Merci The benoit59. Cela fonctionne très bien. Je comprend que tu as monté une formule faisant référence à une macro.

Aurais-tu le même résultat sans macro? En effet, je suis amené à transcoder plusieurs champs sur plusieurs tables et ...... je n'ai pas de réelle compétences en macro.....ce qui risque de rendre difficile la maintenance du fichier.

Merci d'avance pour ton aide.

Le Dek

 

[david84]

Re : Formule Excel utilisant une table de transco

Bonjour,
fonction personnalisée utilisant la fonction Filter qui permet éventuellement de plus grandes possibilités de recherche :

Function Transco(Cellule As String, Table As Range) As String
Dim T(0), MC() As String, i As Long
T(0) = Cellule
 
For i = 1 To Table.Rows.Count
  MC = Filter(T, Table(i, 1).Value2, True, vbTextCompare)
  If UBound(MC) = 0 Then Transco = Table(i, 2).Value2: Exit Function
Next i
 
End Function

A+