Bonjour,

Je cherche à surligner une une chaîne passée en paramètre dans un texte.
Pour cela j'ai trouvé mes idées sur ce forum et mon code donne quelque chose comme ça :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
    TexteCode.SetFocus
    TexteCode.SelStart = InStr(TexteCode.Value, Arguments(1))
    TexteCode.SelLength = Len(Arguments(1))
Avec Arguments(1) étant évidemment la chaîne recherchée.

Cela fonctionne ... presque ! En effet quelque soit le texte dans lequel je cherche cette occurence, le surlignage est toujours légèrement décalé de quelques caractères par rapport au mot recherché. Ce décalage varie de 1 à plusieurs caractères suivant le texte dans lequel je recherche.

Exemple :

Texte complet :
1) "Blanche neige et les sept nains"
2) "Il y a longtemps qu'il n'y avait pas eu tant de neige par ici"

Texte à rechercher :
"Neige"

Ma fonction me surligne (c'est un exemple fictif, je n'ai pas testé) :
1) "e nei"
2) "eige "


D'où vient ce décalage ? Et comment résoudre ce problème ? Peut-être est-ce un problème lié à mon autre problème posté tout à l'heure concernant l'interprétation des retours chariots dans mon Textbox ?

Merci