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

[anthoYS]

Bonjour,


j'avais fait des copié/coller pour tout les versets, mais je ne les retrouve plus. Pourquoi en survol on n'arrive pas à lire le contenu ni à en changer la couleur pour qu'ils deviennent lisibles ? 😕

je ne sais pas ce qui c'est passé là.

si vous pouviez m'aider.


merci mille fois d'avance à ceux qui apporterons leur concours...

à++ 😀

 

[CISCO]

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

 

[libellule85]

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

 

[anthoYS]

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.

 

[anthoYS]

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

 

[gosselien]

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

 

[anthoYS]

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

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

Merci d'avance...😉

à+

 

[gosselien]

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

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

 

[anthoYS]

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

merci gosselien !

 

[anthoYS]

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 ?

 

[anthoYS]

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

.ForeColor.SchemeColor = 22

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

 

[Modeste geedee]

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

Bonsour®

.ForeColor.SchemeColor = 22

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

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

schemeColor 22 correspond à Colorindex 14

 

[DoubleZero]

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 🙂

 

[anthoYS]

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.

à+🙂

 

[DoubleZero]

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

Bonjour à toutes et à tous,

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

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 🙂