XL 2016 Changer Police d'un mot s'il est trouvé

[monakiel]

Bonjour,

J'essaie de changer la police d'un mot spécifique si l'occurence est trouvée dans une cellule.
Je suis actuellement capable de dire si le mot est présent et si oui, j'identifie toute la ligne en changeant le style.
Voici le code qui me permet de faire ça :

  Set listObj = Sheets("Recherche").ListObjects("Résultat")
  For c = 1 To listObj.ListColumns.Count
    For r = 1 To listObj.ListRows.Count
        If listObj.DataBodyRange.Cells(r, c).Value = "Technologies" Then
            listObj.DataBodyRange.Rows(r).Style = "TECHSTYLE"
        End If
        If listObj.DataBodyRange.Cells(r, c).Value = "Fonctions" Then
            listObj.DataBodyRange.Rows(r).Style = "FUNCSTYLE"
        End If
        If listObj.DataBodyRange.Cells(r, c).Value = "Tests" Then
            listObj.DataBodyRange.Rows(r).Style = "TESTSTYLE"
        End If
    Next r
  Next c

Comment modifier ce code pour spécifiquement changer la police (mettre en gras) le mot s'il est présent ?
Merci

EDIT :
En plus je suis défoncé, j'ai posté le mauvais bout de code...

En réalité je fais une comparaison à l'aide de la fonction InStr() pour savoir si la cellule contient la valeur que je recherche.
Ce que j'aimerais savoir c'est quelle fonction ou type d'objet manipuler derrière pour "remanier" la chaine afin de changer la police d'écriture uniquement pour la valeur trouvée.

Par exemple en simplifié :

InStr(1, "tata titi toto", "titi", vbTextCompare)

Où "tata titi toto" est une valeur de cellule.
Quelle fonction puis-je utiliser pour changer ce texte en :
"tata titi toto" ?

 

[gosselien]

Bonjour,

sans fichier ... 🙁

La méthode Find me semble plus adaptée que ta boucle 🙂

P.

 

[DoubleZero]

Bonjour, monakiel, gosselien, le Forum,

Cf. le travail de BOISGONTIER 🙂 que l'on ne "voit" plus 🙁 sur XLD :

http://boisgontierjacques.free.fr/pages_site/cellules.htm

=> "Colorie les occurences du mot cherché dans un champ"

A bientôt 🙂

 

[gosselien]

Cf. le travail de BOISGONTIER 🙂 que l'on ne "voit" plus 🙁 sur XLD :
http://boisgontierjacques.free.fr/pages_site/cellules.htm
A bientôt 🙂

Perso, je pense et j'en ai la preuve, qu'il vient encore et c'est tant mieux ! 🙂 0_0