XL 2016 Mise En Forme d'un commentaire de cellule

TooFatBoy

TooFatBoy

XLDnaute Barbatruc
Bonjour,

J'ai créé une petite macro qui modifie la MEF du commentaire d'une cellule quand je double-clique sur ladite cellule.
Mais il y a un petit souci...

Quand je double-clique sur une cellule dont le commentaire n'a pas encore été mis en forme par ma macro, la macro plante lors de la tentative de changement de couleur du commentaire. J'arrête alors la macro.
A partir de là, à chaque fois que je double-clique de nouveau sur la même cellule, la macro ne plante plus sur cette cellule.

Autre bizarrerie : lorsque la macro plante c'est sur une tentative de changement de couleur du texte du commentaire, mais le message d'erreur concerne la taille de la police de caractères...
MsgErreur.png

​


Question subsidiaire : est-il possible de changer la couleur de fond du commentaire ?
 

Pièces jointes

  • MEF_commentaire.xlsm
    22.6 KB · Affichages: 22
Dernière édition:
Trier par date Trier par votes
TooFatBoy

TooFatBoy

XLDnaute Barbatruc
TooFatBoy à dit:
pourquoi ma macro plante-t-elle au premier passage (alors qu'elle ne plante pas aux passages suivants) ?
Cliquez pour agrandir...
patricktoulon à dit:
apriori il n'y a aucune raison
Cliquez pour agrandir...
Ben voui, c'est bien qu'est-ce que j'me dis, et c'est pour ça que je viens vous poser la question. ;)


patricktoulon à dit:
pour ce qui sont déjà en place tu a du faire une erreur au depart
Cliquez pour agrandir...
Une erreur de quoi ?
Ceux déjà présents dans mon fichier sont faits par Excel, sans modif de ma part.


patricktoulon à dit:
c'est quoi l'intéret de refaire le theme a chaque fois ?
Cliquez pour agrandir...
Je ne sais pas ce que tu appelles "le theme", mais l'intérêt de la macro c'est de pouvoir changer la MEF des commentaires en fonction de la ligne de la cellule qui contient ledit commentaire, ou peut-être changer en fonction de l'auteur.
 
Dernière édition:
Vote positif 0 Vote négatif
patricktoulon

patricktoulon

XLDnaute Barbatruc
re
Bonjour @TooFatBoy
allez tiens on va faire mumuse avec ces satanés commentaires
tu double click ca ,te formate comme tu veux (j'ai même changé la police)

a chaque double click le commentaire de la cellule cliquée précédemment revient tout en gris et en 8

là oui ça a un sens
on pourrait apparenter cela a un visuel amélioré(si vous voyez pas bien double cliquer)
en gros ,seule la dernière cellule cliqué reste formatée
démonstration
demo.gif

VB: 
Dim oldCell As Range
Sub remasterOldCell()
    If Not oldCell Is Nothing Then
        With oldCell.Comment.Shape
            .OLEFormat.Object.Font.Size = 8
            .OLEFormat.Object.Font.Color = RGB(127, 127, 127)
            .OLEFormat.Object.Font.Bold = False
            .OLEFormat.Object.Font.Italic = True
            .OLEFormat.Object.Font.Name = "calibri"
            .TextFrame.AutoSize = False
        End With
    End If
End Sub
Sub MEF_Commentaire_2(MaCellule As Range)
    If MaCellule.Comment Is Nothing Then Exit Sub
    remasterOldCell
    MaCellule.Offset(1).Select
    montexte = MaCellule.Comment.Text

    AuteurNbCar = InStr(1, montexte, ":" & Chr(10)) + 1
    'on passe par l'object .oleformat.object pour remttre tout en normal c'est plus simple
    With MaCellule.Comment.Shape
        .OLEFormat.Object.Font.Size = 8
        .OLEFormat.Object.Font.Color = RGB(127, 127, 127)
        .OLEFormat.Object.Font.Bold = False
        .OLEFormat.Object.Font.Italic = False
        .OLEFormat.Object.Font.Name = "calibri"

        With .TextFrame.Characters(Start:=AuteurNbCar, Length:=200).Font
            .Color = RGB(0, 0, 255)    '!!!!!!!!! TOUJOUR MODIFIER LA COULEUR AVANT  LE SIZE!!!!!!!!!!
            .Size = 10
            .Bold = True
            .Italic = False
            .Name = "broadway"
        End With
        .AutoShapeType = msoShapeRoundedRectangle
        .TextFrame.AutoSize = True
        .Fill.ForeColor.RGB = RGB(255, 255, 150)
        Set oldCell = MaCellule
    End With

enjoy! ;)
 
Dernière édition:
Vote positif 0 Vote négatif
TooFatBoy

TooFatBoy

XLDnaute Barbatruc
VB: 
Dim oldCell As Range

Sub remasterOldCell()
    If Not oldCell Is Nothing Then
        With oldCell.Comment.Shape
            .OLEFormat.Object.Font.Size = 8
            .OLEFormat.Object.Font.Color = RGB(127, 127, 127)
            .OLEFormat.Object.Font.Bold = False
            .OLEFormat.Object.Font.Italic = True
            .OLEFormat.Object.Font.Name = "calibri"
            .TextFrame.AutoSize = False
        End With
    End If
End Sub

Sub MEF_Commentaire_2(MaCellule As Range)
    If MaCellule.Comment Is Nothing Then Exit Sub
    remasterOldCell
    MaCellule.Offset(1).Select
    montexte = MaCellule.Comment.Text

    AuteurNbCar = InStr(1, montexte, ":" & Chr(10)) + 1
    'on passe par l'object .oleformat.object pour remttre tout en normal c'est plus simple
    With MaCellule.Comment.Shape
        .OLEFormat.Object.Font.Size = 8
        .OLEFormat.Object.Font.Color = RGB(127, 127, 127)
        .OLEFormat.Object.Font.Bold = False
        .OLEFormat.Object.Font.Italic = False
        .OLEFormat.Object.Font.Name = "calibri"

        With .TextFrame.Characters(Start:=AuteurNbCar, Length:=200).Font
            .Color = RGB(0, 0, 255)    '!!!!!!!!! TOUJOUR MODIFIER LA COULEUR AVANT  LE SIZE!!!!!!!!!!
            .Size = 10
            .Bold = True
            .Italic = False
            .Name = "broadway"
        End With
        .AutoShapeType = msoShapeRoundedRectangle
        .TextFrame.AutoSize = True
        .Fill.ForeColor.RGB = RGB(255, 255, 150)
        Set oldCell = MaCellule
    End With
End Sub
Merci pour ta réponse, mais c'est exactement la même chose que ce que j'ai fait : tu changes aussi le format à chaque fois alors que tu demandais quel intérêt ça avait. 🙃
Et même pire, ça ne garde pas la mise en forme, ce qui va à l'encontre de ce que je veux obtenir.

En revanche il y a deux commentaires intéressants :
1- celui qui dit qu'il faut toujours modifier la couleur de la police avant sa taille.
C'est ce que j'avais constaté, mais saurais-tu me dire pourquoi ??? Est-ce un bug d'Excel ?
2- celui qui dit que passer par OLEFormat.Object est plus simple.
En quoi est-ce plus simple ? Quel est l'avantage ?
 
Vote positif 0 Vote négatif
patricktoulon

patricktoulon

XLDnaute Barbatruc
Merci pour ta réponse, mais c'est exactement la même chose que ce que j'ai fait : tu changes aussi le format à chaque fois alors que tu demandais quel intérêt ça avait. 🙃
Et même pire, ça ne garde pas la mise en forme, ce qui va à l'encontre de ce que je veux obtenir.
Cliquez pour agrandir...
relis bien ma réponse tu comprendra

celui qui dit que passer par OLEFormat.Object est plus simple.
En quoi est-ce plus simple ? Quel est l'avantage ?
Cliquez pour agrandir...
ben plus facile a coder et les propreties sont plus nombreuses

1- celui qui dit qu'il faut toujours modifier la couleur de la police avant sa taille.
C'est ce que j'avais constaté, mais saurais-tu me dire pourquoi ??? Est-ce un bug d'Excel ?
Cliquez pour agrandir...
tout simplement parce que la feuille est basée sur un format xml
et donc certaine fonctions ne sont plus accessibles
en xml un élément ne peut pas etre enfant et parent en même temps;)
c'est une lacune (pas un bug )dans les fonctions vba excel
 
Vote positif 0 Vote négatif
TooFatBoy

TooFatBoy

XLDnaute Barbatruc
patricktoulon à dit:
relis bien ma réponse tu comprendra
Cliquez pour agrandir...
J'avais déjà lu plusieurs fois, mais comme tu me l'as conseillé, j'ai relu.
Toutefois, je ne comprends toujours pas. 😭

Au départ tu demandes l'intérêt de changer le format à chaque fois (ce qui semble dire qu'on peut changer le format une seule fois et que tous les commentaires auront ensuite ce format), mais tu fais la même chose : tu changes aussi le format à chaque fois, donc je ne pige pas bien la remarque initiale.
 
Vote positif 0 Vote négatif
patricktoulon

patricktoulon

XLDnaute Barbatruc
re
bon
ma demande plus clairement était (dans les conditions de ton code bien sur )
pourquoi le faire en sub déclenché par un events si c'est pas pour le remettre apres
car une fois que c'est fait c'est fait pas la peine de le refaire a chaque click

maintenant si comme dans mon modèle tu veux simplement que cela soit fait au double click mais qu'au survol cela soit normal là j'y vois un sens
un peu comme une option(mal voyant)" si vous voyez pas bien veuillez double cliker"

bref maintenant tu sais comment ça fonctionne
 
Vote positif 0 Vote négatif
TooFatBoy

TooFatBoy

XLDnaute Barbatruc
patricktoulon à dit:
ma demande plus clairement était (dans les conditions de ton code bien sur )
pourquoi le faire en sub déclenché par un events si c'est pas pour le remettre apres
car une fois que c'est fait c'est fait pas la peine de le refaire a chaque click
Cliquez pour agrandir...
En fait le double-clic n'est là que pour mes tests.
Ça me permet de facilement choisir quel commentaire je veux modifier.


patricktoulon à dit:
bref maintenant tu sais comment ça fonctionne
Cliquez pour agrandir...
En fait rien n'a changé par rapport à ma question initiale qui n'a toujours pas trouvé de réponse.

La seule différence, c'est que j'ai réussi à trouver, par tâtonnements, une solution pour empêcher le plantage de la macro : ajout d'une instruction resize.
Oups... j'allais oublier la réponse de Phil69970 qui m'a permis de découvrir comment changer la couleur de la surface d'un commentaire.


En tout cas, je ne sais toujours pas pourquoi la macro plante lors de son premier passage (si je n'ajoute pas ce fameux resize) pour modifier le commentaire.
Peut-être que ça vient de .Characters(Start:=x, Length:=y) ou peut-être que ça vient des commentaires qui sont mal "codés" par mon Excel...
 
Vote positif 0 Vote négatif
patricktoulon

patricktoulon

XLDnaute Barbatruc
re
je te l'ai donné la réponse
c'est le fait de sizer avant autre propriété qui ne correspond pas au shema (MSO) "VML" de la hiérarchie xml
en gros quand tu size avant l'élément devient l’élément maitre et on ne peut pas colorer un element size ni en xml ni en html d'ailleurs
ouvre ton fichier xl avec winrar et fouille tu va comprendre
voilà ce qu'est la shape du commentaire a l’intérieur de ton fichier xl
ben tu dois le faire dans le meme ordre ;)
XML: 
  <?xml version="1.0" encoding="UTF-8" standalone="yes" ?>


[URL='https://excel-downloads.com/#']-[/URL] <comments xmlns="[B]http://schemas.openxmlformats.org/spreadsheetml/2006/main[/B]">


[URL='https://excel-downloads.com/#']-[/URL] <authors>


  <author>patrick</author>


  </authors>


[URL='https://excel-downloads.com/#']-[/URL] <commentList>


[URL='https://excel-downloads.com/#']-[/URL] <comment ref="[B]A1[/B]" authorId="[B]0[/B]" shapeId="[B]0[/B]">


[URL='https://excel-downloads.com/#']-[/URL] <text>


[URL='https://excel-downloads.com/#']-[/URL] <r>


[URL='https://excel-downloads.com/#']-[/URL] <rPr>


  <b />


  <sz val="[B]9[/B]" />


  <color indexed="[B]23[/B]" />


  <rFont val="[B]Tahoma[/B]" />


  <family val="[B]2[/B]" />


  </rPr>


  <t>patrick:</t>


  </r>


[URL='https://excel-downloads.com/#']-[/URL] <r>


[URL='https://excel-downloads.com/#']-[/URL] <rPr>


  <b />


  <sz val="[B]9[/B]" />


  <color indexed="[B]81[/B]" />


  <rFont val="[B]Tahoma[/B]" />


  <charset val="[B]1[/B]" />


  </rPr>


  <t xml:space="[B]preserve[/B]"></t>


  </r>


[URL='https://excel-downloads.com/#']-[/URL] <r>


[URL='https://excel-downloads.com/#']-[/URL] <rPr>


  <b />


  <sz val="[B]10[/B]" />


  <color indexed="[B]12[/B]" />


  <rFont val="[B]Tahoma[/B]" />


  <family val="[B]2[/B]" />


  </rPr>


  <t xml:space="[B]preserve[/B]">il fait beau aujourd'hui</t>


  </r>


  </text>


  </comment>


  </commentList>


  </comments>
 
Vote positif 0 Vote négatif
TooFatBoy

TooFatBoy

XLDnaute Barbatruc
patricktoulon à dit:
je te l'ai donné la réponse
c'est le fait de sizer avant autre propriété qui ne correspond pas au shema (MSO) "VML" de la hiérarchie xml
Cliquez pour agrandir...
Non, ce que tu m'as dit, c'est qu'il n'y avait à priori aucune raison pour que ça plante et que j'avais dû merder lors de la mise en forme précédente de mes commentaires avec un mauvais .size, or c'est Excel qui a mis les commentaires en forme, ce n'est pas moi.

Mais admettons que ce soit le fait de faire un .size en premier qui provoque le plantage de la macro (bien que le .size ne soit pas en premier, comme on peut le voir dans mon code initial).
Dans ce cas, pourquoi la solution que j'ai trouvée pour que ça ne plante plus est justement de faire l'inverse, c'est-à-dire faire un .size en tout premier ?


patricktoulon à dit:
en gros quand tu size avant l'élément devient l’élément maitre et on ne peut pas colorer un element size ni en xml ni en html d'ailleurs
ouvre ton fichier xl avec winrar et fouille tu va comprendre
voilà ce qu'est la shape du commentaire a l’intérieur de ton fichier xl
ben tu dois le faire dans le meme ordre ;)
Cliquez pour agrandir...
Voilà une bonne piste. Je vais suivre ton conseil et regarder ça de près.
Merci 👍
 
Dernière édition:
Vote positif 0 Vote négatif
TooFatBoy

TooFatBoy

XLDnaute Barbatruc
J'ai épuré et remis en forme ton code XML pour qu'il soit lisible :
XML: 
<?xml version="1.0" encoding="UTF-8" standalone="yes" ?>

<comments xmlns="[B]http://schemas.openxmlformats.org/spreadsheetml/2006/main[/B]">

  <authors>
    <author>patrick</author>
  </authors>

  <commentList>

    <comment ref="[B]A1[/B]" authorId="[B]0[/B]" shapeId="[B]0[/B]">

      <text>

        <r>
          <rPr>
            <b />
            <sz val="[B]9[/B]" />
            <color indexed="[B]23[/B]" />
            <rFont val="[B]Tahoma[/B]" />
            <family val="[B]2[/B]" />
          </rPr>
          <t>patrick:</t>
        </r>

        <r>
          <rPr>
            <b />
            <sz val="[B]9[/B]" />
            <color indexed="[B]81[/B]" />
            <rFont val="[B]Tahoma[/B]" />
            <charset val="[B]1[/B]" />
          </rPr>
          <t xml:space="[B]preserve[/B]"></t>
        </r>

        <r>
          <rPr>
            <b />
            <sz val="[B]10[/B]" />
            <color indexed="[B]12[/B]" />
            <rFont val="[B]Tahoma[/B]" />
            <family val="[B]2[/B]" />
          </rPr>
          <t xml:space="[B]preserve[/B]">il fait beau aujourd'hui</t>
        </r>

      </text>

    </comment>

  </commentList>

</comments>


Hélas ça ne résout rien pour moi, et je ne vois aucune logique par rapport à ton explication :

1- Je ne vois pas le rapport entre la façon de coder les données en XML dans le fichier, et la façon qu'Excel peut avoir d'y accéder en mémoire.

2- Il ne semble pas y avoir de parent ou d'enfant. Tout le monde semble au contraire être au même niveau.

3- Dans le code de la macro je donne le "chemin" complet d'accès à la donnée que je veux modifier.

Tout ça fait que je ne vois pas de raison logique de procéder dans un ordre plutôt que dans un autre, même si j'ai effectivement pu constater que c'est pourtant le cas. ;)
 
Vote positif 0 Vote négatif
patricktoulon

patricktoulon

XLDnaute Barbatruc
re
tu vois toujours pas ?
<sz val="9" /> //font.size
<color indexed="81" />//couleur
<rFont val="Tahoma" />//font.name
<charset val="1" />
Cliquez pour agrandir...

VB: 
With MaCellule.Comment.Shape
        .OLEFormat.Object.Font.Size = 8                                   ''font.size
        .OLEFormat.Object.Font.Color = RGB(127, 127, 127)    'font.color
        .OLEFormat.Object.Font.Bold = False                            ' ca c'est du format
        .OLEFormat.Object.Font.Italic =  true                            'ca c'est format
        .OLEFormat.Object.Font.Name = "calibri"                   'font.name
 
Vote positif 0 Vote négatif

Discussions similaires

anthoYS
  • Résolu(e)
XL 2019 compte à rebours entrées "piscine"... ?
2 3 4
Réponses
45
Affichages
809
anthoYS
anthoYS
A
  • Résolu(e)
XL 2013 valeur cellule en fonction de valeur combobox et optionbtutton
Réponses
4
Affichages
121
Appo1985
A
J
  • Question
XL 2021 mise en forme conditionnelle et cellules vides.
Réponses
2
Affichages
197
JOGA
J
F
  • Résolu(e)
Microsoft 365 Copier juste couleur cellule.
Réponses
7
Affichages
305
Francky79
F
K
  • Question
XL 2010 mise en forme conditionnelle
Réponses
5
Affichages
345
sousou
sousou
L
  • Résolu(e)
Microsoft 365 VBA - Attribuer mise en forme en fonction de valeur cellule d'une liste
Réponses
14
Affichages
301
Laliepomm
L
K
  • Résolu(e)
valeur de cellule en commentaire
Réponses
8
Affichages
362
Staple1600
Staple1600
M
  • Question
Microsoft 365 Copier / coller avec mise en forme VBA
Réponses
0
Affichages
137
marie3107
M
H
  • Question
Microsoft 365 Mise en forme conditionnelle sur autre tableau
Réponses
2
Affichages
204
hbb
H
R
  • Résolu(e)
Microsoft 365 calculer une moyenne conditionnelle en retirant certaines valeurs par le biais de la couleur de fond d'une cellule
Réponses
7
Affichages
346
ricoben
R

Membres actuellement en ligne

12 membres et 93 invités.

Partager cette page

Tutos vidéos

Power Query : Ajouter des requêtes (Excel et Power BI)
Créez votre première fonction LAMBDA dans Excel en 3 étapes!
LAMBDA, l’arme secrète de Microsoft pour Excel !
Office Insider - Découvrez les nouveautés Excel avant tout le monde

Statistiques des forums

Discussions
312 165
Messages
2 085 883
Membres
103 013
dernier inscrit
cicro