XL 2013 Formule Excel utilisant une table de transco

C

Compte Supprimé 979

Guest

• 28 Mai 2016

• #2

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 😛

 

Vote positif 0 Vote négatif

Chris401

XLDnaute Accro

• 28 Mai 2016

• #3

Re : Formule Excel utilisant une table de transco

Bonjour

Voir fichier joint

Cordialement
Chris

 

Pièces jointes

• LeDek.xlsx

  33.2 KB · Affichages: 60

Vote positif 0 Vote négatif

T

thebenoit59

XLDnaute Accro

• 28 Mai 2016

• #4

Re : Formule Excel utilisant une table de transco

Bonjour LeDek, Bruno et Chris.

Je te joins un exemple avec fonction personnalisée.

 

Pièces jointes

• LeDek - Formule Excel utilisant une table de transco.xlsm

  15.7 KB · Affichages: 65

Vote positif 0 Vote négatif

L

LeDek

XLDnaute Nouveau

• 28 Mai 2016

• #5

Re : Formule Excel utilisant une table de transco

Bonjour,

Voici en pj le fichier correspondant à ma demande.

Cordialement

 

Pièces jointes

• LeDek transco.xlsx

  10.8 KB · Affichages: 26

Vote positif 0 Vote négatif

L

LeDek

XLDnaute Nouveau

• 28 Mai 2016

• #6

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

 

Vote positif 0 Vote négatif

D

david84

XLDnaute Barbatruc

• 28 Mai 2016

• #7

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 :

Code:

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+

 

Vote positif 0 Vote négatif