Macro pour personaliser les commentaires ?

[Chri8Ed]

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

 

[BOISGONTIER]

Re : Macro pour personaliser les commentaires ?

Bonjour,

Voir PJ

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

 

[Staple1600]

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)

 

[Chri8Ed]

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

 

[BOISGONTIER]

Re : Macro pour personaliser les commentaires ?

Voir pj

JB

 

[Chri8Ed]

Re : Macro pour personaliser les commentaires ?

Bonjour Staple1600

Merci pour ta réponse

Mais je l'avais déjà fait avant de demander de l'aide
Malheureusement c'est la suite que mes compétences ne me permettaient pas d'écrire

 

[Chri8Ed]

Re : Macro pour personaliser les commentaires ?

Re, Bonjour

Merci pour la nouvelle macro

Je vois qu'il suffit de remplacer :

Sub commentaireCouleur()

Par :

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.

 

[CBernardT]

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.