mise en forme dans une concatenation

[christophe62]

Bonjour à toutes et tous ,

voilà je voudairs faire une mise en forme au sein d'une concatenation

ma formule

="concernant votre séjour du "&TEXTE($K$43;"jj mmmm aaaa")&" au " &TEXTE($K$44;"jj mmmm aaaa")

ce que j'obtiens

concernant votre séjour du 10 janvier 2016 au 17 janvier 2016

j'aimerais avoir ceci au final

concernant votre séjour du 10 janvier 2016 au 17 janvier 2016

c'est a dire avoir les date en gras au sein de ma concatenation

comment puis je faire ?
Je pêche sur la question

merci de votre aide

 

[Jacky67]

Bonjour à toutes et tous ,

j'aimerais avoir ceci au final
concernant votre séjour du 10 janvier 2016 au 17 janvier 2016
c'est a dire avoir les date en gras au sein de ma concatenation
comment puis je faire ?
Je pêche sur la question

Bonjour,
Il n'y a pas, à ma connaissance de solution dans ce cas sans vba

Sub concatenerjj()
    Dim Cible As Range
    Dim Debut1&, Debut2&
    Dim Longdate1&, Longdate2&
    Set Cible = [c1]    '************ A adapter la cellule de destination
    Cible = "concernant votre séjour du "
    Debut1 = Len(Cible) + 1
    Longdate1 = Len(Format([$K$43], "dd mmmm yyyy"))
    Cible = Cible & Format([$K$43], "dd mmmm yyyy") & " au "
    Debut2 = Len(Cible) + 1
    Longdate2 = Len(Format([$K$44], "dd mmmm yyyy"))
    Cible = Cible & Format([$K$44], "dd mmmm yyyy")
    Cible.Characters(Start:=Debut1, Length:=Longdate1).Font.FontStyle = "Gras"
    Cible.Characters(Start:=Debut2, Length:=Longdate2).Font.FontStyle = "Gras"
End Sub

Salutations
JJ

 

[christophe62]

desole de repondre que maintenant

merci beaucoup
je teste cela