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

monakiel

XLDnaute Nouveau
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 :

VB:
  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é :
VB:
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" ?
 
Dernière édition:

Discussions similaires

Réponses
7
Affichages
292

Statistiques des forums

Discussions
311 729
Messages
2 081 966
Membres
101 852
dernier inscrit
dthi16088