Microsoft 365 Table de correspondance/mapping à partir d'une partie de mot

tikalou

XLDnaute Nouveau
Bonjour,

Je cherche à réaliser un mapping entre d'une part une plage contenant des libellés, et d'autre part une table contenant une partie des mots des libellés.
Je m'explique avec un exemple.

Table Mapping: (colonne A = Couleur / Colonne B= Valeur)
Rose => 1
Bleu => 2
Vert => 3

Plage : (colonne A)
Une table rose dans un garage
Un escabeau bleu
Une chaise verte et cassée

Résultat attendu dans la plage dans une colonne B indiquer la valeur
Une table rose dans un garage => 1
Un escabeau bleu => 2
Une chaise verte et cassée => 3

Merci pour votre aide,
 

Robert

XLDnaute Barbatruc
Repose en paix
Bonjour Tikalou, bonjour le forum,

Vague tout ça !... En pièce jointe une proposition (non commentée ni expliquée, c'est normal il n'y avait pas de fichier joint) :

VB:
Sub Macro1()
Dim OM As Worksheet
Dim TM As Variant
Dim ORA
Dim TORA As Variant
Dim TL() As Variant
Dim I As Integer
Dim J As Integer
Dim K As Integer

Set OM = Worksheets("Feuil2")
TM = OM.Range("A1").CurrentRegion
Set ORA = Worksheets("Feuil1")
TORA = ORA.Range("A1").CurrentRegion
For I = 1 To UBound(TORA, 1)
    For J = 1 To UBound(TM, 1)
        If InStr(1, TORA(I, 1), TM(J, 1), vbTextCompare) <> 0 Then
            K = K + 1
            ReDim Preserve TL(1 To K)
            TL(K) = TM(J, 2)
            Exit For
        End If
    Next J
Next I
ORA.Range("B1").Resize(K, 1).Value = Application.Transpose(TL)
End Sub
 

Staple1600

XLDnaute Barbatruc
Bonjour Robert

Il faut répondre où ?
ici dans ce fil
où dans l'autre ?
;)
 

Hasco

XLDnaute Barbatruc
Repose en paix
Bonjour,

Voici 2 solutions par Power Query, la première trouvera 'Vert' et 'Verte' alors que la deuxième ne trouvera que 'Vert' même si je pense elle est plus rapide sur de nombreuses lignes.

Ces solutions ne vous conviendrons peut-être pas mais en tous cas, cela m'a amusé de le faire.

Cordialement

[Oups] avait pas rafraîchi la discussion. Bonjour les camarades[/Oups]
 

Pièces jointes

  • Correspondances.xlsm
    24.8 KB · Affichages: 3

Discussions similaires

Statistiques des forums

Discussions
312 842
Messages
2 092 746
Membres
105 519
dernier inscrit
faivre-roussel.ivan@orang