Probleme fonction VBA Excel

Bonjour et meilleurs vœux à tous,

J'ai un soucis pour écrire un fonction excel en VBA, je me permets de vous soumettre mon code :

Code:

---

1 2 3 4 5 6 7 8 9

Function codification(operation) Dim trouve As Variant trouve = Left(cgrb, WorksheetFunction.Find("TE", operation, 1) - 1) If IsError(trouve) Then codification = "000" Else codification = trouve End If End Function

---

Dans le cas ou une opération une contient pas dans la chaîne de caractère "TE", la fonction retourne #valeur au lieu de "000".
En revanche, dans le cas ou l'opération contient bien "TE", le resultat est conforme à la troncature spécifiée dans la variable trouve.

Avez-vous une idée, pour me permettre de solutionner ce prblème

Merci par avance

Bien Cordialement

Stéphane

Bonjour,
Je ne sais pas si c'est cela que tu cherches.

Code:

---

1 2 3 4 5 6 7

Function codification(operation) On Error GoTo ErrorHandler codification = WorksheetFunction.Find("TE", operation, 1) Exit Function ErrorHandler: If Err.Number = 1004 Then codification = "000" End Function

---

Oui c'est exactement ça, corona,

Merci beaucoup pour ton aide.

Bien Cordialement