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
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
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
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
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" <Glouglou@discussions.microsoft.com> a écrit dans le message de news:
DEBC57B4-CFF9-42BD-8F2B-D7C7BAD262AC@microsoft.com...
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
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
Merci beaucoup pour ton aide.
Je partirai donc sur une macro à l'ouverture. A moins que qualqu'un ait une
autre idée.
--
GlouglouBonjour 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
Merci beaucoup pour ton aide.
Je partirai donc sur une macro à l'ouverture. A moins que qualqu'un ait une
autre idée.
--
Glouglou
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" <Glouglou@discussions.microsoft.com> a écrit dans le message de news:
DEBC57B4-CFF9-42BD-8F2B-D7C7BAD262AC@microsoft.com...
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
Merci beaucoup pour ton aide.
Je partirai donc sur une macro à l'ouverture. A moins que qualqu'un ait une
autre idée.
--
GlouglouBonjour 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
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
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" <Glouglou@discussions.microsoft.com> a écrit dans le message de news:
DEBC57B4-CFF9-42BD-8F2B-D7C7BAD262AC@microsoft.com...
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
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
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.
MerciBonjour 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
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" <Glouglou@discussions.microsoft.com> a écrit dans le message de news:
DEBC57B4-CFF9-42BD-8F2B-D7C7BAD262AC@microsoft.com...
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
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.
MerciBonjour 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
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.
MerciBonjour 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
Salut Tibert,
Moi avoir aucune idée ;-(
À Québec, tout baigne dans l'huile ;-)
Serge
"Tibert" <syleg35@hotmail.fr> a écrit dans le message de news:
0B928E8F-140D-427A-BD57-9AD64DDCC09F@microsoft.com...
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" <Glouglou@discussions.microsoft.com> a écrit dans le message
de news:
DEBC57B4-CFF9-42BD-8F2B-D7C7BAD262AC@microsoft.com...
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
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.
MerciBonjour 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
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.
MerciBonjour 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
Salut Tibert,
Moi avoir aucune idée ;-(
À Québec, tout baigne dans l'huile ;-)
Serge
"Tibert" <syleg35@hotmail.fr> a écrit dans le message de news: 0B928E8F-140D-427A-BD57-9AD64DDCC09F@microsoft.com...
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" <Glouglou@discussions.microsoft.com> a écrit dans le message de news:
DEBC57B4-CFF9-42BD-8F2B-D7C7BAD262AC@microsoft.com...
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
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.
MerciBonjour 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
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.
MerciBonjour 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
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" <garnote3@ENLEVER.videotron.ca> a écrit dans le message de news:
uiSl%23n96HHA.5316@TK2MSFTNGP04.phx.gbl...
Salut Tibert,
Moi avoir aucune idée ;-(
À Québec, tout baigne dans l'huile ;-)
Serge
"Tibert" <syleg35@hotmail.fr> a écrit dans le message de news:
0B928E8F-140D-427A-BD57-9AD64DDCC09F@microsoft.com...
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" <Glouglou@discussions.microsoft.com> a écrit dans le message
de news:
DEBC57B4-CFF9-42BD-8F2B-D7C7BAD262AC@microsoft.com...
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
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.
MerciBonjour 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
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.
MerciBonjour 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
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" <garnote3@ENLEVER.videotron.ca> a écrit dans le message de
news:
uiSl%23n96HHA.5316@TK2MSFTNGP04.phx.gbl...
Salut Tibert,
Moi avoir aucune idée ;-(
À Québec, tout baigne dans l'huile ;-)
Serge
"Tibert" <syleg35@hotmail.fr> a écrit dans le message de news:
0B928E8F-140D-427A-BD57-9AD64DDCC09F@microsoft.com...
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" <Glouglou@discussions.microsoft.com> a écrit dans le
message
de news:
DEBC57B4-CFF9-42BD-8F2B-D7C7BAD262AC@microsoft.com...
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
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.
MerciBonjour 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
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.
MerciBonjour 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
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" <garnote3@ENLEVER.videotron.ca> a écrit dans le message de
news:
uiSl%23n96HHA.5316@TK2MSFTNGP04.phx.gbl...
Salut Tibert,
Moi avoir aucune idée ;-(
À Québec, tout baigne dans l'huile ;-)
Serge
"Tibert" <syleg35@hotmail.fr> a écrit dans le message de news:
0B928E8F-140D-427A-BD57-9AD64DDCC09F@microsoft.com...
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" <Glouglou@discussions.microsoft.com> a écrit dans le
message
de news:
DEBC57B4-CFF9-42BD-8F2B-D7C7BAD262AC@microsoft.com...
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
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.
MerciBonjour 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