Discussion :

[Pompaero]

Bonjour le forum

Je reviens vers vous pour une petite question.
J'aimerai savoir si il est possible de mettre en gras des mots contenu dans une formule (cellule excel) ?

Voici mon exemple:
dans la cellule A1 j'ai la formule suivante :

Code :

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

="Bonjour"&feuil1!B10&"Nous sommes le"&feuil1!B11

Je souhaiterai mettre en gras les mots (Bonjour et Nous sommes le)

Dans l'attente je continu de chercher de mon côté.

Cordialement

[Pompaero]

A priori ce n'est pas possible même avec la MFC. tampi pas grave.

Merci quand même à vous.

[grisan29]

bonjour Pompaero
pour écrire une partie de ligne en gras moi j'utilise ce code

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
Private Sub CommandButton1_Click()
With Sheets("feuil1")
         .Range("B9").Value = Me.TextBox1.Value & " " & Me.TextBox2.Value & " " & Me.TextBox3.Value & " " & Me.TextBox4.Value
         With .Range("B9").Characters(Start:=1, Length:=16).Font
                 .FontStyle = "Gras"
                 .Underline = xlUnderlineStyleSingle
         End With
         '-----------------------------------
        Me.TextBox1.Value = "adresse chantier :"
         Me.TextBox2.Value = ""
         Me.TextBox3.Value = ""
         Me.TextBox4.Value = ""
         Unload Me
End With
End Sub

il me sert a écrire dans une cellule("B9") comme ci dessous
adresse du chantier: chez moi 12345 labas

si cela peut t'aider

Pascal

[Pompaero]

Bonjour grisan29

D'abord merci d'être revenu sur mon post malgré qu'il soit noté Résolu, ça fais plaisir

Ta formule est très bien, je vais la garder sous le coude mais malheureusement ne convient pas à mon souhait car dans ma formule (excel)il y a plusieurs mots à mettre en gras (6 en tout).
Je continu de chercher mais ce n'est pas la priorité de mon projet c'était juste pour affiner la présentation.

Cordialement

[keygen08]

Bonjour
En s'appuyant sur la position des virgules pour connaitre la posiion du texte a mettre en gras, on obtient ceci avec l'aide de silkyroad et et de l'enregistreur de macro.

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
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
Private Sub gras()
 
Dim b As Integer, c As Integer, x As Integer, y As Integer, z As Integer
'adresse de la cellule de destination a adapter.
Feuil1.Range("j20") = "Bonjour, " & Feuil1.Range("B10") & ", nous sommes le, " & CDate(Format((Now), "dd-mmm-yyyy"))
a = Feuil1.Range("j20")
b = InStr(a, ",")
c = Len(a)
 
x = InStr(b + 1, a, ",")
y = InStr(x + 1, a, ",")
 
Feuil90.Range("j20").Select
 
    With ActiveCell.Characters(Start:=1, Length:=0).Font
        .Name = "Arial"
        .FontStyle = "Normal"
        .Size = 14
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ColorIndex = xlAutomatic
        .TintAndShade = 0
        .ThemeFont = xlThemeFontNone
    End With
    With ActiveCell.Characters(Start:=1, Length:=b).Font
        .Name = "Arial"
        .FontStyle = "Gras"
        .Size = 14
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ColorIndex = xlAutomatic
        .TintAndShade = 0
        .ThemeFont = xlThemeFontNone
    End With
    With ActiveCell.Characters(Start:=b + 1, Length:=x - b).Font
        .Name = "Arial"
        .FontStyle = "Normal"
        .Size = 14
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ColorIndex = xlAutomatic
        .TintAndShade = 0
        .ThemeFont = xlThemeFontNone
    End With
    With ActiveCell.Characters(Start:=x, Length:=y - x + 1).Font
        .Name = "Arial"
        .FontStyle = "Gras"
        .Size = 14
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ColorIndex = xlAutomatic
        .TintAndShade = 0
        .ThemeFont = xlThemeFontNone
    End With
 
 
End Sub

Comme on le voit, il est également possible de jouer sur les autres aspects de la police (couleur, italique...).