Format d'une partie d'une cellule contenant une formule

Bonjour à tous,

je suis nouveau sur le forum.

Je voudrais metre en gras, le contenu de la cellule Z22 et en surbrillance le texte (24.41) de la formule ci-dessous.

=CONCATENER("Nombre de personnes";Z22;"(24,41) X 100")

Est-ce possible ?

Merci d'avance.

Bonjour,

Vois le code suivant et adapte-le à ton cas :

Sub test()
    Dim debut As Integer, fin As Integer, nbCar As Integer
    [A1] = "Nombre de personne" & Range("Z22") & "(24,41) X 100"
    debut = WorksheetFunction.Search("(", Range("A1")) + 1
    fin = WorksheetFunction.Search(")", Range("A1"))
    nbCar = fin - debut
    [A1].Characters(debut, nbCar).Font.Color = RGB(255, 0, 0)
End Sub

Si tu veux l'aide précise.