XL 2019 Conflit entre taille et couleur de la police dans les commentaires

[Magic_Doctor]

Bonjour,

Je voulais faire des modifications dans les commentaires pour les rendre moins austères.
Je me suis rendu compte, en tout cas avec ma version d'Excel, qu'il était impossible de modifier à la fois la taille de la police et sa couleur dans un même commentaire.
Serait-ce un bug d'Excel ?
J'ai réussi à contourner en partie ce problème, mais ce pourrait être je pense perfectible.
Tout est bien expliqué sur la feuille du classeur.

 

[chris]

Bonjour

La couleur des commentaires se change par le format du commentaire (clic droit)

Voir ici https://excel-downloads.com/threads/couleur-dun-commentaire-excel-en-vba.53671/#post-272880

 

[TooFatBoy]

Bonjour,

Serait-ce un bug d'Excel ?

Savoir si c'est un bug ou une fonctionnalité, c'est toujours la grande question...

Avec mon 2016 ça plante aussi, mais c'est "normal".
Normalement il suffit de définir la couleur avant la taille et ça devrait marcher.

Tes Pseudo-Intelligences Totalement Artificielles ne t'ont pas dit ça ? 😉



ps : tu pourrais tout de même faire des commentaires un peu plus jolis !
Par exemple en les mettant dans un rectangle à coins arrondis et bordure de la couleur du fond mais plus foncée.
🤡

 

[sylvanu]

Re,
Chez moi, non. ( avec XL2007 et VBA 6.3 ) Peut être une question de version.

 

[sylvanu]

C'est pourtant ce que fait ton classeur de #4, si j'ai bien vu.

Exact,
Même dans mon fichier, je viens d'essayer, si je met Color après Size, ça plante.
Donc mettre Color avant Size est la bonne solution.
Sorry pour cette intervention stupide. 😱
Je supprime le post.

 

[Magic_Doctor]

Re,

J'ai beau mettre Color avant Size, toujours ce curieux message d'erreur :
Erreur d'exécution '1004':
La taille de la police doit être comprise entre 1 et 409.

Et ça me surligne dans le bloc With :

    'Texte milieu
    With sh.TextFrame.Characters(posBloc + leftLen, midLen).Font
        .Color = coulMilieu
        .Size = tailleExergueMilieu 'pour un fragment du texte ça plante (ERREUR '1004')
        .Bold = True
    End With

.Color = coulMilieu

Il y a comme une confusion entre Size et Color.
Tout ça est bien curieux.
Enfin, pourquoi diable devrait-on mettre Color avant Size dans un même bloc ?

 

[TooFatBoy]

Il y a comme une confusion entre Size et Color.
Tout ça est bien curieux.
Enfin, pourquoi diable devrait-on mettre Color avant Size dans un même bloc ?

Pour éviter ladite confusion. LOL

---

J'ai beau mettre Color avant Size, toujours ce curieux message d'erreur :
Erreur d'exécution '1004':
La taille de la police doit être comprise entre 1 et 409.

M'est avis que tu ne l'as fait que pour une seule couleur.

---

Perso, j'ai ajouté la valeur 10 par défaut pour le paramètre tailleExergueMilieu en cas d'omission lors de l'appel de la macro.

 

[job75]

Bonsoir à tous,

Chez moi sur Excel 2019 l'enregistreur de macro me donne ceci :

Sub Macro1()
'
' Macro1 Macro
'

'
    Range("F7").Comment.Shape.Select True
    With Selection.Font
        .Name = "Tahoma"
        .Size = 14
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ColorIndex = 3
        .TintAndShade = 0
        .ThemeFont = xlThemeFontNone
    End With
End Sub

Pour réexécuter cette macro j'ai dû mettre une apostrophe devant .TintAndShade et .ThemeFont qui beuguent.

Et sans rien sélectionner ceci va très bien :

Sub Macro2()
    With Range("F7").Comment.Shape.TextFrame.Characters.Font
        .Name = "Tahoma"
        .Size = 14
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ColorIndex = 3
        '.TintAndShade = 0
        '.ThemeFont = xlThemeFontNone
    End With
End Sub

A+

 

[TooFatBoy]

Pour réexécuter cette macro j'ai dû mettre une apostrophe devant .TintAndShade et .ThemeFont qui beuguent.

Si je ne me trompe, ça concerne la couleur. Du coup, as-tu essayé de les mettre en premier ?

 

[job75]

.TintAndShade et .ThemeFont beuguent quelle que soit leur position, les autres instructions peuvent être dans n'importe quel ordre.

 

[TooFatBoy]

Sorry pour cette intervention stupide. 😱
Je supprime le post.

L'intervention n'est pas du tout stupide ! Tu n'aurais pas dû la supprimer.

 

[sylvanu]

Re,

Tu n'aurais pas dû la supprimer.

Alors je la remet, même si elle semble ne pas correspondre au problème.
Elle transforme le commentaire en note et est plus simple à exploiter. Mais, à priori, utile uniquement sur les versions récentes d'XL.

 

[TooFatBoy]

Elle transforme le commentaire en note et est plus simple à exploiter. Mais, à priori, utile uniquement sur les versions récentes d'XL.

Dans tous les cas c'est toujours bon à savoir. 👍

 

[patricktoulon]

Bonsoir
bug connu ( si on peut s'exprimer ainsi car ça n'en est pas vraiment un )

c'est par ce que les commentaires utilise GDI pas GDI+ quand tu changes de size et qui puis est une partie de texte
Tu contrains Excel à reconfigurer le(s) descripteur(Handle) du contexte ".Text".
Donc ton .color plante par ce que ton commentaire n'a plus 1 texte mais plusieurs textes et donc plusieurs sub handle
c'est ainsi depuis 2010

en gros dans les shapes de commentaire, GDI ne laisse pas Excel gérer les multitexte de taille différente.