format par défaut des commentaires

  • Initiateur de la discussion Initiateur de la discussion daniel
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

D

daniel

Guest
Bonjour le forum,

J'ai une question toute bête...mais je n'ai pas trouvé la réponse dans l'aide d'Excel :whistle: . Comment faire pour attribuer un format par défaut (police, taille, couleur etc) aux commentaires ? Je dois en insérer beaucoup et j'aimerais éviter de les mettre en forme à chaque fois.

Merci pour vos réponses,

bonne journée à toutes et tous,

Daniel
 
Salut daniel et le forum

Installe tout tes commentaires et ensuite format les avec la macro suivante

Code:
Sub Formater_Commentaire()

Dim cmt As Comment

For Each cmt In ActiveSheet.Comments

With cmt.Shape

.Width = 100
.Height = 120
.OLEFormat.Object.Font.Size = 14
.OLEFormat.Object.Interior.ColorIndex = 3
.TextFrame.Characters.Font.ColorIndex = 4
.TextFrame.Characters.Font.Bold = True

End With

Next cmt

End Sub

Mytå

P.S. Adapter d'un code de Michel_XLD je crois

Message édité par: Mytå, à: 02/08/2005 15:29

Message édité par: Mytå, à: 02/08/2005 15:30
 
Re : format par défaut des commentaires

Bonjour,

J'espérai également avoir trouvé la solution à mon problème mais non!!

En effet la modification de la taille de caractère ne fonctionne pas dans un fichier partagé.

Le dimensionnement, la couleur de fond du commentaire et la police en gras semble fonctionné mais pas la taille de caractère...

Connaissez vous une solution?

Merci d'avance pour votre aide.
 
Re : format par défaut des commentaires

Bonjour daniel, Mytå, Celeda, yusukens2, Vince17,

Pour Vince17 :
Aucune garantie, mais tu peux essayer de tester en remplaçant :
Code:
[SIZE=2].OLEFormat.[COLOR=navy]Object[/COLOR].Font.Size = 14[/SIZE]
par
Code:
[SIZE=2].TextFrame.Characters.Font.Size = 14[/SIZE]
Cordialement,
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

P
Réponses
17
Affichages
2 K
profiler31
P
Réponses
7
Affichages
1 K
J
Réponses
13
Affichages
3 K
E
Réponses
1
Affichages
1 K
Réponses
12
Affichages
1 K
Retour