couleur d'un commentaire excel en vba

[SKYMAN]

je voudrais savoir comment en VBa on peut creer un commentaire qui comporte plusieurs couleur, cela doit etre possible car on y arrive sans passer par les macros

 

[Celeda]

Ah bon ???? :woohoo: :woohoo: :woohoo:


SANS LES MACROS !!!


alors tu vas m'expliquer comment , svp

merci


Celeda ...la curieuse!!!

 

[Hervé]

Bonsoir celeda, skyman, josé

c'est vrai skyman qu'un petit bonjour ou bonsoir fait toujours plaisir.

sinon, les commentaires n'etant rien d'autres que des shapes tu peux en effet mettre plusieurs couleurs. (en manuel aussi marie )

ce code place en A1 un commentaire en bicolore.

Sub Bouton2_QuandClic()
With Range('a1')
        If Not .Comment Is Nothing Then .Comment.Delete
        .AddComment Text:='Salut'
        With .Comment.Shape.OLEFormat.Object
                .ShapeRange.Fill.ForeColor.SchemeColor = 52
                .ShapeRange.Fill.BackColor.SchemeColor = 42
                .ShapeRange.Fill.TwoColorGradient msoGradientHorizontal, 1
        End With
End With
End Sub

salut

 

[Hervé]

re

de rien josé

le meme code mais on attribue ici l'un des thèmes proposés par excel, ici le thème OR :

Sub Bouton2_QuandClic()
With Range('a1')
        If Not .Comment Is Nothing Then .Comment.Delete
        .AddComment Text:='Salut'
        With .Comment.Shape.OLEFormat.Object
                .ShapeRange.Fill.PresetGradient msoGradientHorizontal, 4, _
                msoGradientGoldII
        End With
End With
End Sub

peut etre plus simple car on à pas les couleurs à gérer.

salut

 

[Celeda]

Bonjour,

Tout d'abord, ma révérence du matin messieurs Hervé et José et par la même occasion Skyman.

En second, bravo pour ce code Hervé, j'adore l'Or!!! (mais je dois pas être la seule femme!!! à l'aimer l'Or!!)

Et tierco, ce que je n'ai pas compris dans le libellé de la question et c'était un clin d'oeil que je faisais mais j'ai raté mon effet!! et vlan dans les joues roses de Celeda, cela m'apprendra à faire des mots de jeux

car voilà le texte :

savoir comment en VBa
sans passer par les macros

il y avait une contradiction que je ne comprenais pas.

non ?

merci messires !!! si si si

Celeda

 

[SKYMAN]

Bonjour,

Je tiens a vous remercier.
Ma demande a du etre mal formulé, je souhaiterais avoir le texte en differente couleur dans mon commentaire

par exemple

2004: -125.00
2005: +500.25

 

[Hervé]

Bonjour tout le monde

peut etre comme ceci :

Sub Bouton1_QuandClic()
Dim texte As String
Dim i As Byte
Dim j As Byte

With Range('a1')
        If .Comment Is Nothing Then Exit Sub
        texte = .Comment.Text
        For i = 1 To Len(texte)
                If Mid(texte, i, 1) = '-' Then
                        For j = i + 1 To Len(texte)
                                If Asc(Mid(texte, j, 1)) = 10 Or j = Len(texte) Then
                                        .Comment.Shape.TextFrame.Characters(i, j - i + 1).Font.Color = vbRed
                                        Exit For
                                End If
                        Next j
                End If
        Next i
End With

End Sub

illustrer en pièce jointe.

salut [file name=skyman.zip size=8384]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/skyman.zip[/file]

 

[SKYMAN]

re, à tous

Je viens à l'instant de tester ta formule magique. Cela fonctionne au poil.

Merci mille fois Hervé.

la prochaine fois que j'ai un incurable soucis sur Excel, plutôt que passer des heures m'arracher le peu de cheveux que j'ai sur le sommet du crane, j'appellerais Hervé à la rescousse