Spinzi
XLDnaute Impliqué
Bonjour à tous,
je cherchais une solution de manière à lier un commentaire à une cellule excel (http://boisgontierjacques.free.fr/fichiers/Commentaires/AfficheCmt.xls)
J'ai trouvé mon bonheur mais j'ai un petit souci de mise en forme : le commentaire se "rafraichit" et la taille du commentaire revient à l'origine (trop petite).
L'autosize ne me convient pas non plus car mes commentaires sont souvent importants en nombre de caractères.
Il faudrait, si c'est possible, que la taille des commentaires soit modifiable de manière identique au standard Excel (c'est à dire que la mise à jour de la taille du commentaire ne se fasse pas).
Ci dessous le code :
Un exemple est trouvable sur le site.
Si mon besoin n'est pas clair, n'hésitez pas à me demander plus amples explications !
Spinzi
je cherchais une solution de manière à lier un commentaire à une cellule excel (http://boisgontierjacques.free.fr/fichiers/Commentaires/AfficheCmt.xls)
J'ai trouvé mon bonheur mais j'ai un petit souci de mise en forme : le commentaire se "rafraichit" et la taille du commentaire revient à l'origine (trop petite).
L'autosize ne me convient pas non plus car mes commentaires sont souvent importants en nombre de caractères.
Il faudrait, si c'est possible, que la taille des commentaires soit modifiable de manière identique au standard Excel (c'est à dire que la mise à jour de la taille du commentaire ne se fasse pas).
Ci dessous le code :
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) * 7
.Comment.Shape.Height = 12
.Comment.Shape.Left = .Left + .Width + 5
.Comment.Shape.Top = .Top - 2
.Comment.Visible = True
tmp = CStr(msg)
.Comment.Text Text:=tmp
.Comment.Shape.Fill.ForeColor.SchemeColor = coul
.Comment.Visible = False
End With
End If
AfficheCmt = ""
End Function
Un exemple est trouvable sur le site.
Si mon besoin n'est pas clair, n'hésitez pas à me demander plus amples explications !
Spinzi
Dernière édition: