Mettre en couleur 2 parties de texte dans macro commentaires

Bonjour le forum

Dans la macro ci-dessous je voudrais mettre en blanc les 2 textes suivant en blanc

27 janvier au 05 février
et le point d’interrogation 
?
Les dates et le point d’interrogation sont un exemple

Sub InsertCommentaires()
Dim cmt As Comment
    Set cmt = Selection.AddComment
    With cmt.Shape
      .Width = ActiveCell.Width
      .Height = ActiveCell.Height
      .Left = ActiveCell.Left
      .Top = ActiveCell.Top
      With .TextFrame.Characters.Font
        .Name = "Arial"                                   'Police
        .FontStyle = "Gras italique"                      'Style
        .Size = 10.5                                      'Taille police
        .ColorIndex = 5                                   'Couleur commentaires bleu
      End With
      .TextFrame.HorizontalAlignment = xlCenter           'Centrer texte horizontalement
     .TextFrame.Characters.Text = "Frais établis ce jour: Période du: 27 janvier au 05 février Montant: ? €"
      .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
End Sub

Merci à vous

Cordialement

Bonjour al87, le forum,

Peut-être ainsi:

With .TextFrame
  .Characters.Text = "Frais établis ce jour: Période du: 27 janvier au 05 février Montant: ? €"
  .Characters(36, 2).Font.ColorIndex = 2
  .Characters(50, 2).Font.ColorIndex = 2
  .Characters(70, 1).Font.ColorIndex = 2
 End With

Sub InsertCommentaires()
 Dim cmt As Comment
    Set cmt = Selection.AddComment
    With cmt.Shape
      .Width = ActiveCell.Width
      .Height = ActiveCell.Height
      .Left = ActiveCell.Left
      .Top = ActiveCell.Top
      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
       .Characters.Text = "Frais établis ce jour: Période du: 27 janvier au 05 février Montant: ? €"
       .Characters(36, 2).Font.ColorIndex = 2             'blanc à partir du 36éme caractère,2 caractères
       .Characters(50, 2).Font.ColorIndex = 2             'blanc à partir du 50éme caractère,2 caractères
       .Characters(70, 1).Font.ColorIndex = 2             'blanc à partir du 70éme caractère,1 caractère
      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
End Sub

Cordialement,

Bonjour xorsankukai

Je pense que dans ce format c'est mieux car la longueur du texte des mois étant différend ce format est mieux. Lorsque ça sera le 5 du mois on met 05

Mais il faut refaire la macro.

Merci à toi

A+ peut-être

Frais établis ce jour: Période du:00/00/2022  au 00/00/2022  Montant: 000.00 €

Re xorsankukai

Voilà ça fonctionne mais je n'ai pas mis le nombre de caractères et couleur à jour

Mais que c'est fastidieux

Si tu trouves mieux tu peux faire signe

Encore merci à toi et bonne fin de WE

Bonjour,

Voilà ça fonctionne mais je n'ai pas mis le nombre de caractères et couleur à jour

Mais que c'est fastidieux

Sub InsertCommentaires()
 Dim cmt As Comment
    Set cmt = Selection.AddComment
    With cmt.Shape
      .Width = ActiveCell.Width
      .Height = ActiveCell.Height
      .Left = ActiveCell.Left
      .Top = ActiveCell.Top
      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
       .Characters.Text = "Frais établis ce jour: Période du:00/00/2022  au 00/00/2022  Montant: 000.00 €"
       .Characters(35, 2).Font.ColorIndex = 2             'blanc à partir du 35éme caractère,2 caractères
       .Characters(38, 2).Font.ColorIndex = 2             'blanc à partir du 38éme caractère,2 caractères
       .Characters(41, 4).Font.ColorIndex = 2             'blanc à partir du 41éme caractère,4 caractères
       .Characters(50, 2).Font.ColorIndex = 2             'blanc à partir du 50éme caractère,2 caractères
       .Characters(53, 2).Font.ColorIndex = 2             'blanc à partir du 53éme caractère,2 caractères
       .Characters(56, 4).Font.ColorIndex = 2             'blanc à partir du 56éme caractère,4 caractères
       .Characters(71, 3).Font.ColorIndex = 2             'blanc à partir du 71éme caractère,3 caractères
       .Characters(75, 2).Font.ColorIndex = 2             'blanc à partir du 75éme caractère,2 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
End Sub

Si tu souhaites mettre un montant plus important, il faudra adapter les 2 dernières lignes:

.Characters(71, 3).Font.ColorIndex = 2             'blanc à partir du 71éme caractère,3 caractères
.Characters(75, 2).Font.ColorIndex = 2             'blanc à partir du 75éme caractère,2 caractères

Cordialement,

Re xorsankukai

Super ça fonctionne mais alors comme tu dis ça du être fastidieux.

un GRAND merci à toi encore

Bonne fin de WE

Cordialement