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 : Sélectionner tout - Visualiser dans une fenêtre à part
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