Problème de Syntaxe: Aide correction

Bonjour à tous,

J'ai peu ou prou réussi avec l'aide de généreux bénévoles à créer une fonction qui scan le nom de fournisseurs dans des libellés.

Je rencontre néanmoins un nouveau problème que je vous soumet.

t = Split(UCase(s), " ")

For i = LBound(t) To UBound(t)

For Each fournisseur In lf

fournisseur = UCase(fournisseur)

If fournisseur <> "" Then

If t(i) = fournisseur Then bn = Sheets("Liste").Cells(fournisseur.Row, 1): Exit Function

End If

Next

Next i

bn = ""

End Function

Ici, la fonction va scanner les chaînes de caractères dans "s" et voir si une chaîne correspond à un fournisseur dans

ma liste.

Si tel est le cas, la fonction renvoi "fournisseur" normalement. Ici dans la phrase souligné, il y a normalement "fournisseur" que j'ai remplacé. Je souhaite que la fonction renvoi la cellule sur la même ligne que "fournisseur" mais dans la colonne 1.

Or la fonction renvoi #VALEUR! en cas de succès.

Pouvez vous m'indiquer le problème. En vous remerciant d'avance,

Tylerdurden.

bonjour,

une proposition de correction

Function bn(s, lf)
    t = Split(UCase(s), " ")
    For i = LBound(t) To UBound(t)
        For Each fournisseur In lf
            If fournisseur <> "" Then
                If t(i) = UCase(fournisseur) Then
                    bn = Sheets("Liste").Cells(fournisseur.Row, 1)
                    Exit Function
                End If
            End If
        Next
    Next i
    bn = ""
End Function

Bon, h2so4,

Comment te faire parvenir ma reconnaissance ?

Je persiste encore, créer des comptes teepee, application de financement participatif.

Un énorme merci, amicalement,

Tylerdurden.

Bonjour,

comptes teepee sont réservés aux créateurs de contenu pas aux personnes qui offrent du support.