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

Dudu2

XLDnaute Barbatruc

• 12 Mars 2022

• #2

Le AscW() donne 8239 ! Soit U+202F
Ça veut dire que ce caractère est en Unicode ? Dans Excel ? C'est possible ?

Comment le convertir ? StrConv(Mid(v, 2, 1), vbFromUnicode) donne un longueur nulle !

 

Dernière édition: 12 Mars 2022

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 12 Mars 2022

• #3

Bonjour Dudu2

Apparemment, ce n'est pas un Chr(160)
car cette formule : =CHERCHE(CAR(160);C5) donne #VALEUR!

Alors que ce test fonctionne

VB:

Sub test()
Range("A1").FormulaR1C1 = "=""Staple""&CHAR(160)&1600"
Range("A1") = Range("A1").Value
Range("B1").FormulaR1C1 = "=SEARCH(CHAR(160),RC[-1])" 'renvoie 7
End Sub

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 12 Mars 2022

• #4

Re

Effectivement, tu as raison et Excel confirme
=UNICODE(STXT(C5;2;1)) renvoie 8239

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 12 Mars 2022

• #5

Bonjour.
Oui, c'est possible :

 

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 12 Mars 2022

• #6

Bonjour @Staple1600, @Dranreb,

Comment le reconnaitre ? Parce que Chr() <> ChrW() ?
Comment le convertir ? StrConv(Mid(ActiveCell.Value, 2, 1), vbFromUnicode) donne un longueur nulle !

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 12 Mars 2022

• #7

Retrouver le code ascii vous voulez dire ? : AscW(ChrW$(&H202B))

 

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 12 Mars 2022

• #8

Non, je voulais dire comment le convertir de l'Unicode (x'202F', 8239) en ASCII "normal" (x'A0', 160) ?
Sans avoir à faire la correspondance manuelle.

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 12 Mars 2022

• #9

Je ne comprends pas, c'est un autre caractère c'est tout.

En police Calibri il fait partie d'une série de 7 caractères apparaissant comme un espace compris entre ces deux là :

 

Dernière édition: 12 Mars 2022

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 12 Mars 2022

• #10

C'est un autre caractère. Pas seulement, c'est un autre jeu de caractères.
Et dans le code, on travaille avec de l'ASCII. Si je teste >= "0" And <= "9" je vais pas aussi le coder pour des valeurs UNICODE.

Il existe bien des fonctions de conversions (ex: https://blog.brettski.com/2009/12/04/vba-convert-unicode-to-ascii/) mais pour le séparateur insécable - [narrow] no-break space - (ASCII x'A0', Unicode x'202F') ça ne fonctionne pas (résultat = "&").

Quant au StrConv(Mid(ActiveCell.Value, 2, 1), vbFromUnicode) ça ne donne rien pour le "NNBSP".

Donc je vais faire du pas propre en faisant une correspondance hard-codée pour le "NNBSP".

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 12 Mars 2022

• #11

Pour les caractères codés sur un seul octet Asc et AscW renvoient la même valeur
De même qu'un Byte aboutit au même caractère que ce soit par Chr$ ou ChrW$.

 

Dernière édition: 12 Mars 2022

Vote positif 0 Vote négatif

TooFatBoy

XLDnaute Barbatruc

• 12 Mars 2022

• #12

Bonjour,

Effectivement, ce n'est pas seulement un autre caractère. Il est codé sur deux octets.

Tu peux tout simplement le supprimer :

Enrichi (BBcode):

MaValeur = Replace(MaValeur, ChrW(8239), "")

 

Vote positif 0 Vote négatif

Y

yal

XLDnaute Occasionnel

• 12 Mars 2022

• #13

Bonjour
J'ai réussi à faire la conversion mais j'espère qu'il n'y a pas 100000 valeurs à convertir.

VB:

Sub Transforme()
  Dim x, y
  Dim i!, j!
    x = Range("C5:C8")
    For i = 1 To UBound(x)
      For j = 1 To Len(x(i, 1))
        If (Asc(Mid(x(i, 1), j, 1)) >= 48 And Asc(Mid(x(i, 1), j, 1)) <= 57) Or Asc(Mid(x(i, 1), j, 1)) = 44 Then
          y = y & Mid(x(i, 1), j, 1)
        End If
      Next j
      x(i, 1) = CDbl(y)
      y = ""
    Next i
    Range("C10:C13") = x
 
End Sub

 

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 12 Mars 2022

• #14

Bonjour @Marcel32, @yal,

Merci pour vos contributions.
Je peux effectivement faire une exception pour le "NNBSP" 8239.

Ce que j'aurais préféré c'est:
Si c'est un caractère sur 2 octets (Asc() <> AscW()) je prends arbitrairement l'hypothèse que c'est un caractère UNICODE et je le convertis en ASCII avant d'appliquer le traitement.

Hélas je ne peux pas faire ça car rien que pour le NNBSP, je ne trouve aucune fonction de conversion qui marche. Donc je vais le faire à la hache: convertir le NNBSP 8239 en 160 (Application.ThousandsSeparator) et supposer que tout le reste est en ASCII.

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 12 Mars 2022

• #15

Ben il vaudrait mieux me semble-t-il utiliser AscW pour éviter de récupérer, avec Asc, une partie seulement d'un unicode qui pourrait très bien aussi être comprise entre 48 et 57 ou valoir 44 !
Je le répète Asc et AscW donne la même chose pour un caractère codé sur un octet.

 

Vote positif 0 Vote négatif