Discussion :

[bill7]

bonjour,
je cherche comment inserer un commentaire, mais avec la 1ere ligne en gras (contient le username de celui qui met le commentaire) et les autres en normal;

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
ActiveCell.AddComment 
ActiveCell.Comment.Visible = False 
With ActiveCell.Comment        
       ...  heuh ...      
 
ActiveCell.Comment.Text Text:=Environ("username") + vbcrlf + maStringCommentaire

[bill7]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
            If Not ExisteCommentaire Then
               ActiveCell.AddComment
            End If
            ActiveCell.Comment.Visible = True
            ActiveCell.Comment.Text Text:="ceci est mon commentaire"            
            ActiveCell.Comment.Shape.Select
            Selection.Characters(1, 4).Font.FontStyle = "Bold"
            ActiveCell.Comment.Visible = False

affichera :
ceci est mon commentaire