Discussion :

[rossemma]

Bonjour,
j'ai le code suivant et je voudrais que la partie ""(source-oorsprong SAP - " & t2 & ")" soit en rouge.
De plus, tout le texte ( "Dépenses de personnel / Personeelsuitgaven - Bud_" & t1 & " " & "(source-oorsprong SAP - " & t2 & ")") doit être en gras et italic, en police Verdana de hauteur 18.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Dim t1 As Variant, t2 As Variant
t1 = sh_parameters.Range("A21").Value
t2 = sh_update.Range("C1")
 
Me.Range("a1").Value = "Dépenses de personnel / Personeelsuitgaven - Bud_" & t1 & " " & "(source-oorsprong SAP - " & t2 & ")"

Merci

[Philippe Tulliez]

Bonjour,
Si tu souhaites mettre un texte contenu dans une cellule partiellement en couleur, la lecture de ce billet Comment mettre en couleur des mots se trouvant dans une plage de cellules ? t'aidera sans doute

[Mimisator]

Bonjour,

Pour la gestion des polices, couleurs ...
Tu as à ta disposition toutes les options de type :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Range("XX:XX").Font.Size = 11
Range("xx:xx").Font.Italic = True
Range("XX:XX").Font.Name = "Arial"

Bonne journée

[patricktoulon]

bonjour

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Sub test()
    Dim t1$, t2$, chaine_rouge$, x&
    t1 = sh_parameters.Range("A21").Value
    t2 = sh_update.Range("C1")
    chaine_rouge = "(source-oorsprong SAP - " & t2 & ")"
    With Range("a1")
        .Value = "Dépenses de personnel / Personeelsuitgaven - Bud_" & t1 & " " & chaine_rouge
        x = InStrRev(.Value, chaine_rouge)
        With .Font
            .Bold = True
            .Italic = True
            .Name = "Verdana "
            .Size = 18
        End With
        .Characters(x, Len(chaine_rouge)).Font.Color = vbRed
    End With
End Sub

[rossemma]

Un tout grand merci pour ton aide

aurais tu l'amabilité de regarder mon autre post car je coince ==> nom onglet dans statusbar
merci