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

[tikalou]

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]

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) :

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]

Bonjour Robert

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

Microsoft 365 - table de mapping avec une partie du texte

Bonjour, Je cherche à ajouter une colonne à une plage en fonction d'une partie de caractères dans la colonne précédente. Voir exemple ci-dessous. Table de mapping: Colonne A = Couleur / Colonne B = Valeur Rose = 1 Bleu = 2 Vert= 3 Plage : Colonne A Table Rose Chaise Verte Banc Bleu Résultat...

www.excel-downloads.com

 

[Hasco]

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]

 

[mapomme]

Bonsoir,

Voir la formule en colonne B (uniquement en office 365).
Si plusieurs couleurs, on concatène les valeurs.