Discussion :

[JustyDark]

Bonjour,

Après plusieurs heures de recherches et d'essais développement, je suis à la recherche d'une fonction (déjà existante ou bien à créer) qui permettrait de remplacer, dans une chaine de caractères, un caractère spéciaux par son entité HTML

Exemple :
Chaine de caractère = Welcome & Enjoy
Chaine de caractère après passage dans la fonction = Welcome & Enjoy

Le déroulement de l'algo serait le suivant
Pour chaque caractère d'une chaine de caractère, si ce caractère est un caractère spéciaux, alors générer son entités puis le remplacer par l'entité générée.

Merci d'avance pour vos propositions !!

[pc75]

Bonjour,

La fonction REMPLACER() ne te convient pas ?

[Invité]

Bonjour,
regardes ça: http://www.developpez.net/forums/d15...o/#post8187229

[JustyDark]

Bonjour Rdurupt !

Merci encore pour ton aide !

J'ai adapté ce que tu m'as donné pour que les "&" soient pris en compte et que les espaces, en revanche, ne le soit pas !

Voilà le résultat pour les intéressés :

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
 
Sub test()
MsgBox TxtHtml("Welcome & Enjoy")
End Sub
 
Function TxtHtml(T As String) As String
Dim Txt
Dim Htm
Dim I As Long
TxtHtml = T
Txt = "Á$á$É$é$Í$í$Ó$ó$Ú$ú$Ý$ý$À$à$È$è$Ì$ì$Ò$ò$Ù$ù$Â$â$Ê$ê$Î$î$Ô$ô$Û$û$Ä$ä$Ë$ë$Ï$ï$Ö$ö$Ü$ü$Ÿ$ÿ$Ã$ã$Õ$õ$Ç$ç$" & vbCrLf & "$&"
Htm = "Á$á$É$é$Í$í$Ó$ó$Ú$ú$Ý$ý$À$à$È$è$Ì$ì"
Htm = Htm & "$Ò$ò$Ù$ù$Â$â$Ê$ê$Î$î$Ô$ô$Û$û$Ä$ä$Ë$ë"
Htm = Htm & "$&Ouml;$&ouml;$&Uuml;$&uuml;$&Yuml;$&yuml;$&Atilde;$&atilde;$&Itilde;$&itilde;$&Otilde;$&otilde;$&Ccedil;$&ccedil;$<br>;$&amp;"
Txt = Split(Txt, "$")
Htm = Split(Htm, "$")
For I = 0 To UBound(Txt)
TxtHtml = Replace(TxtHtml, Txt(I), Htm(I), 1, compare:=vbBinaryCompare)
Next
End Function

Merci encore pour ton aide précieuse !