XL 2016 VBA - Impossible: c <> Chr(Asc(c)) ! Unicode Character 'NARROW NO-BREAK SPACE'

[Dudu2]

Bonjour,

D'une feuille récupérée de Google Sheets ou les nombres sont en String, j'essaie de les transformer en nombres.
Le blanc insécable Chr(160) est bien présent et pourtant je n'arrive pas à l'identifier dans un Instr().
De plus pour ce caractère c <> Chr(Asc(c)).

C'est le b.a. ba du VBA et je n'y comprends rien !
Une idée ? Merci.

 

[Dudu2]

Oui bien sûr, je sais bien que Asc et AscW donnent le même résultat sur un caractère ASCII.
C'est d'ailleurs parfaitement décrit dans la doc Microsoft.

Mais je ne vais utiliser AscW uniquement pour convertir le NNBSP en Chr(160) préalablement au traitement. Et dans le traitement je n'utilise ni Asc ni AscW.
Si je teste (c >=0 and c <= 9) Or (c = Application.ThousandsSeparator) , si c'est un caractère UNICODE autre que NNBSP, le résultat sera faux.

 

[Dudu2]

Alors, je pourrais étendre l'acceptation du UNICODE aux autres caractères. Auquel cas je m'intéresserais effectivement à la différence entre Asc et AscW.
Mais je ne sais pas jusqu'où une fonction de conversion (ex. StrConv(x, vbFromUnicode) est capable de donner un résultat valide/correct. Cette même fonction n'étant pas capable de convertir le NNBSP.

 

[yal]

Finalement ce n'est pas si long, moins de 2s pour 100 000 valeurs avec AscW

 

[Hasco]

Bonjour le fil,

La formule ci-dessous ainsi que la macro, fonctionnent sur le tableau de chaînes de caractères du fichier du post#1 :

=CNUM(SUBSTITUE(C5;UNICAR(8239);""))

Sub Remplacer()
    Dim tbl As Variant
    Dim i As Integer, cpt As Integer
    tbl = Sheets("exemple").Range("C5:C8").Value
    cpt = UBound(tbl)
    For i = 1 To cpt
        tbl(i, 1) = Replace(Replace(tbl(i, 1), ChrW(8239), ""), ",", ".")
    Next i
'  Nouvelles valeur en colonne A pour exemple
    Sheets("exemple").Range("A5:A8") = tbl
End Sub

Cordialement

 

[Dudu2]

Bonjour @Hasco,
Cette fois j'ai vu ton message 😎
Merci à toi pour ce code et la formule.
Et merci à tous pour vos contributions salutaires

 

[LammariOm]

Bonjour le fil,

La formule ci-dessous ainsi que la macro, fonctionnent sur le tableau de chaînes de caractères du fichier du post#1 :

Sub Remplacer()
    Dim tbl As Variant
    Dim i As Integer, cpt As Integer
    tbl = Sheets("exemple").Range("C5:C8").Value
    cpt = UBound(tbl)
    For i = 1 To cpt
        tbl(i, 1) = Replace(Replace(tbl(i, 1), ChrW(8239), ""), ",", ".")
    Next i
'  Nouvelles valeur en colonne A pour exemple
    Sheets("exemple").Range("A5:A8") = tbl
End Sub

Cordialement

Merci beaucoup 👌

 

[LammariOm]

Bonjour le fil,

La formule ci-dessous ainsi que la macro, fonctionnent sur le tableau de chaînes de caractères du fichier du post#1 :

Sub Remplacer()
    Dim tbl As Variant
    Dim i As Integer, cpt As Integer
    tbl = Sheets("exemple").Range("C5:C8").Value
    cpt = UBound(tbl)
    For i = 1 To cpt
        tbl(i, 1) = Replace(Replace(tbl(i, 1), ChrW(8239), ""), ",", ".")
    Next i
'  Nouvelles valeur en colonne A pour exemple
    Sheets("exemple").Range("A5:A8") = tbl
End Sub

Cordialement

Merci beaucoup 👌