Discussion :

[phoon]

Bonjour à tous

J'ai dans une cellule d'un fichier Excel une chaîne écrite comme cela :

Demande de retrait de prestation

Une partie est en gras et la suite en normal.

J'aimerais reprendre la valeur de cette cellule dans VBA, avec son format spécial pour avoir comme variable :

Code :

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

"<B>Demande de retrait</B> de prestations"

Comme cela je peu reprendre cette variable pour l'utiliser dans un mail en HTML.

J'espère que c'est clair, j'espère....
Merci d'avance

[Theze]

Bonjour,

Peut être de cette façon ?

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
 
Sub Gras()
 
    Dim Cel As Range
    Dim I As Integer
    Dim EnGras As String
 
    'cellule à parcourir
    Set Cel = Range("A1")
 
    'balise de début
    EnGras = "<B>"
 
    'récup des mots en gras
    For I = 1 To Len(Cel)
 
        If Cel.Characters(1, I).Font.Bold = True Then
            EnGras = EnGras & Mid(Cel, I, 1)
        End If
 
    Next I
 
    'balise de fin
    EnGras = EnGras & "</B>"
 
    MsgBox EnGras
 
End Sub

Hervé.

[phoon]

hello Theze
Merci pour ton aide, cela fonctionne mais pas exactement comme je le désire.
Comme dit, je me suis mal exprimé dans la demande.
Mais je suis sur une piste.
Je reviens si nécessaire

Merci