Virer par macro certains caractere spéciaux?

Bonjour,

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

Code:

---

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?

Bonjour,

Je retrouve le caractère Ⅱ

Code:

---

1 2 3

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

---

par contre pour l'autre?

Bonjour,

pour mm :

Code:

---

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

---

cordialement,

Didier

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)

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

Citation:

---

Envoyé par EmmanuelleC

[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:

---

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 :calim2:

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 :D

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

Code:

---

?ChrW(13212)

---

;) tu comprendras tes premiers résultats...

cordialement,

Didier

Citation:

---

Envoyé par Ormonth

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 :calim2:

---

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 :)

Citation:

---

Envoyé par Ormonth

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 :D

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

Code:

---

?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 :oops:

Citation:

---

Envoyé par EmmanuelleC

il a remplacé mon "?ChrW(13212)" par "Print ChrW(13212)" mais ca ne m'aide pas a comprendre

---

on commence par là car on l'utilise par la suite..

Quand tu tapes dans la fenêtre exécution une commande, il faut faire Return pour la valider donc si tu tapes ? "Toto" et que tu valides, il inscrit en-dessous Toto, le ? étant équivalent ici à Print.

Donc après ?ChrW(13212), il faut valider ce qui te retournera un point d'interrogation car l'éditeur ne supporte pas ces codes caractères, ce qui explique pourquoi tu obtenais des ? au début. De plus ton éditeur peut traduire ? par Print :roll:

Citation:

---

Envoyé par EmmanuelleC

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

---

Une commande vba tolère ce pour quoi elle a été programmée ;)

tout est dans l'aide VBA :

Chr tolère un nombre de type Long comme argument, tout autre chose entraînera une erreur.

Citation:

---

Long, type de données
Nombre entier codé sur 4 octets et dont la valeur est comprise entre -2 147 483 648 et 2 147 483 647. Dans Visual Basic, le signe et commercial (&) est le caractère de déclaration du type Long.

---

Donc quand on écrit :

Code:

---

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

---

on lui fournit bien un Long...

Si tu mets dans la fenêtre exécution :

Code:

---

? &H339C

---

+ return, il te retournera 13112, ce qui explique que

Code:

---

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

---

soit OK.

Citation:

---

J'ignore ce qu'est un fichier joint précoce

---

ça c'était un clin d'œil, si tu regardes en haut de forum, tu as le sujet suivant :

Fichiers joints VBA : http://www.developpez.net/forums/d84...s-discussions/

Un fichier joint précoce est donc un fichier joint à l'ouverture d'un discussion, non utile généralement ;)

cordialement,

Didier

Ah oui, un fichier joint comme ca :)
Je pensais qu'en copiant collant les caracteres sur le forum, ca marcherait aussi bien vu qu'ici, c'était vraiment un caractere dans une description qui posait probleme et pas vraiment le fichier en lui meme (pas de structure compliquée, meme pas de formule)

J'ignorais que le & déclarait un entier long.

En tout cas, merci pour les infos :)