Discussion :

[loan33]

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

[Philippe Tulliez]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[loan33]

Oui c'est exactement ça, corona,

Merci beaucoup pour ton aide.

Bien Cordialement