Discussion :

[eno97]

Bonjour tout le monde

Voilà, j'ai le bout de code suivant qui me permet d'effectuer une recherche d'une chaine de caractère dans une autre chaine de caractère :

Code :

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

Application.WorksheetFunction.Find(chaine1, chaine2)

où "chaine1" et "chaine2" sont deux chaines de caractère.

Lorsque chaine1 se situe dans chaine2, pas de problème, mais lorsque chaine1 n'est pas dans chaine2, le message d'erreur suivant apparaît :
"impossible de lire la propriété Find de la classe WorksheetFunction"

est-ce que quelqu'un pourrait m'aider, svp?

je précise que je suis sous excel 2010

[Fvandermeulen]

Salut,

A mon sens il vaut mieux utiliser les fonctions VBA que les WorksheetFunction.
Pour ton cas la fonction à utiliser est InStr

Une recherche dans l'aide VBA te donnera l'explication des arguments, dans ton cas tu peux l'utiliser ainsi

Code :

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

test = instr(1, chaine2, chaine1, 1)

Si tu dimensionne ta variable en Boolean tu auras False si non trouvé, avec une dimension Integer tu auras la position du texte cherché dans le texte source ou 0 si il n'est pas dans le text

A+

[Lucorah]

Salut,

Je ne suis pas sûr que tu uses du meilleur moyen pour rechercher une chaîne dans une autre.
En effet, là tu fais appel à une fonction Excel dans VBA alors qu'il existe une fonction VBA qui le fait : Instr

Ton problème est sans doute lié au dernier argument falcutatif que tu n'as pas saisi mais je ne saurais t'aider mieux que ça.

[eno97]

Effectivement, en utilisant instr, ça fonctionne mieux

merci!!