conserver format texte par formule

[Nafuns]

Bonjour
Je viens vers vous car j’ai un soucis de programmation qui me rend dingue depuis une semaine lol …
je vais essayer d’être clair :
j’ai dans une cellule A1 un mot en gras et en rouge qui est : rectangulaire (exemple)
en VBA:

Rep=Range(‘’A1’’)
Range(‘’A2’’)=‘’ le triangle est’’ & Rep

Mon problème est que le message est en noir et non gras mais que je voudrais conserver le format gras et rouge du mot contenu dans A1

J’espère avoir était clair , merci beaucoup si vous avez une solution

 

[fanfan38]

Bonjour
Quelle version d'Excel?
Avec une mfc
ou par macro

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Value = Range("A1").Value Then
    Target.Font.FontStyle = Range("A1").Font.FontStyle
    Target.Font.Color = Range("A1").Font.Color
  End If
End Sub

A+ François

 

[Nafuns]

Bonjour,
Merci j’ai réussi avec : .characters.font.bold=true
Merci à vous