Traduire une formule stxt cherche en VBA

=STXT(C8;CHERCHE("Bon";C8)-2;2)

Sub Macro1()
'
Dim info, ad

 info = [c8]   ' texte ou est contenu le mot

 ad = InStr(1, info, "*Bon*")

  ' mid  ? 

  [d2] = ad  ' compte le nombre de caractères ? et affiche le résultat en d2

End Sub

en d2 le résultat est toujours =0 alors qu'il devrait être entre 350 et 370

merci de votre aide

Bonjour,

Sub Macro1()
    Dim info As String, ad As Long
    info = [c8].Value   ' texte ou est contenu le mot
    ad = InStr(LCase(info), LCase("Bon")) ' InStr est sensible à la case
    [d2] = Mid(info, ad - 2, 2) ' affiche le résultat en d2
End Sub

eric

Bonjour,

Un essai ...

Enlève les * chaque bord de Bon ... ad = InStr(1, info, "Bon")

EDIT : Ouupppssss ... un pro est passé entre temps.

ric

Merci pour la réponse eriiic c'est parfait