Modifier caractère spéciaux Excel 2019

Question

Tout en VBA, voilà mon souci, je vais chercher sur internet des données en copiant la page en HTML sur un document .txt, puis j'utilise ses données pour récupérer ce qui me convient. le souci est que sur la page internet, ce que je voudrais reprendre est comme ceci : Live☆Twin après avoir copier cette chaine de caractère dans une variable en string, mon contenu est comme ceci: Liveâ˜†Twin puis je passe mon contenu dans un module qui remplace les caractère spéciaux (car c'est normale qui il y est de différents caractères et c'est pas le premier), mais celui-ci impossible de le faire. je ne comprend pas ce qui se passe. comment remplacer "â˜†" par "☆"??? auriez-vous une petite idée miracle? merci à vous Cordialement...

eriiic · Accepted Answer

Sub test() Dim ch As String ch = "Live " & ChrW(&H2606) & " Twin" Range("A1") = ch End Sub eric...

Optimix · Answer

Je pense qu'il faut d'abord identifier le code ascii à changer à l'aide d'une boucle. Je procèderais comme suit :

Sub Macro1()
    Dim chaine As String, i As Integer

    chaine = "Live†Twin" ' ASCII 134 à remplacer par une étoile
    For i = 1 To Len(chaine)
        MsgBox Mid(chaine, i, 1) & " = " & Asc(Mid(chaine, i, 1))
    Next i

    ' Un a identifié le caractère 134, on le remplace dans la chaîne par une étoile
    chaine = Replace(chaine, Chr(134), "*")
    MsgBox chaine

End Sub

Jean-Paul · Answer

Pour : ou est ce que vous avez trouvé le numéro de se caractère? c'est par ici pour de plus que signifie le W après le Chr? c'est par là que cela se passe...