Discussion :

[Daniel-Gérald]

Bonjour à tous, je cherche à mettre en surbrillance tout les mots d'un champs mémo d'un état résultant d'une recherche.

J'ai un formulaire sur lequel j"écrit un mot Ex.: «forum» et a partir d'un bouton de commande j'ouvre le rapport avec tout les enregistrement qui ont le mot «forum» dans le champs mémo.

J'aimerais dans ce rapport avoir le mot «forum» en surbrillance.

* Merci *

[marot_r]

Regarde du côté des champs RichTextFont c'est peut-être une solution possible. Tu pourrais par exemple essayer de mettres les mots cherchés en gras.

Une chose que j'ai faite c'est d'entourrer avec des ### les mots que j'avais trouvé. C'est moins éléguant qu'une mise en surbrillance mais c'est extrèmement simple à faire avec un Replace().

A+

[Daniel-Gérald]

Et comment du fais tes ###

[naphta]

Bonjour,

Je l'ai fait avec une fontion qui surligne la chaine recherchée en jaune dans le champ mémo :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
 
Function surLigneLe(LeTexte As String, lachaine As String) As String
'Remplace le texte par la chaîne de surlignage
 
Dim part1 As String
part1 = "<font style=""" + "BACKGROUND-COLOR:#FFFF00""" + "> " + lachaine + "</font>"
 
surLigneLe = Replace(LeTexte, lachaine, part1)
 
End Function

A+

[Daniel-Gérald]

Je ne comprend pas comment ca marche.

On le met ou le code ?

[naphta]

Bonjour,

tout d'abord il faut que ta zone de texte soit du type "Texte enrichi".

Ensuite

Code :

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

1
2
3
 
 
toncontrolenrichi=surLigneLe(montexte, cequejeveuxsurligner)

a+