Traduire une formule en VBA

[Magic_Doctor]

Bonsoir à tous,

Je désirerais traduire cette formule en VBA :

CHERCHE(Chaîne1;Chaîne2)

La Chaîne1 comprend toujours 2 caractères.
La Chaîne2 14 caractères.
Les caractères de la Chaîne1 sont compris dans la Chaîne2.

Le résultat devant être la position dans la chaîne2 du 1er caractère de la Chaîne1.

J'ai bien essayé ainsi : SEARCH(LEFT(Chaîne1;2);Chaîne2)
mais ça ne marche pas...
La fonction SEARCH n'est apparemment pas reconnue.
Comment alors s'y prendre ?

 

[James007]

Re : Traduire une formule en VBA

Bonsoir,

En VBA, il te faut l'instruction :

Instr()

A +

 

[ROGER2327]

Re : Traduire une formule en VBA

Bonsoir Magic_Doctor

Sub toto()
Dim x As Long
    x = InStr(1, "cdabeab", "ab")
End Sub

affecte la valeur 3 à x.​

Bonne nuit !
ROGER2327