Formule changeante suivant le Nb de caractères

Bonjour FORUM

suite a plusieurs tentatives, je n'ai pu avoir le résultat

j'aimerais savoir comment donner l'instruction sous VBA.

j'explique: j'ai cette commande qui ne passe à une autres que si le Nb de caractère est égale a 0 ou 8 ou 13

If Len(Range("L" & F)) > 0 And (Len(Range("L" & F)) <> 8) And (Len(Range("L" & F)) <> 13) Then

MsgBox "Le code barre comporte 13 ou 8 chiffres" & vbNewLine & vbNewLine & _

"Si le produit n'en a pas" & vbNewLine & vbNewLine & "laisser la case vide"

Exit Sub

End If

maintenant comment dire a la cellule( indiqué ci dessous), si c'est 8 caractères la formule CodeBarreEAN8 est utilisé, et si c'est 13 caractères la formule CodeBarreEAN13 et si c'est 0 caractère , il faut laisser la case vide

If Len(Range("L" & F)) <> 8 Then

B = Sheets("Stock").Range("A1").Offset(D, 77).Value

Sheets("Stock").Range("A1").Offset(D, 75).Formula = "=CodeBarreEAN8(" & B & ")"

Sheets("Stock").Range("A1").Offset(D, 76) = Sheets("Stock").Range("A1").Offset(D, 75).Value

Sheets("Stock").Range("A1").Offset(D, 75).ClearContents

Bonjour,

J'utiliserais plutôt une structure select case.

select case Len(Range("L" & F))

case 0

'

case 8

' traitement 8

case 13

' traitement 13

case else

msgbox "pas bon"

end select

eric

yes ERIIIC merciiiiiiii de l'aide

ca fonctionne