OVH Cloud OVH Cloud

police des commentaires

20 réponses
Avatar
pierreg
bonsoir =E0 tous,
quand j'ajoute un "commentaire" =E0 une case Excel, le=20
texte s'=E9crit par d=E9faut en gras et petit (8)
je voudrais que par d=E9faut les commentaires soient en=20
=E9criture normale et =E9crits plus gros, pour ne pas devoir=20
repr=E9ciser =E7a =E0 chaque fois, comment faire?
merci d'avance
pierreg

10 réponses

1 2
Avatar
jps
alors, bernard, il faut aller sur le site de F Sigonneau qui doit avoir une
macro complémentaire qui permet de modifier les commentaires....
un truc dans ce genre à adapter :

Sub CommentaireJPS()
'une macro signée sigonneau avec création d'une XLA
On Error Resume Next
Set cmt = ActiveCell.AddComment
If Err <> 0 Then GoTo Fin
With cmt.Shape
.Placement = xlFreeFloating
.TextFrame.AutoSize = True
With .OLEFormat.Object
With .Font
.Name = "Times New Roman": .Size = 10: '.Color = vbRed
End With
End With
End With
cmt.Text Text:=""
Fin:
SendKeys "%IM"
End Sub

jps

"Bernard SC" a écrit dans le message de
news:

"sty" a écrit dans le message de
news:cg610o$s6b$
"pierreg" a écrit dans le message
de


news: a5b301c48701$091d51d0$
bonsoir à tous,
quand j'ajoute un "commentaire" à une case Excel, le
texte s'écrit par défaut en gras et petit (8)
je voudrais que par défaut les commentaires soient en
écriture normale et écrits plus gros, pour ne pas devoir
repréciser ça à chaque fois, comment faire?
merci d'avance
pierreg

Je fais ça souvent. Tu te positionne sur la cellule concernée,
clic-droit


et
"modifier commentaire" ensuite tu surligne que ce que tu veux changer,
cela

permet de mettre des caractère en gras, en couleur, soulignés...

--


oui, mais le "Définir comme attributs par défaut" du commentaire ne
mémorise

pas la police de caractères... alors à quoi cela sert-il ?





Avatar
Daniel.j
Bonjour,
A defaut d'une solution simple et efficace, je propose un peu de VBA:
Peut-on paramètrer la police du commentaire avant la création de ce dernier?
Sub AjoutCommentaire()
With ActiveCell.AddComment.Shape.OLEFormat.Object
.Text = ""
.Font.Name = "Times New Roman"
.Font.Size = 14
End With
SendKeys "%IM"
End Sub

'S'il s'agit de modifier la taille de la police a posteriori dans tous les
commentaires du classeur:

Sub ModifCommentaires()
Dim Wksht As Worksheet, C As Comment
For Each Wksht In Worksheets
For Each C In Wksht.Comments
C.Shape.OLEFormat.Object.Font.Size = 12
Next C
Next Wksht
End Sub

http://dj.joss.free.fr/faq.htm#paramComment

Daniel
--
VBAXL
Exemples de procédures Visual Basic pour Excel
http://dj.joss.free.fr


"pierreg" a écrit dans le message de news:
a5b301c48701$091d51d0$
bonsoir à tous,
quand j'ajoute un "commentaire" à une case Excel, le
texte s'écrit par défaut en gras et petit (8)
je voudrais que par défaut les commentaires soient en
écriture normale et écrits plus gros, pour ne pas devoir
repréciser ça à chaque fois, comment faire?
merci d'avance
pierreg
Avatar
Bernard SC
"jps" a écrit dans le message de
news:
alors, bernard, il faut aller sur le site de F Sigonneau qui doit avoir
une

macro complémentaire qui permet de modifier les commentaires....
un truc dans ce genre à adapter :

Sub CommentaireJPS()
'une macro signée sigonneau avec création d'une XLA
On Error Resume Next
Set cmt = ActiveCell.AddComment
If Err <> 0 Then GoTo Fin
With cmt.Shape
.Placement = xlFreeFloating
.TextFrame.AutoSize = True
With .OLEFormat.Object
With .Font
.Name = "Times New Roman": .Size = 10: '.Color = vbRed
End With
End With
End With


Merci pour ces infos, ça fonctionne !
C'est bon pour la taille des caractères avec
commentaire.Shape.OLEFormat.Object.Font.Size = 10

L'objet TextFrame (proposé ci-dessus) ne fonctionne pas avec mes
commentaires (commentaires saisis à la main, et non par VBA). Mais je n'en
ai pas besoin.

Encore merci
Bernard

Avatar
Bernard SC
C.Shape.OLEFormat.Object.Font.Size = 12



Merci ! ça marche.
J'avais cherché avec
C.Shape.TextEffect ou TextFrame,
mais cela n'existe pas avec un commentaire créé à la main (et non par VBA)..

Avatar
Alain CROS
Bonjour.

AMA, TextFrame fonctionne que le commentaire soit saisie à la main ou par vba.
Par exemple Insérer un commentaire en A1 puis lancer cette macro.
Sub test()
MsgBox Range("A1").Comment.Shape.TextFrame.Characters.Font.Size
End Sub

Alain CROS

"Bernard SC" a écrit dans le message de news: OcA$

Merci pour ces infos, ça fonctionne !
C'est bon pour la taille des caractères avec
commentaire.Shape.OLEFormat.Object.Font.Size = 10

L'objet TextFrame (proposé ci-dessus) ne fonctionne pas avec mes
commentaires (commentaires saisis à la main, et non par VBA). Mais je n'en
ai pas besoin.

Encore merci
Bernard




Avatar
pierreg
Bonsoir,
Ca marche trés bien, je vais utiliser ça, merci pour cet outil. Je vais le
mettre en Perso et effecter cette macro à l'icône Crée un commentaire
d'Excel.

Mais je reste curieux de savoir pourquoi on ne peut pas sans ça modifier
quelque chose qui choisisse par ex Times New Roman size 14 par défaut = une
fois pour toutes sans autre forme de procès, alors que par la manip indiquée
par Denis et Sabatier (Panneau de configuration/Affichage/onglet
Apparence/Avancé et Info-bulle) on peut changer la taille de la police, la
couleur d'écriture et de fond mais pas la police elle même (j'ai obstinément
Tahoma quoi que je fasse)
En plus chez moi le commentaire affiche en t^te le nom d'utilisateur en bold
quoi que je fasse, même si en dessous je peux mettre le texte (toujours
tahoma !) en normal!!

Quelqu'un peut il me dire comment virer au moins cet en tête inutile ?
Merci à tous de votre patience
pierreg

"Daniel.j" a écrit dans le message de
news:%
Bonjour,
A defaut d'une solution simple et efficace, je propose un peu de VBA:
Peut-on paramètrer la police du commentaire avant la création de ce
dernier?

Sub AjoutCommentaire()
With ActiveCell.AddComment.Shape.OLEFormat.Object
.Text = ""
.Font.Name = "Times New Roman"
.Font.Size = 14
End With
SendKeys "%IM"
End Sub

'S'il s'agit de modifier la taille de la police a posteriori dans tous les
commentaires du classeur:

Sub ModifCommentaires()
Dim Wksht As Worksheet, C As Comment
For Each Wksht In Worksheets
For Each C In Wksht.Comments
C.Shape.OLEFormat.Object.Font.Size = 12
Next C
Next Wksht
End Sub

http://dj.joss.free.fr/faq.htm#paramComment

Daniel
--
VBAXL
Exemples de procédures Visual Basic pour Excel
http://dj.joss.free.fr


"pierreg" a écrit dans le message de
news:

a5b301c48701$091d51d0$
bonsoir à tous,
quand j'ajoute un "commentaire" à une case Excel, le
texte s'écrit par défaut en gras et petit (8)
je voudrais que par défaut les commentaires soient en
écriture normale et écrits plus gros, pour ne pas devoir
repréciser ça à chaque fois, comment faire?
merci d'avance
pierreg




Avatar
sabatier
bonsoir pierrereg
si tu vas dans Outils/Options onglet Général, que lis-tu dans Nom
d'utilisateur, tout en bas de l'onglet?
à mon avis, la même chose que ce que tu as dans la bulle de commentaire...
alors, efface ce nom d'utilisateur et regarde si tu l'as encore dans la
bulle....AMHA, je pense qu'il aura disparu
jps

"pierreg" a écrit dans le message de
news:cgb6d4$b0o$
Bonsoir,
Ca marche trés bien, je vais utiliser ça, merci pour cet outil. Je vais le
mettre en Perso et effecter cette macro à l'icône Crée un commentaire
d'Excel.

Mais je reste curieux de savoir pourquoi on ne peut pas sans ça modifier
quelque chose qui choisisse par ex Times New Roman size 14 par défaut une
fois pour toutes sans autre forme de procès, alors que par la manip
indiquée

par Denis et Sabatier (Panneau de configuration/Affichage/onglet
Apparence/Avancé et Info-bulle) on peut changer la taille de la police, la
couleur d'écriture et de fond mais pas la police elle même (j'ai
obstinément

Tahoma quoi que je fasse)
En plus chez moi le commentaire affiche en t^te le nom d'utilisateur en
bold

quoi que je fasse, même si en dessous je peux mettre le texte (toujours
tahoma !) en normal!!

Quelqu'un peut il me dire comment virer au moins cet en tête inutile ?
Merci à tous de votre patience
pierreg

"Daniel.j" a écrit dans le message de
news:%
Bonjour,
A defaut d'une solution simple et efficace, je propose un peu de VBA:
Peut-on paramètrer la police du commentaire avant la création de ce
dernier?

Sub AjoutCommentaire()
With ActiveCell.AddComment.Shape.OLEFormat.Object
.Text = ""
.Font.Name = "Times New Roman"
.Font.Size = 14
End With
SendKeys "%IM"
End Sub

'S'il s'agit de modifier la taille de la police a posteriori dans tous
les


commentaires du classeur:

Sub ModifCommentaires()
Dim Wksht As Worksheet, C As Comment
For Each Wksht In Worksheets
For Each C In Wksht.Comments
C.Shape.OLEFormat.Object.Font.Size = 12
Next C
Next Wksht
End Sub

http://dj.joss.free.fr/faq.htm#paramComment

Daniel
--
VBAXL
Exemples de procédures Visual Basic pour Excel
http://dj.joss.free.fr


"pierreg" a écrit dans le message
de


news:
a5b301c48701$091d51d0$
bonsoir à tous,
quand j'ajoute un "commentaire" à une case Excel, le
texte s'écrit par défaut en gras et petit (8)
je voudrais que par défaut les commentaires soient en
écriture normale et écrits plus gros, pour ne pas devoir
repréciser ça à chaque fois, comment faire?
merci d'avance
pierreg








Avatar
sabatier
(suite)
par contre, seul une macro te permettra de retirer les : (deux points) qui
suivaient le nom de l'utilisateur....encore que tu puisses les supprimer à
la mimine, c'est si peu de chose deux points...tant que tu les prends pas
dans la g.....
jps

"pierreg" a écrit dans le message de
news:cgb6d4$b0o$
Bonsoir,
Ca marche trés bien, je vais utiliser ça, merci pour cet outil. Je vais le
mettre en Perso et effecter cette macro à l'icône Crée un commentaire
d'Excel.

Mais je reste curieux de savoir pourquoi on ne peut pas sans ça modifier
quelque chose qui choisisse par ex Times New Roman size 14 par défaut une
fois pour toutes sans autre forme de procès, alors que par la manip
indiquée

par Denis et Sabatier (Panneau de configuration/Affichage/onglet
Apparence/Avancé et Info-bulle) on peut changer la taille de la police, la
couleur d'écriture et de fond mais pas la police elle même (j'ai
obstinément

Tahoma quoi que je fasse)
En plus chez moi le commentaire affiche en t^te le nom d'utilisateur en
bold

quoi que je fasse, même si en dessous je peux mettre le texte (toujours
tahoma !) en normal!!

Quelqu'un peut il me dire comment virer au moins cet en tête inutile ?
Merci à tous de votre patience
pierreg

"Daniel.j" a écrit dans le message de
news:%
Bonjour,
A defaut d'une solution simple et efficace, je propose un peu de VBA:
Peut-on paramètrer la police du commentaire avant la création de ce
dernier?

Sub AjoutCommentaire()
With ActiveCell.AddComment.Shape.OLEFormat.Object
.Text = ""
.Font.Name = "Times New Roman"
.Font.Size = 14
End With
SendKeys "%IM"
End Sub

'S'il s'agit de modifier la taille de la police a posteriori dans tous
les


commentaires du classeur:

Sub ModifCommentaires()
Dim Wksht As Worksheet, C As Comment
For Each Wksht In Worksheets
For Each C In Wksht.Comments
C.Shape.OLEFormat.Object.Font.Size = 12
Next C
Next Wksht
End Sub

http://dj.joss.free.fr/faq.htm#paramComment

Daniel
--
VBAXL
Exemples de procédures Visual Basic pour Excel
http://dj.joss.free.fr


"pierreg" a écrit dans le message
de


news:
a5b301c48701$091d51d0$
bonsoir à tous,
quand j'ajoute un "commentaire" à une case Excel, le
texte s'écrit par défaut en gras et petit (8)
je voudrais que par défaut les commentaires soient en
écriture normale et écrits plus gros, pour ne pas devoir
repréciser ça à chaque fois, comment faire?
merci d'avance
pierreg








Avatar
pierreg
bonjour,
mmoui, mais bon, il reste que sachant tout ce qu'on peut faire avec un super
truc comme Excel c'est frustrant de ne pas pouvoir paramétrer direct un
détail comme ça, surtout qu'on y est presque. Et pourquoi c'est Tahoma et
pourquoi c'est bold et pourquoi les points, et gnagnagna alors qu'on peut
paramétrer la taille, la couleur, et tralala. C'était jour férié chez Bill
quand ils ont bossé là dessus ?
Ceci dit je râle mais je suis ravi de toutes les réponses que j'ai eues,
j'ai appris des choses, dont merci à tous.
cordialement,
pierreg


"sabatier" a écrit dans le message
de news:%
(suite)
par contre, seul une macro te permettra de retirer les : (deux points) qui
suivaient le nom de l'utilisateur....encore que tu puisses les supprimer à
la mimine, c'est si peu de chose deux points...tant que tu les prends pas
dans la g.....
jps

"pierreg" a écrit dans le message
de

news:cgb6d4$b0o$
Bonsoir,
Ca marche trés bien, je vais utiliser ça, merci pour cet outil. Je vais
le


mettre en Perso et effecter cette macro à l'icône Crée un commentaire
d'Excel.

Mais je reste curieux de savoir pourquoi on ne peut pas sans ça modifier
quelque chose qui choisisse par ex Times New Roman size 14 par défaut > une
fois pour toutes sans autre forme de procès, alors que par la manip
indiquée

par Denis et Sabatier (Panneau de configuration/Affichage/onglet
Apparence/Avancé et Info-bulle) on peut changer la taille de la police,
la


couleur d'écriture et de fond mais pas la police elle même (j'ai
obstinément

Tahoma quoi que je fasse)
En plus chez moi le commentaire affiche en t^te le nom d'utilisateur en
bold

quoi que je fasse, même si en dessous je peux mettre le texte (toujours
tahoma !) en normal!!

Quelqu'un peut il me dire comment virer au moins cet en tête inutile ?
Merci à tous de votre patience
pierreg

"Daniel.j" a écrit dans le message de
news:%
Bonjour,
A defaut d'une solution simple et efficace, je propose un peu de VBA:
Peut-on paramètrer la police du commentaire avant la création de ce
dernier?

Sub AjoutCommentaire()
With ActiveCell.AddComment.Shape.OLEFormat.Object
.Text = ""
.Font.Name = "Times New Roman"
.Font.Size = 14
End With
SendKeys "%IM"
End Sub

'S'il s'agit de modifier la taille de la police a posteriori dans tous
les


commentaires du classeur:

Sub ModifCommentaires()
Dim Wksht As Worksheet, C As Comment
For Each Wksht In Worksheets
For Each C In Wksht.Comments
C.Shape.OLEFormat.Object.Font.Size = 12
Next C
Next Wksht
End Sub

http://dj.joss.free.fr/faq.htm#paramComment

Daniel
--
VBAXL
Exemples de procédures Visual Basic pour Excel
http://dj.joss.free.fr


"pierreg" a écrit dans le
message



de
news:
a5b301c48701$091d51d0$
bonsoir à tous,
quand j'ajoute un "commentaire" à une case Excel, le
texte s'écrit par défaut en gras et petit (8)
je voudrais que par défaut les commentaires soient en
écriture normale et écrits plus gros, pour ne pas devoir
repréciser ça à chaque fois, comment faire?
merci d'avance
pierreg












Avatar
sabatier
tu touches là du doigt ce qui est finalement l'essentiel, pierrereg
jps(qui a failli mettre un point après "pierre" sans pour autant aller
jusqu'à fusionner....)

"pierreg" a écrit dans le message de
news:cgcf0g$o7h$
bonjour,
mais je suis ravi de toutes les réponses que j'ai eues,
j'ai appris des choses, donc merci à tous.
cordialement,
pierreg


"sabatier" a écrit dans le
message

de news:%
(suite)
par contre, seul une macro te permettra de retirer les : (deux points)
qui


suivaient le nom de l'utilisateur....encore que tu puisses les supprimer
à


la mimine, c'est si peu de chose deux points...tant que tu les prends
pas


dans la g.....
jps

"pierreg" a écrit dans le
message


de
news:cgb6d4$b0o$
Bonsoir,
Ca marche trés bien, je vais utiliser ça, merci pour cet outil. Je
vais



le
mettre en Perso et effecter cette macro à l'icône Crée un commentaire
d'Excel.

Mais je reste curieux de savoir pourquoi on ne peut pas sans ça
modifier



quelque chose qui choisisse par ex Times New Roman size 14 par défaut
une

fois pour toutes sans autre forme de procès, alors que par la manip
indiquée

par Denis et Sabatier (Panneau de configuration/Affichage/onglet
Apparence/Avancé et Info-bulle) on peut changer la taille de la
police,



la
couleur d'écriture et de fond mais pas la police elle même (j'ai
obstinément

Tahoma quoi que je fasse)
En plus chez moi le commentaire affiche en t^te le nom d'utilisateur
en



bold
quoi que je fasse, même si en dessous je peux mettre le texte
(toujours



tahoma !) en normal!!

Quelqu'un peut il me dire comment virer au moins cet en tête inutile ?
Merci à tous de votre patience
pierreg

"Daniel.j" a écrit dans le message de
news:%
Bonjour,
A defaut d'une solution simple et efficace, je propose un peu de
VBA:




Peut-on paramètrer la police du commentaire avant la création de ce
dernier?

Sub AjoutCommentaire()
With ActiveCell.AddComment.Shape.OLEFormat.Object
.Text = ""
.Font.Name = "Times New Roman"
.Font.Size = 14
End With
SendKeys "%IM"
End Sub

'S'il s'agit de modifier la taille de la police a posteriori dans
tous




les
commentaires du classeur:

Sub ModifCommentaires()
Dim Wksht As Worksheet, C As Comment
For Each Wksht In Worksheets
For Each C In Wksht.Comments
C.Shape.OLEFormat.Object.Font.Size = 12
Next C
Next Wksht
End Sub

http://dj.joss.free.fr/faq.htm#paramComment

Daniel
--
VBAXL
Exemples de procédures Visual Basic pour Excel
http://dj.joss.free.fr


"pierreg" a écrit dans le
message



de
news:
a5b301c48701$091d51d0$
bonsoir à tous,
quand j'ajoute un "commentaire" à une case Excel, le
texte s'écrit par défaut en gras et petit (8)
je voudrais que par défaut les commentaires soient en
écriture normale et écrits plus gros, pour ne pas devoir
repréciser ça à chaque fois, comment faire?
merci d'avance
pierreg
















1 2