Comparaison de chaînes de caractère

Bonjour à tous,

j'espère que vous pourrez m'aider, je cherche à comparer une chaîne de caractère avec un tableau pour faire ressortir une note derrière.

Par exemple j'ai "ciel bleu clair" et dans mon tableau j'ai des mots et chaque mot à une note comme dans la photo en suivant, j'aimerais faire ressortir la note totale en F2 dans ce cas.

Est-ce que vous voyez un moyen de le faire ?

Merci d'avance

Salut Saml,

En VBA : tu modifies le texte en [E2]...

Private Sub Worksheet_Change(ByVal Target As Range)
'
Dim tSplit, iTot%
'
If Not Intersect(Target, Range("E2")) Is Nothing Then
    [F2] = ""
    If Target <> "" Then
        tSplit = Split(Target, " ")
        For x = 0 To UBound(tSplit)
            Set rCel = Columns(1).Find(what:=WorksheetFunction.Proper(tSplit(x)), lookat:=xlWhole, LookIn:=xlValues)
            If Not rCel Is Nothing Then iTot = iTot + CInt(rCel.Offset(0, 1))
        Next
        [F2] = iTot
    End If
End If
'
End Sub

A+

C'est parfait merci beaucoup !

est-ce que vous pourriez m'expliquer le programme avec des commentaires pour ma culture ? si vous n'avez pas le temps ce n'est pas grave

Merci encore !