Discussion :

[EmmanuelleC]

Bonjour,

Toujours dans mon histoire d'import a automatiser, je mouline une description pour en virer certains caracteres sur ce modele

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
'suprime les retours à la ligne
descritption = Replace(descritption, Chr(10), " ")
descritption = Replace(descritption, Chr(13), " ")
'suprime certain caracteres spéciaux
'™
descritption = Replace(descritption, Chr(153), " TM ")
'®
descritption = Replace(descritption, Chr(174), "(R)")
'©
descritption = Replace(descritption, Chr(169), "(C)")
';
descritption = Replace(descritption, Chr(59), ",")

mais la je viens d'en avoir 2 autres que je veux virer automatiquement, « ㎜ » et « Ⅱ » , et je n'arrive pas a trouver.
Si je les mets dans une cellule et que je met =code(cette cellule) ca me donne 63 comme réponse dans les deux cas. Et 63, ca a l'air d'etre le point d'interrogation

Est-ce que j'ai un moyen de les virer avec du VBA sans virer les points d'interrogations innocents?

[JPierreM]

Bonjour,

Je retrouve le caractère Ⅱ

Code :

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

1
2
3
Sub sc1()
    Cells(1,1) = ChrW("&H" & 2161)
End Sub

par contre pour l'autre?

[Didier Gonard]

Bonjour,

pour mm :

Code :

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

Cells(1, 1) = ChrW("&H339C")

cordialement,

Didier

[EmmanuelleC]

Super, un grand merci ca fonctionne parfaitement

Juste pour me coucher moins bete ce soir, comment est-ce qu'on fait pour trouver a partir du caractere le code a mettre en argument du ChrW?

Il y a la commande inverse? ou ca se trouve dans des tables de correspondance?

[Edit] J'ai trouvé une méthode. Si on fait AscW(Cells(1, 1)) (avec le caractere a identifier dans la cellule A1), il retourne une référence qu'on peut donner comme arguement à ChrW apres

Par contre, je présume que vous avez fait autrement parce qu'en faisant ainsi, j'obtiens comme correspondance et que c'est pas les même
Ⅱ = ChrW(8545)
㎜ = ChrW(13212)

[Didier Gonard]

Un peu de méthode et un peu de pif pour les plus rares.

C'est très complexe,en gros : la norme ASCII, obsolète, ne gère que 128 caractères, la norme Unicode (il y a des évolutions) en gère possiblement 100_000.

Ensuite tu as la notion de Jeu de caractères, puis de polices.

Tout ça te mène sous Excel ou Word à Insertion, Caractères spéciaux.
En cliquant sur un caractères, tu as son code affiché dans la case Code du caractère en bas.

Tu retrouves le codage unicode et ascii dans le menu à côté et polices et sous ensemble en haut.

Le soucis, vu que la norme ISO 10646-1 n'est pas très vieille par rapport aux apllis sur le marché, tous le codes ne sont pas implémentés, et pas de façons égales partout...

Pour avoir presque tout (ou tout ?), vois ce lien :

http://alis.isoc.org/codage/iso10646/index.html

cordialement,

Didier

[Didier Gonard]

[Edit] J'ai trouvé une méthode. Si on fait AscW(Cells(1, 1)) (avec le caractere a identifier dans la cellule A1), il retourne une référence qu'on peut donner comme arguement à ChrW apres

Par contre, je présume que vous avez fait autrement parce qu'en faisant ainsi, j'obtiens comme correspondance et que c'est pas les même
Ⅱ = ChrW(8545)
㎜ = ChrW(13212)

Bravo !

Si, c'est la même, mais pas encodée de la même façon :

AscW renvoie le code de caractère Unicode

si tu fais :

Code :

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

1
2
Cells(1, 1)=ChrW(13212)
Cells(2, 1)=hex(13212)

tu auras bien mm en A1 et 339C en A2, 339C est 13312 en hexadécimal

Ceci est valable si tu as le caractère affiché, mais tu auras besoin de tables si tu veux l'afficher et que tu ne connais pas son code, on peut toujours faire une boucle d'affichage

Ce qui fait que pour te renseigner, on devait avoir le caractère, un exemple peu courant de l'utilité d'un fichier joint précoce

Petit jeu : tapes dans le fenêtre d'exécution de vba :

Code :

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

?ChrW(13212)

tu comprendras tes premiers résultats...

cordialement,

Didier

[EmmanuelleC]

Mais tu auras besoin de tables si tu veux l'afficher et que tu ne connais pas son code, on peut toujours faire une boucle d'affichage

Oui, dans l'autre sens c'est moins pratique, j'en conviens.
Mais en l'occurence, je suis limitée a un seul sens, je dois intégrer une liste qui intégre de caractere norme ISO 10646-1 dans un programme qui ne le gere pas (et donc les virer/remplacer) mais on ne me demande pas de pouvoir rajouter des nouveau caracteres dans la liste épurée

J'ignorais qu'une commande VBA pouvait tolérer comme argument du décimal ou de l'exadécimal

Ce qui fait que pour te renseigner, on devait avoir le caractère, un exemple peu courant de l'utilité d'un fichier joint précoce

Petit jeu : tapes dans le fenêtre d'exécution de vba :

Code :

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

?ChrW(13212)

tu comprendras tes premiers résultats...

La par contre, j'ai rien compris :p

J'ignore ce qu'est un fichier joint précoce et j'ai testé le petit jeu, il a remplacé mon "?ChrW(13212)" par "Print ChrW(13212)" mais ca ne m'aide pas a comprendre