Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Modifier la couleur du texte d'un commentaire

Créer une discussion

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire

Magic_Doctor

XLDnaute Barbatruc
Supporter XLD
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.
 
Trier par date Trier par votes
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.

Code: 
activecell.Comment.Shape.TextFrame.Characters.Font.ColorIndex=5 'bleu
 
Vote positif 0 Vote négatif
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 :
Code: 
[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,
 
Vote positif 0 Vote négatif
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 😉
 
Vote positif 0 Vote négatif
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 !
 
Vote positif 0 Vote négatif
Re : Modifier la couleur du texte d'un commentaire

Re,

Dans ce cas, tu peux essayer comme ça :
Code: 
[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]
skoobi à dit:
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
Cliquez pour agrandir...
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,
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

O
  • Question Question
Microsoft 365 Demande de création de fichier rénumérée
Réponses
5
Affichages
399
dysorthographie
P
  • Résolu(e)
Microsoft 365 Modifier couleur du texte d'une cellule
Réponses
6
Affichages
294
pat66
P
P
  • Résolu(e)
XL pour MAC Problème de changement de couleur de la valeur d'une cellule
Réponses
2
Affichages
578
pvander
P
E
  • Résolu(e)
Microsoft 365 Couleur Police sur grand nombre de cellules
2
Réponses
22
Affichages
1 K
TooFatBoy
C
  • Question Question
Autres Apprentissage d'une langue : adapter la couleur des cellules en fonction du pourcentage d'évaluation
Réponses
2
Affichages
628
crocrocro
C
A
  • Question Question
Microsoft 365 Faire apparaître un texte en passant la souris sur un bouton
Réponses
13
Affichages
3 K
Alain 79
A
O
  • Question Question
XL 2019 erreur de valeur sur formule
2
Réponses
18
Affichages
1 K
olivier1984
O
Vérifier la disponibilité d'un fichier généré en différé
Réponses
0
Affichages
496
Lu76Fer
H
  • Résolu(e)
Microsoft 365 Taille de la police adaptée en fonction de la longueur du texte
Réponses
4
Affichages
928
homernell
H
H
  • Résolu(e)
XL 2013 Comment retranscrire la MFC d'un texte dans une Shape?
2
Réponses
19
Affichages
1 K
Halffy
H
  • Résolu(e)
XL 2010 Modifier la couleur d'un Label (ActiveX) situé sur la FEUILLE
Réponses
2
Affichages
820
Magic_Doctor
H
  • Question Question
Microsoft 365 Change la couleur d'une partie du texte d'une cellule
Réponses
3
Affichages
808
Hak42
H
J
  • Question Question
Microsoft 365 Construction d'un tableau de bord agence architecture
Réponses
13
Affichages
3 K
vinzwanted
V
M
  • Résolu(e)
Microsoft 365 Commentaire conditionnel en fonction d'un tableau de référence
Réponses
3
Affichages
911
sylvanu
Y
  • Résolu(e)
XL 2019 Userform à adapter par rapport les colonnes d'un tableau
2
Réponses
21
Affichages
2 K
YAP32
Y
  • Question Question
Microsoft 365 Copier la valeur de cellules non contigües de plusieurs feuilles vers une feuille récapitulative.
Réponses
14
Affichages
1 K
Droopyougo
M
  • Question Question
XL 2016 Récupérer la planification d'un excel et la croiser avec un planning d'un autre Excel
Réponses
5
Affichages
1 K
vgendron
E
  • Résolu(e)
Microsoft 365 Conception d'un outils alliant faciliter d'utilisation et optimisation de la RAM/Processeur/Espace Disque
Réponses
6
Affichages
939
elgringo123456
E
D
  • Question Question
Autres Somme selon la couleur de caractère
Réponses
13
Affichages
2 K
Dimitry
D
A
  • Résolu(e)
Microsoft 365 [VBA] Macro pour automatiser une sortie
2 3
Réponses
37
Affichages
4 K
asso78Lim
A
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…