Caracteres web

[Nicephore]

Bonjour
Je cherche a transformer des caractères WEB.
Exemple j'ai dans un tableau par exemple:

tablo(3) : "Créteil"

Je cherche donc a le transformer en "Créteil" avant l'écrire dans ma cellule.

Merci de votre aide

 

[Victor21]

Re : Caracteres web

Bonjour.

Utilisez substitue :

=SUBSTITUE(A1;"é";"é")

7 imbrications possibles, si je ne m'abuse.
Un fichier exemple avec tous les différents cas, et les résultats souhaités auraient, comme à l'habitude, généré une réponse plus complète.

 

[kiki29]

Re : Caracteres web

Salut, sans doute à adapter, corriger, compléter, utilisable sous forme de fonction personnalisée ou autre

Option Explicit

Function RemplacerHtml(s As String) As String
Dim CarHTML(131) As String
Dim CarNormal(131) As String
Dim i As Long

    CarHTML(1) = """
    CarHTML(2) = "'"
    CarHTML(3) = "&"
    CarHTML(4) = "<"
    CarHTML(5) = ">"
    CarHTML(6) = " "
    CarHTML(7) = "¡"
    CarHTML(8) = "¤"
    CarHTML(9) = "¢"
    CarHTML(10) = "£"
    CarHTML(11) = "¥"
    CarHTML(12) = "¦"
    CarHTML(13) = "§"
    CarHTML(14) = "¨"
    CarHTML(15) = "©"
    CarHTML(16) = "ª"
    CarHTML(17) = "«"
    CarHTML(18) = "¬"
    CarHTML(19) = "*"
    CarHTML(20) = "®"
    CarHTML(21) = "™"
    CarHTML(22) = "¯"
    CarHTML(23) = "°"
    CarHTML(24) = "±"
    CarHTML(25) = "²"
    CarHTML(26) = "³"
    CarHTML(27) = "´"
    CarHTML(28) = "µ"
    CarHTML(29) = "¶"
    CarHTML(30) = "·"
    CarHTML(31) = "¸"
    CarHTML(32) = "¹"
    CarHTML(33) = "º"
    CarHTML(34) = "»"
    CarHTML(35) = "¼"
    CarHTML(36) = "½"
    CarHTML(37) = "¾"
    CarHTML(38) = "¿"
    CarHTML(39) = "×"
    CarHTML(40) = "÷"
    CarHTML(41) = "À"
    CarHTML(42) = "Á"
    CarHTML(43) = "Â"
    CarHTML(44) = "Ã"
    CarHTML(45) = "Ä"
    CarHTML(46) = "Å"
    CarHTML(47) = "Æ"
    CarHTML(48) = "Ç"
    CarHTML(49) = "È"
    CarHTML(50) = "É"
    CarHTML(51) = "Ê"
    CarHTML(52) = "Ë"
    CarHTML(53) = "Ì"
    CarHTML(54) = "Í"
    CarHTML(55) = "Î"
    CarHTML(56) = "Ï"
    CarHTML(57) = "Ð"
    CarHTML(58) = "Ñ"
    CarHTML(59) = "Ò"
    CarHTML(60) = "Ó"
    CarHTML(61) = "Ô"
    CarHTML(62) = "Õ"
    CarHTML(63) = "Ö"
    CarHTML(64) = "Ø"
    CarHTML(65) = "Ù"
    CarHTML(66) = "Ú"
    CarHTML(67) = "Û"
    CarHTML(68) = "Ü"
    CarHTML(69) = "Ý"
    CarHTML(70) = "Þ"
    CarHTML(71) = "ß"
    CarHTML(72) = "à"
    CarHTML(73) = "á"
    CarHTML(74) = "â"
    CarHTML(75) = "ã"
    CarHTML(76) = "ä"
    CarHTML(77) = "å"
    CarHTML(78) = "æ"
    CarHTML(79) = "ç"
    CarHTML(80) = "è"
    CarHTML(81) = "é"
    CarHTML(82) = "ê"
    CarHTML(83) = "ë"
    CarHTML(84) = "ì"
    CarHTML(85) = "í"
    CarHTML(86) = "î"
    CarHTML(87) = "ï"
    CarHTML(88) = "ð"
    CarHTML(89) = "ñ"
    CarHTML(90) = "ò"
    CarHTML(91) = "ó"
    CarHTML(92) = "ô"
    CarHTML(93) = "õ"
    CarHTML(94) = "ö"
    CarHTML(95) = "ø"
    CarHTML(96) = "ù"
    CarHTML(97) = "ú"
    CarHTML(98) = "û"
    CarHTML(99) = "ü"
    CarHTML(100) = "ý"
    CarHTML(101) = "þ"
    CarHTML(102) = "ÿ"
    CarHTML(103) = "Œ"
    CarHTML(104) = "œ"
    CarHTML(105) = "Š"
    CarHTML(106) = "š"
    CarHTML(107) = "Ÿ"
    CarHTML(108) = "ˆ"
    CarHTML(109) = "˜"
    CarHTML(110) = " "
    CarHTML(111) = " "
    CarHTML(112) = " "
    CarHTML(113) = "‌"
    CarHTML(114) = "‍"
    CarHTML(115) = "‎"
    CarHTML(116) = "‏"
    CarHTML(117) = "–"
    CarHTML(118) = "—"
    CarHTML(119) = "‘"
    CarHTML(120) = "’"
    CarHTML(121) = "‚"
    CarHTML(122) = "“"
    CarHTML(123) = "”"
    CarHTML(124) = "„"
    CarHTML(125) = "†"
    CarHTML(126) = "‡"
    CarHTML(127) = "…"
    CarHTML(128) = "‰"
    CarHTML(129) = "‹"
    CarHTML(130) = "›"
    CarHTML(131) = "€"

    CarNormal(1) = "34"
    CarNormal(2) = "39"
    CarNormal(3) = "38"
    CarNormal(4) = "60"
    CarNormal(5) = "62"
    CarNormal(6) = "160"
    CarNormal(7) = "161"
    CarNormal(8) = "164"
    CarNormal(9) = "162"
    CarNormal(10) = "163"
    CarNormal(11) = "165"
    CarNormal(12) = "166"
    CarNormal(13) = "167"
    CarNormal(14) = "168"
    CarNormal(15) = "169"
    CarNormal(16) = "170"
    CarNormal(17) = "171"
    CarNormal(18) = "172"
    CarNormal(19) = "173"
    CarNormal(20) = "174"
    CarNormal(21) = "8482"
    CarNormal(22) = "175"
    CarNormal(23) = "176"
    CarNormal(24) = "177"
    CarNormal(25) = "178"
    CarNormal(26) = "179"
    CarNormal(27) = "180"
    CarNormal(28) = "181"
    CarNormal(29) = "182"
    CarNormal(30) = "183"
    CarNormal(31) = "184"
    CarNormal(32) = "185"
    CarNormal(33) = "186"
    CarNormal(34) = "187"
    CarNormal(35) = "188"
    CarNormal(36) = "189"
    CarNormal(37) = "190"
    CarNormal(38) = "191"
    CarNormal(39) = "215"
    CarNormal(40) = "247"
    CarNormal(41) = "192"
    CarNormal(42) = "193"
    CarNormal(43) = "194"
    CarNormal(44) = "195"
    CarNormal(45) = "196"
    CarNormal(46) = "197"
    CarNormal(47) = "198"
    CarNormal(48) = "199"
    CarNormal(49) = "200"
    CarNormal(50) = "201"
    CarNormal(51) = "202"
    CarNormal(52) = "203"
    CarNormal(53) = "204"
    CarNormal(54) = "205"
    CarNormal(55) = "206"
    CarNormal(56) = "207"
    CarNormal(57) = "208"
    CarNormal(58) = "209"
    CarNormal(59) = "210"
    CarNormal(60) = "211"
    CarNormal(61) = "212"
    CarNormal(62) = "213"
    CarNormal(63) = "214"
    CarNormal(64) = "216"
    CarNormal(65) = "217"
    CarNormal(66) = "218"
    CarNormal(67) = "219"
    CarNormal(68) = "220"
    CarNormal(69) = "221"
    CarNormal(70) = "222"
    CarNormal(71) = "223"
    CarNormal(72) = "224"
    CarNormal(73) = "225"
    CarNormal(74) = "226"
    CarNormal(75) = "227"
    CarNormal(76) = "228"
    CarNormal(77) = "229"
    CarNormal(78) = "230"
    CarNormal(79) = "231"
    CarNormal(80) = "232"
    CarNormal(81) = "233"
    CarNormal(82) = "234"
    CarNormal(83) = "235"
    CarNormal(84) = "236"
    CarNormal(85) = "237"
    CarNormal(86) = "238"
    CarNormal(87) = "239"
    CarNormal(88) = "240"
    CarNormal(89) = "241"
    CarNormal(90) = "242"
    CarNormal(91) = "243"
    CarNormal(92) = "244"
    CarNormal(93) = "245"
    CarNormal(94) = "246"
    CarNormal(95) = "248"
    CarNormal(96) = "249"
    CarNormal(97) = "250"
    CarNormal(98) = "251"
    CarNormal(99) = "252"
    CarNormal(100) = "253"
    CarNormal(101) = "254"
    CarNormal(102) = "255"
    CarNormal(103) = "338"
    CarNormal(104) = "339"
    CarNormal(105) = "352"
    CarNormal(106) = "353"
    CarNormal(107) = "376"
    CarNormal(108) = "710"
    CarNormal(109) = "732"
    CarNormal(110) = "8194"
    CarNormal(111) = "8195"
    CarNormal(112) = "8201"
    CarNormal(113) = "8204"
    CarNormal(114) = "8205"
    CarNormal(115) = "8206"
    CarNormal(116) = "8207"
    CarNormal(117) = "8211"
    CarNormal(118) = "8212"
    CarNormal(119) = "8216"
    CarNormal(120) = "8217"
    CarNormal(121) = "8218"
    CarNormal(122) = "8220"
    CarNormal(123) = "8221"
    CarNormal(124) = "8222"
    CarNormal(125) = "8224"
    CarNormal(126) = "8225"
    CarNormal(127) = "8230"
    CarNormal(128) = "8240"
    CarNormal(129) = "8249"
    CarNormal(130) = "8250"
    CarNormal(131) = "8364"

    For i = 1 To UBound(CarHTML)
        If InStr(s, CarHTML(i)) > 0 Then
            s = Replace(s, CarHTML(i), ChrW(CarNormal(i)))
        End If
    Next i
    RemplacerHtml = s
End Function

 

[Nicephore]

Re : Caracteres web

Super
Merci a vous 2.

 

[Nicephore]

Re : Caracteres web

Une question encore
Où trouver tous ces codes (CarNormal(131) = "8364" = CarHTML(131) = "€") ?

 

[kiki29]

Re : Caracteres web

Salut, via par exemple une recherche Gog sur caractères speciaux html, ce que j'ai fait avant de formater le tableau Html du site web idoine sous Excel via des formules du style =T("CarHTML(" & LIGNE() &")=")& D1 pour obtenir des chaines qui, au final, par copier/coller dans VBE fournissent les tableaux

    CarHTML(1) = """
    CarHTML(2) = "'"
    CarHTML(3) = "&"
    CarHTML(4) = "<" 
    .....

La liste fournie n'est pas exhaustive
A titre d'exemple de liste voir par exemple Les caractres spciaux en (X)HTML