Discussion :

[nkwn_37]

Bonjour à tous,

Je souhaite créer une macro qui me permette de détecter des caractères en gras dans une cellule et de les remplacer en les entourant par des balises HTML.
J'ai réussi la première partir, à savoir détecter les caractères en gras :

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 Bold()
          Dim C&, Rg As Range, VA$()
 
     With Cells(1).CurrentRegion.Columns(1)
             ReDim VA(1 To .Rows.Count, 0)
         For Each Rg In .Cells
             For C = 1 To Len(Rg.Value)
                 If Rg.Characters(C, 1).Font.Bold Then
                      VA(Rg.Row, 0) = "YES"
                     Exit For
                 End If
             Next
         Next
             .Offset(, 1).Value = VA
     End With
 End Sub

Pour le moment j'obtiens donc le mot "YES" dans une nouvelle colonne chaque fois qu'un caractères en gras est détecté.
Ce que je voudrais faire maintenant, c'est qu'au lieu de m'afficher ce mot, les caractères en gras soient remplacés par des balises HTML, ainsi test deviendrait <b>test</b>, tout en gardant bien sûr le reste de ma cellule intacte.
Et c'est là que ça pêche... Je débute en VBA, aussi je suis désolée pour ma naïveté, mais du coup je n'arrive pas à poursuivre ni à utiliser la fonction Replace...
Quelqu'un peut-il m'aider ?

Par avance merci

[Invité]

Code :

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

 VA(Rg.Row, 0) = "YES"

Code :

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

 VA(Rg.Row, 0) ="<b>" & VA(Rg.Row, 0) & "</b>"

[nkwn_37]

Code :

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

 VA(Rg.Row, 0) ="<b>" & VA(Rg.Row, 0) & "</b>"

Merci, j'avais dans l'idée de faire ça aussi, mais je n'arrivais pas à afficher ma variable
Mais du coup il ne m'affiche que les balises <b></b>...
Et je voudrais en fait qu'il me remplace les caractères en gras avec des balises dans la cellule d'origine, en conservant les autres caractères qui ne sont pas en gras.

Par exemple si dans ma cellule il y a :
Je voudrais mettre des balises sur les caractères en gras

Alors elle deviendrait :
Je voudrais mettre des <b>balises</b> sur les caractères en gras...

Est-ce que c'est plus clair ?

[Invité]

à oui ton tableau est vide donc :

Code :

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

VA(Rg.Row, 0) ="<b>" & Rg & "</b>"

[nkwn_37]

C'est parfait ! Merci beaucoup !

[Marc-L]

J'ai réussi la première partir, à savoir détecter les caractères en gras

Tu n'as rien réussi du tout, c'est juste ma démonstration reprise de l'autre forum ‼

[RyuAutodidacte]

Mdr moi aussi je reconnais ta façon de coder

mrlt5 il ne te reste plus qu'à citer l'auteur du code

[Invité]

Une faute de langage,une erreurs, un oubli,une amnésie tout au plus! Rien de grave enfin j'espère!

Mais ça va être réglé.

[patricktoulon]

bonsoir
si tu avais fait une recherche tu aurais trouvé dans les contributions grille to htmlet autre

dans cette contribution tu y aurais trouvé une fonction "BYSPAN"

qui te produit le code html d'une chaine de caractères dans une cellule pour la restituer a l'identique dans une page web(bold,couleur font syze,font name ect......
bouton recherche avancée


voila ICI PAR EXEMPLE

[patricktoulon]

et si je m'inspire de ma fonction pour juste formater les balises <b>
on pourrais faire simplement ceci et tu pourrais meme avoir plusieur paries en gras separépar du texte au format normal

demo

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
Function text_BYSPAN_format(c)
For i = 1 To Len(c.Value)
If b = False And c.Characters(Start:=i, Length:=1).Font.Bold Then
texte = texte & "<b>" & Mid(c, i, 1)
b = True
ElseIf b = True And c.Characters(Start:=i, Length:=1).Font.Bold = False Then
texte = texte & "</b>" & Mid(c, i, 1)
b = False
Else
texte = texte & Mid(c, i, 1)
End If
Next
text_BYSPAN_format = texte
End Function
Sub test()
MsgBox text_BYSPAN_format([A1])
End Sub