Une rechercheV améliorée en quelque sorte....

bonjour,

Je ferais cela en deux étapes:

1. ajouter, en colonne E de Nomenclature, pour chaque ligne, une liste des mots "utiles" à rechercher dans le texte des commandes.  Les noms en colonnes A à C ne me semblent pas adéquats.  Cela peut s'automatiser, si souhaité, à partir des colonnes A à C.
2. pour chaque commande, chercher quelle ligne de Nomenclature contient, en colonne E, le maximum de mots communs avec le texte de la commande, et adapter la famille de la commande.

Bonjour yg_be, 

Merci pour ton retour.

Sur le principe, ce serait pertinent, mais vu le nombre de lignes totales à gérer, et de texte de commande différents, je ne vois pas comment définir une liste de mots utiles. Il y en aurait beaucoup trop au final. > Raison pour laquelle je préfererai qu'Excel me renvoie une nomenclature (même approximative) en fonction des mots qui correspondent entre les 2 onglets.

Cela me permettra ensuite d'affiner par famille, et de trouver la nomenclature précise.

Merci, 

suggestion:

Option Explicit
Sub categorie()
Dim flnom As Worksheet, flcomm As Worksheet, clcomm As Range, clnom As Range, cnt As Integer
Dim lnom() As String, lcomm() As String, maxc As Integer, maxlig As Long, comm, nom
Call motsutiles
Set flnom = ThisWorkbook.Sheets("Nomenclature")
Set flcomm = ThisWorkbook.Sheets("Liste commande")
Set clcomm = flcomm.[c2]
Do While clcomm <> ""
    lcomm = Split(clcomm, " ")
    Set clnom = flnom.[e2]
    maxc = 0
    maxlig = -1
    Do While clnom <> ""
        lnom = Split(clnom, "|")
        cnt = 0
        For Each comm In lcomm
            For Each nom In lnom
                If LCase(comm) = nom Then
                    cnt = cnt + 1
                End If
            Next nom
        Next comm
        If cnt > maxc Then
            maxc = cnt
            maxlig = clnom.Row
        End If
        Set clnom = clnom.Offset(1)
    Loop
    If maxlig > 0 Then
        clcomm.Offset(, -1) = flnom.Cells(maxlig, "d")
    End If
    Set clcomm = clcomm.Offset(1)
Loop
End Sub
Private Sub motsutiles()
Const spec As String = "(:)/&- "
Dim fl As Worksheet, cl As Range, i As Integer, src As String, pos As Integer, mot As String
Set fl = ThisWorkbook.Sheets("Nomenclature")
Set cl = fl.[a2]
Do While cl <> ""
    cl.Offset(, 4) = ""
    For i = 0 To 2
        src = Trim(cl.Offset(, i))
        Do While src <> ""
            pos = 1
            Do While pos <= Len(src) And InStr(spec, Mid(src, pos, 1)) = 0
                pos = pos + 1
            Loop
            mot = LCase(Left(src, pos - 1))
            If mot <> "" Then
                If cl.Offset(, 4) = "" Then
                    cl.Offset(, 4) = mot
                Else
                    cl.Offset(, 4) = cl.Offset(, 4) + "|" + mot
                End If
            End If
            If pos < Len(src) Then
                src = Trim(Right(src, Len(src) - pos))
            Else
                src = ""
            End If
        Loop
    Next i
    Set cl = cl.Offset(1)
Loop
End Sub

Bonjour yg_be, 

Merci beaucoup pour ta suggestion, ca marche assez bien.

Cela devrait faire l'affaire, il ne me reste plus qu'à dupliquer sur toutes mes lignes et affiner en fonction.

Encore merci, très bonne journée.