Y
yusukens2
Guest
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
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