XL 2016 Mettre en gras une partie du commentaire lié à une cellule

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 28 Août 2021

• #2

Bonjour Pilote,

pilote301152 à dit:

Malheureusement la méthode TEXTFRAME.characters(début,nb car).font.bold=true utilisée avec l'objet Shape ne fonctionne pas !

Cliquez pour agrandir...

Pour moi cette fonction marche correctement.
Un essai en PJ où on précise le caractère de début et le nombre de caractères à mettre en gras dans le commentaire de A4, avec :

VB:

Sub Essai()
    Range("A4").Comment.Text Text:="ABCDEFGHIJKLMNOPQRSTUVWXYZ"
    Range("A4").Comment.Shape.TextFrame.Characters(1, 26).Font.Bold = False
    Range("A4").Comment.Shape.TextFrame.Characters([D4], [D5]).Font.Bold = True
End Sub

 

Pièces jointes

• Gestion Eau.xlsm

  26.6 KB · Affichages: 6

Vote positif 0 Vote négatif

P

pilote301152

XLDnaute Occasionnel

• 28 Août 2021

• #3

Merci Sylvanu mais malheureusement cela plante toujours au même endroit !

 

Vote positif 0 Vote négatif

P

pilote301152

XLDnaute Occasionnel

• 28 Août 2021

• #4

je viens d'avoir l'idée de faire tourner sous Windows et ..... ma macro fonctionne !
le pb se pose donc seulement en utilisant Excel sur Mac ...

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 28 Août 2021

• #5

Expliquez où ça plante !
Pour moi la ligne 28 que vous donnez en erreur marche. Regardez ce visuel.
où je modifie le nombre de caractères à mettre en gras.

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 28 Août 2021

• #6

Ca, c'était pas précisé.

 

Vote positif 0 Vote négatif

P

pilote301152

XLDnaute Occasionnel

• 28 Août 2021

• #7

super l'animation mais comment obtenir la même chose sous Mac ?
Je mets mon Mac au rebut ?

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 28 Août 2021

• #8

XL sous MAC c'est vicieux, car c'est "presque" compatible à celui de Windows.
N'ayant pas de MAC je ne peux malheureusement pas répondre.
Un début de piste :

pilote301152 à dit:

Je mets mon Mac au rebut ?

Cliquez pour agrandir...

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 28 Août 2021

• #9

Bonjour,

pilote301152 à dit:

super l'animation mais comment obtenir la même chose sous Mac ?

Cliquez pour agrandir...

A tout hasard essayez avec TextFrame2, on ne sait jamais !

A+

 

Vote positif 0 Vote négatif

P

pilote301152

XLDnaute Occasionnel

• 28 Août 2021

• #10

si je te suis ..... bientôt un MacBookPro sur le BonCoin !

 

Vote positif 0 Vote négatif

P

pilote301152

XLDnaute Occasionnel

• 28 Août 2021

• #11

bonjour job75
j'ai déjà tenté mais 'characters' n'existe pas avec textframe2 (qui lui existe bien !)

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 28 Août 2021

• #12

Re,
En désespoir de cause, si aucune solution n'apparait, on peut faire la mise en gras uniquement si on est sous Windows avec :

VB:

        If Application.OperatingSystem Like "*Windows*" = True Then
            .TextFrame.Characters(1, 29).Font.Bold = True
        End If

Sous MAC pas de mise en gras, mais pas d'erreur.

 

Vote positif 0 Vote négatif

P

pilote301152

XLDnaute Occasionnel

• 28 Août 2021

• #13

re ,

effectivement cela évite le plantage en cas d'utilisation sous Mac
Mais j'ai retenu une autre solution soit mise en gras de tout le commentaire (y compris sous MAC)
Pour cela je sélectionne manuellement en Gras un ancien commentaire et mon code est simplifié comme suit:
suppression de:
'With Range("A4")
'.ClearComments
'Set commentaire = .AddComment
'End With
ajout de :
Range("A4").Comment.Text Text:= _
"L'investissement de " & Chr(10) & "1 400 € " & Chr(10) & "(pose 2 Compteurs + Regard en Oct 2020)" & Chr(10) & "est amorti à " & Round((cumulGains + 1400) / 1400 * 100, 0) & " %"

j'obtiens toujours le commentaire en Gras à chaque modification du texte

Est-ce bien orthodoxe de ne pas effacer les commentaires avant modification ??????
En tout cas cela fonctionne

Merci

 

Vote positif 0 Vote négatif

P

pilote301152

XLDnaute Occasionnel

• 29 Août 2021

• #14

Comme le dit Sylvanu l'Excel sous MAC n'est que ressemblant à celui sous Windows !
Après recherches sur sites en anglais il apparait entre autres que Textframe ne fonctionne pas sous MAC

 

Vote positif 0 Vote négatif