Modifier la couleur du texte d'un commentaire

[Magic_Doctor]

Bonsoir,

Je voudrais modifier automatiquement (à l'aide d'une macro) la couleur de certains mots d'un commentaire. Manuellement c'est tout à fait possible, mais en VBA, je ne trouve malheureusement aucune sentence qui me permette d'y arriver.

Merci si l'un d'entre vous peut résoudre ce problème.

 

[skoobi]

Re : Modifier la couleur du texte d'un commentaire

Bonsoir,

voivi l'instruction pour modifier tout le commentaire, pour certains mots d'un commentaire, il faudra je pense utiliser la fonction split.

activecell.Comment.Shape.TextFrame.Characters.Font.ColorIndex=5 'bleu

 

[myDearFriend!]

Re : Modifier la couleur du texte d'un commentaire

Bonsoir Magic_Doctor, skoobi, le Forum,

La procédure ci-dessous donnera la couleur rouge à l'expression "bonjour" dans chaque commentaire de la feuille active :

[COLOR=GRAY][B][I]DANS UN MODULE DE CODE STANDARD[/I][/B][/COLOR]

[COLOR=NAVY]Sub[/COLOR] Traitement()
[COLOR=GREEN]'myDearFriend!  -  www.mdf-xlpages.com[/COLOR]
[COLOR=NAVY]Dim[/COLOR] Cel [COLOR=NAVY]As[/COLOR] Range
[COLOR=NAVY]Dim[/COLOR] LaChaine [COLOR=NAVY]As String
Dim[/COLOR] Pos [COLOR=NAVY]As Integer[/COLOR]
    LaChaine = "bonjour"    [COLOR=GREEN]'à adapter[/COLOR]
    [COLOR=NAVY]For Each[/COLOR] Cel [COLOR=NAVY]In[/COLOR] ActiveSheet.Cells.SpecialCells(xlCellTypeComments)
        [COLOR=NAVY]With[/COLOR] Cel.Comment
            Pos = InStr(1, .Text, LaChaine)
            [COLOR=NAVY]If[/COLOR] Pos > 0 [COLOR=NAVY]Then[/COLOR]
                .Shape.TextFrame.Characters(Pos, Len(LaChaine)).Font.ColorIndex = 3 [COLOR=GREEN]'rouge[/COLOR]
            [COLOR=NAVY]End If
        End With
    Next[/COLOR] Cel
[COLOR=NAVY]End Sub[/COLOR]

Cordialement,

 

[skoobi]

Re : Modifier la couleur du texte d'un commentaire

Re le fil,

juste comme ça en passant, c'est pas souvant que l'on voit un titre de post explicite qui facilite le résultat des recherches, n'est-ce pas jeanpierre 😉

 

[Magic_Doctor]

Re : Modifier la couleur du texte d'un commentaire

Merci myDearFriend, ça marche très bien !
Excuse-moi de ma réponse tardive, mais le décalage horaire y est pour quelque chose...

N'étant pas très calé en VBA, pourrais-tu me dire quelle modification je dois faire pour que cette mise en forme ne s'applique qu'à certaines cellules, par exemple celles se trouvant dans la rangée A1:A22.

J'ai tenté, mais en vain...

En tout cas, merci !

 

[myDearFriend!]

Re : Modifier la couleur du texte d'un commentaire

Re,

Dans ce cas, tu peux essayer comme ça :

[COLOR=GRAY][B][I]DANS UN MODULE DE CODE STANDARD[/I][/B][/COLOR]

[COLOR=NAVY]Sub[/COLOR] Traitement()
[COLOR=GREEN]'myDearFriend!  -  www.mdf-xlpages.com[/COLOR]
[COLOR=NAVY]Dim[/COLOR] Cel [COLOR=NAVY]As[/COLOR] Range
[COLOR=NAVY]Dim[/COLOR] LaChaine [COLOR=NAVY]As String
Dim[/COLOR] Pos [COLOR=NAVY]As Integer[/COLOR]
    LaChaine = "bonjour"    [COLOR=GREEN]'à adapter[/COLOR]
    [COLOR=NAVY]For Each[/COLOR] Cel [COLOR=NAVY]In[/COLOR][B] Range("A1:A22")[/B].SpecialCells(xlCellTypeComments)
        [COLOR=NAVY]With[/COLOR] Cel.Comment
            Pos = InStr(1, .Text, LaChaine)
            [COLOR=NAVY]If[/COLOR] Pos > 0 [COLOR=NAVY]Then[/COLOR]
                .Shape.TextFrame.Characters(Pos, Len(LaChaine)).Font.ColorIndex = 3 [COLOR=GREEN]'rouge[/COLOR]
            [COLOR=NAVY]End If
        End With
    Next[/COLOR] Cel
[COLOR=NAVY]End Sub[/COLOR]

Re le fil,

juste comme ça en passant, c'est pas souvant que l'on voit un titre de post explicite qui facilite le résultat des recherches, n'est-ce pas jeanpierre

Je n'ai pas tout compris... mais je suis d'accord sur un point : le titre du sujet est explicite et donc bienvenu (c'est entre autre pour ça que je me suis arrêté sur ce fil d'ailleurs).

Cordialement,

 

[Magic_Doctor]

Re : Modifier la couleur du texte d'un commentaire

Bonsoir myDearFriend
¡La verdad lo lograste!
Ce n'est pas sous mes latitudes que j'aurais trouvé un myDearFriend !!

Encore merci.