Macro pour personaliser les commentaires ?

  • Initiateur de la discussion Initiateur de la discussion Chri8Ed
  • Date de début Date de début

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 !

Chri8Ed

XLDnaute Occasionnel
Bonjour

Sous Excel 2007, il est possible de paramétrer les commentaires, notamment leur couleur

Je me demande s’il serait possible à l’aide d’une macro de paramétrer cette couleur et éventuellement d’autres paramètres comme la bordure ou la police en fonction d’un mot contenu dans ce commentaire

Ex : Tous les commentaires contenant le mot « Auto » en Vert
Tous les commentaires contenant le mot « Maison » en Jaune avec une police en Gras
Tous les commentaires contenant le mot « Travail » en Bleu avec un cadre Rouge ….

Si quelqu’un à une réponse, merci d’avance

Bon après-midi
 
Re : Macro pour personaliser les commentaires ?

Bonjour,

Voir PJ

Code:
Sub commentaireCouleur()
  For Each c In ActiveSheet.Comments
    c.Shape.Fill.ForeColor.SchemeColor = 1
    temp = UCase(c.Text)
    If InStr(temp, "AUTO") > 0 Then c.Shape.Fill.ForeColor.SchemeColor = 3
    If InStr(temp, "MAISON") > 0 Then
       c.Shape.Fill.ForeColor.SchemeColor = 5
       c.Shape.TextFrame.Characters(Start:=1, Length:=255).Font.Bold = True
    End If
    If InStr(temp, "TRAVAIL") > 0 Then
       c.Shape.Fill.ForeColor.SchemeColor = 7
       c.Shape.Line.ForeColor.SchemeColor = 10
    End If
  Next c
End Sub

JB
 

Pièces jointes

Re : Macro pour personaliser les commentaires ?

Bonjour

La réponse est dans le titre de ta question.

Utilises l'enregistreur de macros en faisant ce que tu indiques dans ton premier message et tu auras le code VBA désiré
(base sur laquelle tu pourras ensuite peaufiner)
 
Re : Macro pour personaliser les commentaires ?

Bonjour BOISGONTIER

Merci, c'est exactement ce qui me faut

Juste une petite chose,
Serait-il possible de rendre cette macro active ?
Je veux dire, que je n'ai pas besoin à chaque fois que je rentre un commentaire,
de cliquer sur la macro, pour effectuer la mise en couleur

Merci
 
Re : Macro pour personaliser les commentaires ?

Re, Bonjour

Merci pour la nouvelle macro

Je vois qu'il suffit de remplacer :
Code:
Sub commentaireCouleur()

Par :
Code:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)

et de mettre cette macro dans la feuille au lieu le la mettre dans un un module
pour la rendre active.

Il y a aussi quelques lignes supplémentaires, j'essayerais de comprendre leurs raisons dès que possible ...

Merci beaucoup, ma demande est à présent parfaitement comblée.
 
Re : Macro pour personaliser les commentaires ?

Bonjour à tous,

Bravo à Jacques BOISGONTIER pour l'excellente macro de mise en couleur des commentaires en fonction de mots clés.

Après analyse du projet de Chri8Ed, j'ai essayé d'automatiser l'emploi des commentaires par doubleclick dans les cellules.

Dans l'exemple, trois actions avec les commentaires :

1- Si rien dans la cellule, alors aucune action. C'est pas un gag lol !

2- Si la cellule n'est pas vide et contient un commentaire, alors deux possibilités, soit de supprimer le commentaire soit d'en modifier son texte.

3- Si la cellule n'est pas vide mais n'a pas de commentaire affecté, alors la possibilité d'en créer un directement par input.
 

Pièces jointes

- 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

Réponses
2
Affichages
555
Réponses
8
Affichages
1 K
Retour