Discussion :

[mnssylvain]

bonjour,

J'utilise un code trouvé sur le forum qui permet de générer un "code d'enregistrement"

J'ai un soucis sur cette ligne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

    vReturn = vReturn + (Asc(Mid(Value, x, 1)) * Asc(Mid(Value, x, 1)))

Value est une chaine de caractère que l'utilisateur rentre.

Le problème: Si cette chaine de caractère contient un acent (é, è ou à) j'ai une erreur de dépassement de capacité, meme si ma chaine ne contient qu'une seule lettre....)

Par contre je peux mettre une grosse quantité de lettre sans accent et là ça marche niquel....

Je pense que ça vient de la fonction ASC qui fonctionne avec des caractère "unicode" d'apres l'aide d'acces.
Est ce qu'un é ne fait pas parti de ces caractères unicode?
Comment puis je contourner cette limitation? (j'ai besoin des accents)

merci d'avance

[Jean-Philippe André]

salut,
il faut veiller à prendre des noms de variables qui ne risquent pas d'interférer avec les noms spécifiques à VBA (tout comme tu ne vas pas nommer un champ SELECT par exemple...).
Pour les caractères ascii : http://asciitable.com/
ta méthode de génération de code, c'est toi qui l'a choisie ?

[mnssylvain]

salut
merci pour ta réponse.

Le pb c'est que l'utilisateur doit rentrer un nom et ce nom peut contenir des accents.

La m'éthode de génération de code je l'ai trouvé sur le forum, j'avoue ne plus savoir où....
Mais je peux éventuellement changer de méthode et choisir quelquechose qui gére les accents....

Je vais chercher un peu plus

merci encore

[philben]

bonjour,

Asc() renvoie un Integer donc dépassement de capacité par la multiplication dans certains cas.

Ecrire :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
vReturn = vReturn + CLng(Asc(Mid(s, 1, 1))) * Asc(Mid(s, 1, 1))

Philippe

[mnssylvain]

Philben t'es génial

merci beaucoup tu m'enlève une belle grosse épine du pied.