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

[pilote301152]

Bonjour,

J'ai créé un bouton pour afficher/masquer une ligne.
A cette occasion la macro doit préalablement actualiser le commentaire d'une cellule (A4 dans mon fichier) avec mise en gras partielle du texte.
Malheureusement la méthode TEXTFRAME.characters(début,nb car).font.bold=true utilisée avec l'objet Shape ne fonctionne pas !
J'obtiens toujours l'erreur "la méthode 'Textframe' de l'objet 'Shape' a échoué.

Je joins un extrait du fichier concerné et vous remercie de votre aide.

Bien cordialement

 

[sylvanu]

Bonjour Pilote,

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

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 :

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

 

[pilote301152]

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

 

[pilote301152]

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 ...

 

[sylvanu]

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.

 

[sylvanu]

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

 

[pilote301152]

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

 

[sylvanu]

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 :

Je mets mon Mac au rebut ?

 

[job75]

Bonjour,

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

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

A+

 

[pilote301152]

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

 

[pilote301152]

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

 

[sylvanu]

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 :

        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.

 

[pilote301152]

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

 

[pilote301152]

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