1. Ce site utilise des "témoins de connexion" (cookies) conformes aux textes de l'Union Européenne. Continuer à naviguer sur nos pages vaut acceptation de notre règlement en la matière. En savoir plus.

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

Discussion dans 'Forum Excel' démarrée par monakiel, 10 Août 2017.

Tags:
  1. monakiel

    monakiel XLDnaute Nouveau

    Inscrit depuis le :
    1 Juillet 2017
    Messages :
    10
    "J'aime" reçus :
    0
    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 :

    Code (Visual Basic):
      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é :
    Code (Visual Basic):
    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: 10 Août 2017
  2. gosselien

    gosselien XLDnaute Barbatruc

    Inscrit depuis le :
    4 Juin 2013
    Messages :
    2322
    "J'aime" reçus :
    139
    Travail/Loisirs :
    en pré-retraite donc Excel, Moto, Photo :)
    Habite à:
    Charleroi
    Utilise:
    Excel 2010 (PC)
    Bonjour,

    sans fichier ... :(

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

    P.
     
  3. DoubleZero

    DoubleZero XLDnaute Barbatruc

    Inscrit depuis le :
    14 Septembre 2010
    Messages :
    5577
    "J'aime" reçus :
    1151
    Utilise:
    Excel 2013 (PC)
  4. gosselien

    gosselien XLDnaute Barbatruc

    Inscrit depuis le :
    4 Juin 2013
    Messages :
    2322
    "J'aime" reçus :
    139
    Travail/Loisirs :
    en pré-retraite donc Excel, Moto, Photo :)
    Habite à:
    Charleroi
    Utilise:
    Excel 2010 (PC)
    DoubleZero aime votre message.

Partager cette page