Discussion :

[Bono1664]

Bonjour à tous,

Est-il possible en VBA de rechercher et mettre en surbrillance une variable (mot, nombre...) au sein d'un long TextBox dans un UserForm ? et si oui comment formuler le code ?

Je n'ai rien trouvé sur le Net. Merci à celle ou celui qui voudra bien répondre.

Bono1664

[unparia]

Bonjour
oui, ainsi (exemple)

Code :

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

1
2
3
4
5
6
7
8
9
cherche = "toto"
With TextBox1
  pos = InStr(.Text, cherche)
  If pos > 0 Then
   .SelStart = pos
   .SelLength = Len(cherche)
   .SetFocus
  End If
End With

EDIT : évite d'utiliser le terme "variable" (qui a une signification spécifique) en lieu et place de "chaîne de caractères" (ce que tu cherches). Si ce que tu cherches est le contenu d'une variable, ce n'est pas pour autant une "variable". Ce n'est que son contenu et donc une chaîne de caractères.

[Bono1664]

Bonjour Unparia et merci beaucoup pour cette réponse ultra-rapide.

Je suis débutant en VBA (d'où les erreurs de dénomination), je vais tenter de la mettre en application dans mon projet et je te tiens au courant.

Bonne journée

Bono1664

[Bono1664]

Bonsoir Unparia,

ça marche parfaitement : la formule met bien en surbrillance la chaine de caractères !

Je n'aurais jamais trouvé tout seul.

Merci infiniment.

Cependant, et après avoir fait de nombreuses tentatives, je n'ai pas trouvé le moyen de faire "Find Next". Est-ce possible ?

Bono1664

[patricktoulon]

re
bonjour perso j'aimerais bien savoir pourquoi je n'ai pas tout a fait la selection exacte

Code :

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

1
2
3
4
5
6
7
8
9
10
11
'texte a l'interieur du texbox ="mais ou est donc passé toto avec sa moubilet'"
cherche = "toto"
With TextBox1
  pos = InStr(.Text, cherche)
  Debug.Print pos
  If pos > 0 Then
   .SelStart = pos
   .SelLength = Len(cherche)
   .SetFocus
  End If
End With

[unparia]

j'aimerais bien savoir pourquoi je n'ai pas tout a fait la selection exacte

- parce que tout ce que j'écris depuis quelques jours l'est à main levée (autres préoccupations mille fois plus importantes)
- parce-que une textbox multiligne a ses particularités
- parce-que dans certains cas, il y a difficulté à définir la position de départ, du fait que vbcrlf contient deux caractères
Je propose cette correction personnelle, qui devrait faire face à tous les cas :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
cherche = "toto"
With TextBox1
  pos = InStr(.Text, cherche)
  If pos > 0 Then
   nbl = UBound(Split(Left(TextBox5, pos), Chr(13)))
   .SelStart = pos - (nbl + 1)
   .SelLength = Len(cherche) + IIf(nbl = 0, 0, nbl / 2)
   Do While Len(.SelText) > Len(cherche)
     .SelLength = .SelLength - 1
   Loop
   .SetFocus
  End If
End With

Je sais :
1) elle est bâclée
2) elle sera du "chinois", mais
3) je n'ai absolument pas le temps de l'expliquer de A à Z. Désolé.