Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionFunction Char2ISO(myChar As String) As String If myChar = "" Then Exit Function If myChar = "|" Then Char2ISO = ",": Exit Function Select Case myChar Case "µ" Char2ISO = "§micro;" Case "«" Char2ISO = "§laquo;" Case "»" Char2ISO = "§raquo;" Case "¤" Char2ISO = "§curren;" 'Case "§" 'Char2ISO = "§amp;" Case Chr(34) Char2ISO = "§quot;" Case " " Char2ISO = " " ' Was "§nbsp;" Case "®" Char2ISO = "§reg;" Case "©" Char2ISO = "§copy;" Case "À" Char2ISO = "§Agrave;" Case "Á" Char2ISO = "§Aacute;" Case "Â" Char2ISO = "§Acirc;" Case "Ã" Char2ISO = "§Atilde;" Case "Ä" Char2ISO = "§Auml;" Case "Å" Char2ISO = "§Aring;" Case "Æ" Char2ISO = "§Aelig;" Case "æ" Char2ISO = "§aelig;" Case "à" Char2ISO = "§agrave;" Case "á" Char2ISO = "§aacute;" Case "â" Char2ISO = "§acirc;" Case "ã" Char2ISO = "§atilde;" Case "ä" Char2ISO = "§auml;" Case "å" Char2ISO = "§aring;" Case "Ç" Char2ISO = "§Ccedil;" Case "ç" Char2ISO = "§ccedil;" Case "È" Char2ISO = "§Egrave;" Case "É" Char2ISO = "§Eacute;" Case "Ê" Char2ISO = "§Ecirc;" Case "Ë" Char2ISO = "§Euml;" Case "è" Char2ISO = "§egrave;" Case "é" Char2ISO = "§eacute;" Case "ê" Char2ISO = "§ecirc;" Case "ë" Char2ISO = "§euml;" Case "Ì" Char2ISO = "§Igrave;" Case "Í" Char2ISO = "§Iacute;" Case "Î" Char2ISO = "§Icirc;" Case "Ï" Char2ISO = "§Iuml;" Case "ì" Char2ISO = "§igrave;" Case "í" Char2ISO = "§iacute;" Case "î" Char2ISO = "§icirc;" Case "ï" Char2ISO = "§iuml;" Case "Ò" Char2ISO = "§Ograve;" Case "Ó" Char2ISO = "§Oacute;" Case "Ô" Char2ISO = "§Ocirc;" Case "Õ" Char2ISO = "§Otilde;" Case "Ö" Char2ISO = "§Ouml;" Case "ò" Char2ISO = "§ograve;" Case "ó" Char2ISO = "§oacute;" Case "ô" Char2ISO = "§ocirc;" Case "õ" Char2ISO = "§otilde;" Case "ö" Char2ISO = "§ouml;" Case "Ø" Char2ISO = "§Oslash;" Case "ø" Char2ISO = "§oslash;" Case "Ù" Char2ISO = "§Ugrave;" Case "Ú" Char2ISO = "§Uacute;" Case "Û" Char2ISO = "§Ucirc;" Case "Ü" Char2ISO = "§Uuml;" Case "ù" Char2ISO = "§ugrave;" Case "ú" Char2ISO = "§uacute;" Case "û" Char2ISO = "§ucirc;" Case "ü" Char2ISO = "§uuml;" Case "Ý" Char2ISO = "§Yacute;" Case "Ÿ" Char2ISO = "§Yuml;" Case "ý" Char2ISO = "§yacute;" Case "ÿ" Char2ISO = "§yuml;" Case "Ñ" Char2ISO = "§Ntilde;" Case "ñ" Char2ISO = "§ntilde;" Case "þ" Char2ISO = "§Thorn;" Case "Ð" Char2ISO = "§Eth;" Case "ð" Char2ISO = "§eth;" Case "Þ" Char2ISO = "§thorn;" Case "ß" Char2ISO = "§szlig;" Case "œ" Char2ISO = "§oelig;" Case "Œ" Char2ISO = "§OElig;" Case Else Char2ISO = myChar End Select End Function
text-align:justify;? ou au pire en utilisant <PRE> mais bon ce n'est pas très recommandé comme solution car cette balise est fortement dépréciée.