Modif Macro pour commentaire

[yusukens2]

Bonjour,

j'ai précédement récupéré une macro sur
Lien supprimé
qui permet de définir tous les commentaires de la feuille excel selon une personnalisation du genre (taille de la police, couleur arriere plan etc..)

et donc ce macro marche très bien.
le seul soucie est que lorsqu'il personnalise tout les commentaires, il met tous les textes en GRAS.
et moi pour une question de présentation j'aimerai que la première ligne soir en gras (mon nom) et les autres lignes (le commentaire) en non gras.
et donc ma question et bien sur de savoir si il y'avait un moyen de mettre la 1er ligne en gras et les autres lignes en non gras

voila la macro que j'ai modifié à ma façon :

merci de votre aide.


Sub Formater_Commentaire()
'
' commentaire Macro
' Mettre toutes les commentaires de la feuille sous le même format
'
Dim cmt As Comment

For Each cmt In ActiveSheet.Comments

With cmt.Shape

'---yusukens--- Si on veut dimenssionner le commentaire mettre :
'.Width = 500
'.Height = 500

'---yusukens--- Taille de la police :
.OLEFormat.Object.Font.Size = 11
'---yusukens--- Couleur du fond :
.OLEFormat.Object.Interior.ColorIndex = 35
'---yusukens--- Couleur de la police :
.TextFrame.Characters.Font.ColorIndex = 1
.TextFrame.Characters.Font.Bold = True

End With

Next cmt

End Sub

Message édité par: yusukens2, à: 26/06/2006 09:48

 

[Hervé]

bonjour

une proposition à travers ce code :

Sub Formater_Commentaire()
'
' commentaire Macro
' Mettre toutes les commentaires de la feuille sous le même format
'
Dim cmt As Comment
Dim t As String
Dim place As Byte

For Each cmt In ActiveSheet.Comments

With cmt.Shape

'---yusukens--- Si on veut dimenssionner le commentaire mettre :
'.Width = 500
'.Height = 500
t = cmt.Text
place = InStr(1, t, Chr(10))
If Not place = 0 Then
.TextFrame.Characters(1, place - 1).Font.Bold = True
' .TextFrame.Characters(place + 1, Len(t)).Font.Bold = True
Else
.TextFrame.Characters.Font.Bold = True
End If
'---yusukens--- Taille de la police :
.OLEFormat.Object.Font.Size = 11
'---yusukens--- Couleur du fond :
.OLEFormat.Object.Interior.ColorIndex = 35
'---yusukens--- Couleur de la police :
.TextFrame.Characters.Font.ColorIndex = 1


End With

Next cmt

End Sub


salut

 

[yusukens2]

Merci hervé pour cette réponse si rapide.

c'est exactement ce que je recherché.

MERCI



B) B) B) B) B) B)

Message édité par: yusukens2, à: 26/06/2006 10:34