Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Format de commentaires (par défaut)

Format de commentaires (par défaut)

18 réponses
Avatar
Glouglou
Bonjour à tous,

Je cherche à modifier mon format de commentaire par défaut afin d'avoir
toujours le même format lorsque j'en fait un nouveau. En effet, la police de
base est Tahoma de taille 8. Elle est pratiquement illisible dans mon
application. Lorsqu'on la change (ex: Arial de taille 14) et qu'on ferme le
fichier, elle revient à ses caractéristiques initiales à l'ouverture suivante
(Tahoma de taille 8).

Pourriez-vous me dire s'il est possible de définir le format par défaut des
commentaires? Cela éviterait de lancer une macro systématiquement au
démarrage.

Merci d'avance.

--
Glouglou
Signaler un problème avec ce contenu

8 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
1 2
Avatar
jps
merci, philippe de t'être mimimimiscer dans cette affaire où j'ai un peu de
mal à suivre tibert dont l'ambition me semble être au-dessus de ses moyens ;
tibert dit à notre prof retraité québécois que sa proc bogue sur telle ligne
; je lui dis "as-tu essayé la mienne? et il me répond que "ce qui est
évident....etc...etc..." alors que je ne vois pas de différence entre
essayer la proc que je lui ai susurrée et celle du vénarable garnote...qui
finalement marche (la proc, pas Serge) à Montpellier
car ces commentaires, avant qu'on les considère comme des bons à rien parce
qu'en tahoma 8, il faut bien qu'on les rédige, non? or, ce que je propose,
c'est que chaque fois qu'on aura à entrer un commentaire dans une cellule
quelconque du classeur, il suffira d'exécuter la macro, en lieu et place de
celle native d'excel sous le bouton tout aussi natif "Insérer un
commentaire", en cliquant sur un autre bouton auquel on peut donner la même
bobine que celui natif qu'il viendra même remplacer dans la BO (ce que j'ai
fait pour ma part avec l'aide de frédéric sigonneau, certes, lequel avait
même prévu que cette proc fasse l'objet d'une .xla avec un bouton, non pas
dans la BO mais dans le menu déroulant lors du clic droit dans une cellule
avec un Workbook_AddinInstall() dans le module ThisWorkbook du
classeur)....mais comment expliquer tout cela à tibert dont le problème,
parce que seulement résolvable (c'estr français, ça) en VBA, nécessite
quelques compétences qu'il ne semble pas avoir, ce que je regrette pour lui
mais, comme disent les suisses, quand on ne sait pas, on ne va pas
jps

"Philippe.R" <AS_rauphil_at_wanadoo.fr> a écrit dans le message de news:
%
Bonsoir,
A tout hasard, je mimissssse pour suggérer, à défaut de paramétrer les
commentaires en dur :

alt + f11 pour ouvrir VBE
insertion d'un module (clic droit sur le nom du projet VBA correspondant
au classeur dans la fenêtre d'en haut à gauche)
coller ceci (repris de la réponse de JPS) dans la fenêtre de droite :

Sub formacoment()
lecmt = InputBox("Saisissez ci dessous le texte :", "Votre commentaire")
On Error Resume Next
If lecmt = "" Then GoTo Fin
'ActiveCell.Comment.Delete
Set cmt = ActiveCell.AddComment
cmt.Text Text:=lecmt
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 = vbGreen
End With
End With
End With
Fin:
SendKeys "%IM"
End Sub

dans le module de feuille (qu'on sélectionne aussi dans le projet VBA de
la fenêtre de gauche), l'une de ces proc

Private Sub Worksheet_Change(ByVal Target As Range)
formacoment
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
formacoment
End Sub

--
Avec plaisir
Philippe.R
"Tibert" a écrit dans le message de
news:
Bonjour (jps) ;
Ce qui peut paraître évident pour toi les moins pour moi, je suis à mais
début, pour ta proc je la mets où ?, je l'utilise comment !
Merci de ton aide.



bonjour tibert
as-tu au moins essayé la proc que je te donnais par mon post du 30/08 à
23h50 et que je te redonne ci-dessous?
jps

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"

"garnote" a écrit dans le message de
news:
uiSl%
Salut Tibert,

Moi avoir aucune idée ;-(
À Québec, tout baigne dans l'huile ;-)

Serge

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

Salut "garnote";
J'ai essayé ta macro, mais pour moi sa bloc sur la ligne
(c.Shape.TextFrame.Characters.Font.Name = "Arial")
aurais tu une idée du problème.
Merci


Bonjour Glouglou,

Je ne sais pas comment changer les caractéristiques par défaut
des commentaires mais en attendant la solution miracle, tu pourrais
(un exemple) mettre cette macro dans Perso.xls et l'associer à un
bouton personnalisé ajouté sur une barre d'outils.
Quand tu cliqueras sur ce bouton, tous les commentaires du classeur
actif auront ces nouvelles caractéristiques.

Sub Commentaires()
Dim c As Comment
Dim f As Worksheet
For Each f In ActiveWorkbook.Worksheets
For Each c In f.Comments
c.Shape.TextFrame.Characters.Font.Name = "Arial"
c.Shape.TextFrame.Characters.Font.Size = 14
c.Shape.Height = 100
c.Shape.Width = 200
Next c
Next f
End Sub

Serge


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

Bonjour à tous,

Je cherche à modifier mon format de commentaire par défaut afin
d'avoir
toujours le même format lorsque j'en fait un nouveau. En effet, la
police de
base est Tahoma de taille 8. Elle est pratiquement illisible dans
mon
application. Lorsqu'on la change (ex: Arial de taille 14) et qu'on
ferme le
fichier, elle revient à ses caractéristiques initiales à
l'ouverture
suivante
(Tahoma de taille 8).

Pourriez-vous me dire s'il est possible de définir le format par
défaut des
commentaires? Cela éviterait de lancer une macro systématiquement
au
démarrage.

Merci d'avance.

--
Glouglou






















Avatar
Philippe.R
Bonsoir Jean Paul,
J'avais un peu modifié le code que tu as publié car, ayant un écran beaucoup
moins haut que le tiens, je ne peux me permettre d'ajouter autant de BO que
toi.
je t'entends déjà susurrer que j'ai qu'à le tourner d'un quart, mais
t'avoueras que c'est moins pratique pour lire.
--
Avec plaisir
Philippe.R
"jps" a écrit dans le message de
news:e0$
merci, philippe de t'être mimimimiscer dans cette affaire où j'ai un peu
de mal à suivre tibert dont l'ambition me semble être au-dessus de ses
moyens ; tibert dit à notre prof retraité québécois que sa proc bogue sur
telle ligne ; je lui dis "as-tu essayé la mienne? et il me répond que "ce
qui est évident....etc...etc..." alors que je ne vois pas de différence
entre essayer la proc que je lui ai susurrée et celle du vénarable
garnote...qui finalement marche (la proc, pas Serge) à Montpellier
car ces commentaires, avant qu'on les considère comme des bons à rien
parce qu'en tahoma 8, il faut bien qu'on les rédige, non? or, ce que je
propose, c'est que chaque fois qu'on aura à entrer un commentaire dans une
cellule quelconque du classeur, il suffira d'exécuter la macro, en lieu et
place de celle native d'excel sous le bouton tout aussi natif "Insérer un
commentaire", en cliquant sur un autre bouton auquel on peut donner la
même bobine que celui natif qu'il viendra même remplacer dans la BO (ce
que j'ai fait pour ma part avec l'aide de frédéric sigonneau, certes,
lequel avait même prévu que cette proc fasse l'objet d'une .xla avec un
bouton, non pas dans la BO mais dans le menu déroulant lors du clic droit
dans une cellule avec un Workbook_AddinInstall() dans le module
ThisWorkbook du classeur)....mais comment expliquer tout cela à tibert
dont le problème, parce que seulement résolvable (c'estr français, ça) en
VBA, nécessite quelques compétences qu'il ne semble pas avoir, ce que je
regrette pour lui mais, comme disent les suisses, quand on ne sait pas, on
ne va pas
jps

"Philippe.R" <AS_rauphil_at_wanadoo.fr> a écrit dans le message de news:
%
Bonsoir,
A tout hasard, je mimissssse pour suggérer, à défaut de paramétrer les
commentaires en dur :

alt + f11 pour ouvrir VBE
insertion d'un module (clic droit sur le nom du projet VBA correspondant
au classeur dans la fenêtre d'en haut à gauche)
coller ceci (repris de la réponse de JPS) dans la fenêtre de droite :

Sub formacoment()
lecmt = InputBox("Saisissez ci dessous le texte :", "Votre commentaire")
On Error Resume Next
If lecmt = "" Then GoTo Fin
'ActiveCell.Comment.Delete
Set cmt = ActiveCell.AddComment
cmt.Text Text:=lecmt
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 = vbGreen
End With
End With
End With
Fin:
SendKeys "%IM"
End Sub

dans le module de feuille (qu'on sélectionne aussi dans le projet VBA de
la fenêtre de gauche), l'une de ces proc

Private Sub Worksheet_Change(ByVal Target As Range)
formacoment
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
formacoment
End Sub

--
Avec plaisir
Philippe.R
"Tibert" a écrit dans le message de
news:
Bonjour (jps) ;
Ce qui peut paraître évident pour toi les moins pour moi, je suis à mais
début, pour ta proc je la mets où ?, je l'utilise comment !
Merci de ton aide.



bonjour tibert
as-tu au moins essayé la proc que je te donnais par mon post du 30/08 à
23h50 et que je te redonne ci-dessous?
jps

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"

"garnote" a écrit dans le message de
news:
uiSl%
Salut Tibert,

Moi avoir aucune idée ;-(
À Québec, tout baigne dans l'huile ;-)

Serge

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

Salut "garnote";
J'ai essayé ta macro, mais pour moi sa bloc sur la ligne
(c.Shape.TextFrame.Characters.Font.Name = "Arial")
aurais tu une idée du problème.
Merci


Bonjour Glouglou,

Je ne sais pas comment changer les caractéristiques par défaut
des commentaires mais en attendant la solution miracle, tu pourrais
(un exemple) mettre cette macro dans Perso.xls et l'associer à un
bouton personnalisé ajouté sur une barre d'outils.
Quand tu cliqueras sur ce bouton, tous les commentaires du classeur
actif auront ces nouvelles caractéristiques.

Sub Commentaires()
Dim c As Comment
Dim f As Worksheet
For Each f In ActiveWorkbook.Worksheets
For Each c In f.Comments
c.Shape.TextFrame.Characters.Font.Name = "Arial"
c.Shape.TextFrame.Characters.Font.Size = 14
c.Shape.Height = 100
c.Shape.Width = 200
Next c
Next f
End Sub

Serge


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

Bonjour à tous,

Je cherche à modifier mon format de commentaire par défaut afin
d'avoir
toujours le même format lorsque j'en fait un nouveau. En effet,
la
police de
base est Tahoma de taille 8. Elle est pratiquement illisible dans
mon
application. Lorsqu'on la change (ex: Arial de taille 14) et
qu'on
ferme le
fichier, elle revient à ses caractéristiques initiales à
l'ouverture
suivante
(Tahoma de taille 8).

Pourriez-vous me dire s'il est possible de définir le format par
défaut des
commentaires? Cela éviterait de lancer une macro systématiquement
au
démarrage.

Merci d'avance.

--
Glouglou


























Avatar
Patrick BASTARD
Bonjour, *Philippe.R*

...
je t'entends déjà susurrer que j'ai qu'à le tourner d'un quart, mais
t'avoueras que c'est moins pratique pour lire.


Sauf à travailler allongé sur le bureau...
;-)

--
Bien amicordialement,
P. Bastard

Pour bosser heureux, bossons couchés.

Avatar
isabelle
ho! que lis je, messieurs, honte à vous , ;-)


du vénarable garnote...qui
finalement marche (la proc, pas Serge)


mon ange, serge nous annoncais récemmment la préparation d'une mémorable rencontre mpfe, comme je suis déçu du fait de cette nouvelle,

isabelle( ps/ serge tu auras beau tirer, je suis parti aux abris) ;-)

Avatar
jps
:-))))))
que ces rencontres se fassent vite et soient aussi agréables que celles
venues et à venir de ce côté-ci de la rivière....
bises aux québécoises
jps

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

ho! que lis je, messieurs, honte à vous , ;-)


du vénarable garnote...qui
finalement marche (la proc, pas Serge)


mon ange, serge nous annoncais récemmment la préparation d'une mémorable
rencontre mpfe, comme je suis déçu du fait de cette nouvelle,

isabelle( ps/ serge tu auras beau tirer, je suis parti aux abris) ;-)



Avatar
isabelle
je sort juste le temps de te faire la bise mon ange et me retranche dans l'abris,

isabelle


:-))))))
que ces rencontres se fassent vite et soient aussi agréables que celles
venues et à venir de ce côté-ci de la rivière....
bises aux québécoises
jps

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


ho! que lis je, messieurs, honte à vous , ;-)


du vénarable garnote...qui

finalement marche (la proc, pas Serge)


mon ange, serge nous annoncais récemmment la préparation d'une mémorable
rencontre mpfe, comme je suis déçu du fait de cette nouvelle,

isabelle( ps/ serge tu auras beau tirer, je suis parti aux abris) ;-)








Avatar
jps
j'espère qu'il y a un lit dans ton abri, isabelle, car il est bien temps
d'aller faire dodo au québec
jps

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

je sort juste le temps de te faire la bise mon ange et me retranche dans
l'abris,

isabelle


:-))))))
que ces rencontres se fassent vite et soient aussi agréables que celles
venues et à venir de ce côté-ci de la rivière....
bises aux québécoises
jps

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


ho! que lis je, messieurs, honte à vous , ;-)


du vénarable garnote...qui

finalement marche (la proc, pas Serge)


mon ange, serge nous annoncais récemmment la préparation d'une mémorable
rencontre mpfe, comme je suis déçu du fait de cette nouvelle,

isabelle( ps/ serge tu auras beau tirer, je suis parti aux abris) ;-)









Avatar
Philippe.R
Bon{j,s}o{u,i}r Isabelle,

du vénarable garnote...qui


Peut être voulait il écrire vinénarable ?
;o)))
--
Avec plaisir
Philippe.R

1 2