Ou obtenir la palette des couleur pour la MEF des commentaires ? [résolu]

CISCO

XLDnaute Barbatruc

• 23 Mars 2015

• #2

Re : Pourquoi je n'arrive pas à lire le contenu des commentaires ?

Bonjour

Il faut sélectionner le texte du commentaire, faire un clic-droit, puis choisir format du commentaire, et modifier la couleur de la police.

@ plus

 

Vote positif 0 Vote négatif

libellule85

XLDnaute Accro

• 23 Mars 2015

• #3

Re : Pourquoi je n'arrive pas à lire le contenu des commentaires ?

Bonjour AnthoYS, le forum,

Quand j'affiche tous tes commentaires (Onglet Révision, "Afficher tous les commentaires") et que je fais clic droit à l'intérieur d'un commentaire (après avoir sélectionné tout l'intérieur) puis "Format de commentaire" celui-ci m'indique que l'écriture est blanche. Je modifie celle-ci en noire et tes versets apparaissent !



NB: Ooops, bonjour Cisco

 

Vote positif 0 Vote négatif

anthoYS

XLDnaute Barbatruc

• 23 Mars 2015

• #4

Re : Pourquoi je n'arrive pas à lire le contenu des commentaires ?

Ok merci CISCO l'amic ; mais pourquoi la couleur à changé sans que ce soit moi qui la change (et personne n'utilise mon PC) ?
c'est un mystère.

 

Vote positif 0 Vote négatif

anthoYS

XLDnaute Barbatruc

• 23 Mars 2015

• #5

Re : Pourquoi je n'arrive pas à lire le contenu des commentaires ?

Par contre y'aurai pas une méthode pour que je change tout d'un coup par un code ou autre ?
Car là, c'est fastidieux... Y'en a beaucoup trop, et ça s'annonce long...


Merci

 

Vote positif 0 Vote négatif

gosselien

XLDnaute Barbatruc

• 23 Mars 2015

• #6

Re : Pourquoi je n'arrive pas à lire le contenu des commentaires ?

Bonjour le forum et les autres
essaye deci:

Sub Ajust_Commentaires()
Dim Wks As Worksheet, cmt As Comment
For Each Wks In Worksheets
For Each cmt In Wks.Comments
With cmt.Shape.OLEFormat.Object.Font
.name = "Tahoma"
.Size = 8
cmt.Shape.TextFrame.AutoSize = True
End With
cmt.Shape.OLEFormat.Object.ShapeRange.Fill _
.ForeColor.SchemeColor = 22
Next cmt
Next Wks
End Sub

 

Vote positif 0 Vote négatif

anthoYS

XLDnaute Barbatruc

• 23 Mars 2015

• #7

Re : Pourquoi je n'arrive pas à lire le contenu des commentaires ?

gosselien à dit:

Bonjour le forum et les autres
essaye deci:

Sub Ajust_Commentaires()
Dim Wks As Worksheet, cmt As Comment
For Each Wks In Worksheets
For Each cmt In Wks.Comments
With cmt.Shape.OLEFormat.Object.Font
.name = "Tahoma"
.Size = 8
cmt.Shape.TextFrame.AutoSize = True
End With
cmt.Shape.OLEFormat.Object.ShapeRange.Fill _
.ForeColor.SchemeColor = 22
Next cmt
Next Wks
End Sub

Cliquez pour agrandir...

C'est à placer ou exactement ? Je l'ai mis dans la feuille et ça ne fait rien.

Merci d'avance...

à+

 

Vote positif 0 Vote négatif

gosselien

XLDnaute Barbatruc

• 23 Mars 2015

• #8

Re : Pourquoi je n'arrive pas à lire le contenu des commentaires ?

editeur VBA/insertion/module et tu colles là bas...

 

Vote positif 0 Vote négatif

anthoYS

XLDnaute Barbatruc

• 23 Mars 2015

• #9

Re : Pourquoi je n'arrive pas à lire le contenu des commentaires ?

merci gosselien !

 

Vote positif 0 Vote négatif

anthoYS

XLDnaute Barbatruc

• 23 Mars 2015

• #10

Re : Pourquoi je n'arrive pas à lire le contenu des commentaires ?

par contre c'est écrit en blanc sur fond gris.

Y'a pas moyen de changer ça ?

 

Vote positif 0 Vote négatif

anthoYS

XLDnaute Barbatruc

• 23 Mars 2015

• #11

Re : Pourquoi je n'arrive pas à lire le contenu des commentaires ?

Code:

.ForeColor.SchemeColor = 22

ou obtenir le numéro correspondant à la couleur ? La palette ?

 

Pièces jointes

• versets bibliques.xlsm

  337.9 KB · Affichages: 72
• versets bibliques.xlsm

  337.9 KB · Affichages: 63
• versets bibliques.xlsm

  337.9 KB · Affichages: 86

Dernière édition: 23 Mars 2015

Vote positif 0 Vote négatif

Modeste geedee

XLDnaute Barbatruc

• 23 Mars 2015

• #12

Re : Pourquoi je n'arrive pas à lire le contenu des commentaires ?

Bonsour®

anthoYS à dit:

Code:

.ForeColor.SchemeColor = 22

ou obtenir le numéro correspondant à la couleur ? La palette ?

Cliquez pour agrandir...

le numéro de schemeColor correspond au numéro de la palette standard(1/56) augmenté de 8...

schemeColor 22 correspond à Colorindex 14

 

Vote positif 0 Vote négatif

DoubleZero

XLDnaute Barbatruc

• 23 Mars 2015

• #13

Re : Ou obtenir la palette des couleur pour la MEF des commentaires ?

Bonjour à toutes et à tous,

Une autre suggestion en pièce jointe.

A bientôt

 

Pièces jointes

• 00 - anthoYS - Commentaires police noire.xlsm

  331.4 KB · Affichages: 75

Vote positif 0 Vote négatif

anthoYS

XLDnaute Barbatruc

• 24 Mars 2015

• #14

Re : Ou obtenir la palette des couleur pour la MEF des commentaires ?

Bonjour ;
Merci 00.

Par contre je ne comprends toujours pas comment la police est passé du noir au blanc dans ce fichier...
Mystère.

à+

 

Vote positif 0 Vote négatif

DoubleZero

XLDnaute Barbatruc

• 24 Mars 2015

• #15

Re : Pourquoi je n'arrive pas à lire le contenu des commentaires ?

Bonjour à toutes et à tous,

anthoYS à dit:

...ou obtenir le numéro correspondant à la couleur ? La palette ?

Cliquez pour agrandir...

En pièce jointe, une autre suggestion permettant de tester, d'abord, et valider, ensuite…

- pour le fond : la couleur ;

- pour la police : la couleur, la taille et le nom.

A bientôt

 

Pièces jointes

• 00 - anthoYS - Commentaires... formats selon choix.xlsm

  222.4 KB · Affichages: 89

Vote positif 0 Vote négatif