Bonjour à tous
J'ai trouvé une fonction de Jacques Boisgontier qui convient à ce que je veux faire
Mais je souhaiterais régler en plus :
La police
La taille de cette police
La couleur de cette police
Un encadrement de 3
La couleur de cet encadrement
La couleur du fond
Lorsque je rentre manuellement ces paramètres
Ils sont réinitialisés par la fonction et donc perdus
J'ai bien essayé de modifier la fonction pour rajouter ces paramètres
Mais malheureusement en vain
Tout ce je suis arrivé à faire, c'est de changer le fond en remplaçant "Coul" par 6 (Mauve)
(Je n'ai pas compris comment Jacques paramètre cette couleur en"Vert")
Tous les autres réglages, je butte lamentablement
SI quelqu'un peut m'aider
Merci d'avance
A+
J'ai trouvé une fonction de Jacques Boisgontier qui convient à ce que je veux faire
Code:
Function AfficheCmt(cel, cond, msg, coul)
Application.Volatile
Set f = Sheets(Application.Caller.Parent.Name)
If Not cel.Comment Is Nothing Then cel.Comment.Delete
If cond Then
With cel
If .Comment Is Nothing Then .AddComment
.Comment.Shape.Width = Len(msg) * 6 + 2
.Comment.Shape.Height = 10
.Comment.Shape.Left = .Left + .Width + 5
.Comment.Shape.Top = .Top - 2
.Comment.Visible = True
.Comment.Text Text:=msg
.Comment.Shape.Fill.ForeColor.SchemeColor = coul
End With
End If
AfficheCmt = ""
End Function
Mais je souhaiterais régler en plus :
La police
La taille de cette police
La couleur de cette police
Un encadrement de 3
La couleur de cet encadrement
La couleur du fond
Lorsque je rentre manuellement ces paramètres
Ils sont réinitialisés par la fonction et donc perdus
J'ai bien essayé de modifier la fonction pour rajouter ces paramètres
Mais malheureusement en vain
Tout ce je suis arrivé à faire, c'est de changer le fond en remplaçant "Coul" par 6 (Mauve)
(Je n'ai pas compris comment Jacques paramètre cette couleur en"Vert")
Tous les autres réglages, je butte lamentablement
SI quelqu'un peut m'aider
Merci d'avance
A+