Fonction CHERCHE traduit en VBA

[seb.m]

Bonjour,
Je ne trouve pas seul j'ai besoin d'un coup de main

je cherche a mettre dans une variable la valeur de la position de debut d'une chaine de caractere

en version enregistrement ca ma donner ca:

Range("P1").Select
ActiveCell.Formula = "=SEARCH(""véhicule"",$a$1)"
NumeroCaractere = Range("P1").Value

Je souhaiterais mettre la valeur dans ma variable sans utiliser une cellule du tableau


Comment puis je faire?

Seb

 

[Pierrot93]

Re : Fonction CHERCHE traduit en VBA

Bonjour Seb,

pas tout compris; moi... un petit exemple avec concretement ce que tu as et ce que tu veux obtenir serait plus facile pour t'aider...

bon après midi
@+

 

[Guest]

Re : Fonction CHERCHE traduit en VBA

Bonjour Seb,

Dim Var
Var = Application.Search("véhicule", [a1]) 'Equivalent de la fonction de feuille CHERCHE

Var doit être un variant et peut contenir une valeur d'erreur si la position n'est pas trouvée
Pour tester Var il faut faire:

If IsError(Var) then Blbalbla Else autreBlabla

Sinon proposition par VBA Strict:

Dim Var as Integer
Var=instr(1,[A1],"véhicule")

Auquel cas Var peut contenir 0 ou la position du premier caractère.

A+

 

[seb.m]

Re : Fonction CHERCHE traduit en VBA

C'est exactement ca que je souhaité
j'avais vu sur le site qu'il falait utiliser Instr mais avec F1 l'aide j'avais pas compris comment

Merci