Autres Modifier couleurs commentaires mais je ne me rappelle plus

[un internaute]

Bonjour le forum
Je suis sous Excel 2003
J'ai des commentaires dans macro ci-dessous
Qui donne ceci

Que je voudrais mettre ainsi

Sub InsertCommentaires()
 Dim cmt As Comment, Ligne As Long, TotMois As String, DebMois As String, FinMois As String
    Set cmt = Selection.AddComment
     'ActiveCell.Comment.Visible = True
    With cmt.Shape
      .Width = ActiveCell.Width
      .Height = ActiveCell.Height
      .Left = ActiveCell.Left
      .Top = ActiveCell.Top
      '.Fill.ForeColor.SchemeColor = 10
      With .TextFrame
       .Characters.Font.Name = "Arial"                    'Police
       .Characters.Font.FontStyle = "Gras italique"       'Style
       .Characters.Font.Size = 10.5                       'Taille police
       .Characters.Font.ColorIndex = 5                    'Couleur commentaires bleu
       .HorizontalAlignment = xlCenter                    'Centrer texte horizontalement
       DebMois = Range("F2").Text
       FinMois = Range("F3").Text
       TotMois = IIf(Month(Range("F2")) = Month(ActiveCell.Offset(, 6)), Range("F4").Text, Range("F6").Text)
       .Characters.Text = "Frais établis ce jour: Période du: " & DebMois & " au " & FinMois & " Montant: " & TotMois
       .Characters(36, Len(DebMois)).Font.ColorIndex = 2                                                                'blanc à partir du 35éme caractère,2 caractères
       .Characters(36 + Len(DebMois) + 4, Len(FinMois)).Font.ColorIndex = 2                                             'blanc à partir du 50éme caractère,2 caractères
       .Characters(36 + Len(DebMois) + Len(FinMois) + 13, Len(TotMois)).Font.ColorIndex = 2                             'blanc à partir du 71éme caractère,3 caractères.
          
      End With
      .Fill.ForeColor.SchemeColor = 10                    'Couleur fond commentaires
      .Line.Weight = 1.5                                  'Epaisseur bordure Commentaires
      .Line.ForeColor.SchemeColor = 12                    'Couleur bordure
       ActiveCell.Comment.Visible = True                  'Afficher/Masquer les commentaires
    End With
    Application.EnableEvents = True
    End Sub

Pas fait depuis ...un certain temps!!!!
Merci pour vos éventuelles réponses

 

[TooFatBoy]

Bonjour,

Tu remplaces 10 par 5 peut-être...

C'vrai qu'c'est pô évident

 

[un internaute]

Il me reste plus que le rouge!!!

 

[TooFatBoy]

Là, je sais pas.

 

[un internaute]

Sub InsertCommentaires()
 Dim cmt As Comment, Ligne As Long, TotMois As String, DebMois As String, FinMois As String
    Set cmt = Selection.AddComment
     'ActiveCell.Comment.Visible = True
    With cmt.Shape
      .Width = ActiveCell.Width
      .Height = ActiveCell.Height
      .Left = ActiveCell.Left
      .Top = ActiveCell.Top
      '.Fill.ForeColor.SchemeColor = 10
      With .TextFrame
       .Characters.Font.Name = "Arial"                    'Police
       .Characters.Font.FontStyle = "Gras italique"       'Style
       .Characters.Font.Size = 10.5                       'Taille police
       .Characters.Font.ColorIndex = 1  '5                'Couleur commentaires bleu = 5 Noir = 1
       .HorizontalAlignment = xlCenter                    'Centrer texte horizontalement
       DebMois = Range("F2").Text
       FinMois = Range("F3").Text
       TotMois = IIf(Month(Range("F2")) = Month(ActiveCell.Offset(, 6)), Range("F4").Text, Range("F6").Text)
       .Characters.Text = "Frais établis ce jour: Période du: " & DebMois & " au " & FinMois & " Montant: " & TotMois
       .Characters(36, Len(DebMois)).Font.ColorIndex = 3  '2                                                            'blanc à partir du 35éme caractère,2 caractères
       .Characters(36 + Len(DebMois) + 4, Len(FinMois)).Font.ColorIndex = 3   '2                                        'blanc à partir du 50éme caractère,2 caractères
       .Characters(36 + Len(DebMois) + Len(FinMois) + 13, Len(TotMois)).Font.ColorIndex = 3  '2                         'blanc à partir du 71éme caractère,3 caractères.
          
      End With
      .Fill.ForeColor.SchemeColor = 5                     'Couleur fond commentaires
      .Line.Weight = 3    '1.5                            'Epaisseur bordure Commentaires
      .Line.ForeColor.SchemeColor = 25     '12            'Couleur bordure
       ActiveCell.Comment.Visible = True                  'Afficher/Masquer les commentaires
    End With
    End Sub

Bonne journée à tous



Bonjour le forum
Voilà