XL 2016 VBA - Comment utiliser ESC (Chr(27) ou &H1B) dans une constante pour valoriser 1 caractères ?

[Dudu2]

Bonjour,

J'ai une chaine en constante:
Const Str = "A" & ESC & "B"
Comment puis-je représenter ESC pour que Len(Str) = 3

- Chr(27) ça passe pas en constante
- &H1B ça fait 2 caractères


Merci par avance

 

[sylvanu]

Bonjour Dudu,
Au hasard, pourquoi déclarer Str comme une constante. Passez la en variable.
D'autre part Str ne passe pas, il semble être un mot réservé. Avec Stra cela donne la bonne longueur :

 

[Dudu2]

Bonjour @sylvanu,
Oui évidemment.
Pour l'instant j'ai mis "ESC" dans la constante que j'ai ensuite chargée dans une variable avec un replace de ce "ESC" par Chr(27).
Mais je voulais éviter le chargement en variable.

 

[sylvanu]

Re,
J'ai aussi essayé mais le VBA me semble bien têtu sur ce point. 🙂
Bah, une variable c'est pas non plus la fin du monde ... surtout s' il n'y a pas d'alternative apparemment.

 

[sylvanu]

Re,
En trichant, on peut être plus têtu que lui.
On lance la macro du post #2 avec point d'arrêt. Dans la fenêtre Variables locales, on récupère Stra.
Qu'on ré-introduit en constante .
Je n'ai pas mis le code ici car ce fameux chr(27) est "mangé" par l'éditeur VBA de XLD.
J'ai donc mis la PJ.
L'analyse de la chaine est correcte, on a bien code 27 pour le second caractère :

 

[Dudu2]

Ok merci @sylvanu.