J'ai défini une police par défaut dans Excel (Palatino, 8, bleue). Cependant, cette police ne s'applique pas automatiquement dans les fenêtres de commentaires. Quelle est la marche à suivre pour définir une police par défaut dans ces commentaires ? Merci de votre aide.
lindilane
Rien ne sert de courir,
Posté le 16/04/2006 19:10:40
salut
Je ne sais pas si on peut définir une police par défaut pour le commentaire.
Cela marche avec une macro que voici :
Sub Format_des_commentaires()
Dim C As Comment
For Each C In ActiveSheet.Comments
'Donne une largeur de 100 pixels au commentaire
C.Shape.Width = 100
'Choisit la police Palatino Linotype
C.Shape.OLEFormat.Object.Font.Name = "Palatino Linotype"
'Donne la taille de la police
C.Shape.OLEFormat.Object.Font.Size = 14
'Change la couleur en bleuté
C.Shape.Fill.ForeColor.RGB = RGB(192, 255, 255)
Next
Set C = Nothing
End Sub
Il suffit ensuite d'attibuer à la macro un bouton.
ps: tu pourras choisir les valeurs que tu veux.
Dit moi si c'est OK
1
![[:Ordinateur-Individuel:1]](/data/globaldata/usmilies/ordinateurindividuel-1.gif "[:Ordinateur-Individuel:1]")
![[:Ordinateur-Individuel:2]](/data/globaldata/usmilies/ordinateurindividuel-2.gif "[:Ordinateur-Individuel:2]")
![[:Ordinateur-Individuel:3]](/data/globaldata/usmilies/ordinateurindividuel-3.gif "[:Ordinateur-Individuel:3]")
![[: Ordinateur-Individuel:4]](/data/globaldata/usmilies/ordinateurindividuel-4.gif "[: Ordinateur-Individuel:4]")
