Discussion :

[max60fr]

Bonjour,
Je ne réussis pas à trouver la manière simple d'attribuer le Gras à une portion de chaine alphanumérique...
(Texte8="Mouvement achat effectué par FL , le #DC . Concerne #Object)

Exemple :

Code :

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

1
2
3
Texte8 = ActiveCell.Value
Texte8 = Replace(Texte8, "#DC", Date)    'Renseigne la date courante dans le Texte 8.
Texte8= Replace(Texte8, "#Object, transformateur)   'Renseigne l'Object,

C'est bien uniquement le mot "Transformateur" qui devra être affiché en caractères Gras...

Merci beaucoup pour votre aide éventuelle.

Max.

[joe.levrai]

Bonjour,

dans cette idée ?

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
Sub ioi()
Dim Chaine As String
 
Chaine = "transformateur"
 
With ActiveCell
 
    .Offset(1, 0).Value = Replace(.Value, "#Object", Chaine)
 
    With .Offset(1, 0)
        .Characters(InStr(1, .Value, Chaine), Len(Chaine)).Font.Bold = True
    End With
 
End With
 
End Sub

On prend la valeur de la cellule active
On remplace #Object par transformateur et on écrit le résultat dans la cellule du dessous
Ensuite :

- on détecte l'endroit où commence le mot transformateur (Fonction Instr)
- on calcule la longueur de transformateur (Fonction Len)
- on met en gras (Propriété Font.Bold) la portion de cellule (Propriété Characters) calculée

[max60fr]

Merci bien pour votre rapide réponse.

C'est tout à fait la fonctionnalité recherchée..

(Il n'est donc apparemment possible d'effectuer cette opération sans utiliser une cellule "tampon" ?)

Bien cordialement.

Max.

[joe.levrai]

Pour répondre à ta dernière question, peux-tu nous préciser ce que tu vas faire de ta phrase après le remplacement et la mise en gras du mot ?

ton exemple est basé sur un variable contenant cette phrase ... et on ne voit pas ce que tu vas en faire après (et où tu vas restituer cette phrase)

[patricktoulon]

une solution certe non conventionelle mais une solution tout de meme
avec ce principe tu pourrais meme les faire toute d'un coup

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()
replacetransformateur ActiveSheet.Cells(1, 1)
End Sub
Function replacetransformateur(cel)
    Dim elem
    With CreateObject("htmlfile")
        .body.innerhtml = "<table><tr><TD>" & Replace(cel.Value, "transformateur", "<span>transformateur</span>") & "</TD></tr></table>"
       Set elem = .getelementsbytagname("span")(0)
       elem.Style.fontweight = "Bold"
                If .parentWindow.clipboardData.setData("Text", .body.innerhtml) Then
            Application.ScreenUpdating = False
                  cel.Parent.Activate
                  cel.Select
                cel.Parent.Paste
            End If
        End With
    End Function

[Theze]

Bonjour,

(Il n'est donc apparemment possible d'effectuer cette opération sans utiliser une cellule "tampon" ?)

Si, tu peux formater directement dans la cellule :

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
 
Sub Test()
 
    Dim Texte As String
 
    Texte = "transformateur"
 
    With ActiveCell
 
        .Value = Replace(ActiveCell, "#DC", Date)
        .Value = Replace(ActiveCell, "#Object", Texte)
        .Characters(InStr(1, ActiveCell.Value, Texte), Len(Texte)).Font.Bold = True
 
    End With
 
End Sub

Hervé.