Mettre en gras une partie seulement d'une cellule avec VBA

j'ai une marco qui créé autant d'onglets que necessaire qui correspondent a des relances pour non paiement

j'ai des clients en étrangers donc la macro choisi le texte en fonction de langue

pour écrire : pour la somme totale de 10 000 euros. j ai la formule suivante :

Cells(4, 1) = Somme & " " & Total & " euros."

Somme correspondant à "pour la somme totale de " ( ou l'equivalent en langue etrnagere)

Total correspond au montant que le client nous doit ( ici 10 000)

je voudrais que le résultat Total & " euros." soit en gras

le nb de caracteres peut changer...

pouvez vous m aider ? merci

ben

Bonjour,

Un essai ...

Dim LSomme As Byte, LTotal As Byte

somme = 12345   ' << chiffre pour fin de tests
LSomme = Len(somme) + 1

Total = 121212  ' << chiffre pour fin de tests
LTotal = Len(Total) + 7 ' << 7 = len(" euros.")

Cells(4, 1) = somme & " " & Total & " euros."

With Cells(4, 1)
    With .Characters(Start:=LSomme, Length:=LTotal).Font
        .FontStyle = "Gras"
    End With
End With

ric