Publipostage avec caractères spéciaux

JNP

XLDnaute Barbatruc

• 21 Avril 2009

• #2

Re : Publipostage avec caractères spéciaux

Bonjour Marie49 🙂,
Qu'entends-tu par ne pas pouvoir les poster ici ?
σ μ ε
Pour récupérer des caractères spéciaux (comme les grecs par exemple), tu peux aller chercher dans Démarrer -> Tous les programmes -> Accessoires -> Outils système -> Table des caractères.
Pour les récupérer en VBA, teste la macro

Code:

Sub test()
Dim I As Integer
For I = 900 To 974
Cells(I - 899, 1) = ChrW(I)
Cells(I - 899, 2) = I
Next I
End Sub

J'ai essayé dans un ComboBox sur un USF

Code:

Private Sub UserForm_Initialize()
Dim I As Integer
For I = 900 To 974
ComboBox1.AddItem ChrW(I)
Next I
End Sub

et ça fonctionne. J'espère que ça résoudra ton problème.
Bonne fin d'après-midi 😎

 

Vote positif 0 Vote négatif

M

marie49

XLDnaute Occasionnel

• 21 Avril 2009

• #3

Re : Publipostage avec caractères spéciaux

Bonjour JNP,

JNP à dit:

Bonjour Marie49 🙂,
Qu'entends-tu par ne pas pouvoir les poster ici ?
σ μ ε

Cliquez pour agrandir...

Désolée, je n'avais pas réussi à les mettre.


Merci pour ta réponse, cela me donne quelques pistes.
Mon problème est que l'utilisateur doit les saisir dans une listbox.
Existe t-il un équivalent clavier pour le chrw?
j'ai trouvé: " avec la touche Alt".

Merci
Marie

 

Dernière édition: 21 Avril 2009

Vote positif 0 Vote négatif

M

marie49

XLDnaute Occasionnel

• 21 Avril 2009

• #4

Re : Publipostage avec caractères spéciaux

Bonjour,

J'ai trouvé pour récupérer les lettres grecques mais j'avais oublié que je passais par une listview après la combobox. La listview perd le caractère et me donne : ( s, µ, e )

Seul le deuxième caractère passe...
Quelqu'un aurait-il une solution ?
En fait Alt 949 ne donne pas le dernier caractère parmi les 3 ci-dessus, dans excel.
Comment dois-je faire?

Marie

 

Dernière édition: 21 Avril 2009

Vote positif 0 Vote négatif

JNP

XLDnaute Barbatruc

• 21 Avril 2009

• #5

Re : Publipostage avec caractères spéciaux

Re 🙂,
Je ne comprends pas, ma ListBox fonctionne correctement. Voir exemple ci-joint.
Bonne nuit 😎

 

Pièces jointes

• Grec.xls

  31.5 KB · Affichages: 105
• Grec.xls

  31.5 KB · Affichages: 105
• Grec.xls

  31.5 KB · Affichages: 105

Vote positif 0 Vote négatif

M

marie49

XLDnaute Occasionnel

• 21 Avril 2009

• #6

Re : Publipostage avec caractères spéciaux

Merci de répondre aussi rapidement.

Je pense que je n'ai pas assez expliqué...


J'utilise un userform pour modifier un tableau dans excel.
Pour cela je visualise les données des lignes par l'intermédiaire d'une listview (10 lignes avec 6 colonnes) dans l'userform, l'utilisateur peut sélectionner la ligne qu'il souhaite modifier...



Ainsi, la modification faite dans la listbox (j'ai plusieurs lignes pour une seule cellule du tableau) est alors répercutée dans la listview et ensuite la validation enregistre tout dans la feuille excel.

Ce n'est pas facile à expliquer sans exemple mais mon projet est trop lourd ...

Je pense que je vais voir pour que la modification se fasse automatiquement sur la feuille. Mais de toute façon, un nouveau passage par la listview va modifier mes valeurs....


Une idée?
Marie

 

Vote positif 0 Vote négatif

JNP

XLDnaute Barbatruc

• 22 Avril 2009

• #7

Re : Publipostage avec caractères spéciaux

Re 🙂,
Effectivement, la ListView semble ne pas reconnaitre les ASCII supérieurs à 255...
Pourquoi ne pas passer par un encodage/décodage avec balise :
Encodage vers USF : Replace σ par <sigma>, μ par <mu> et ε par <epsilon>
Décodage vers la feuille : Replace <sigma> par σ, <mu> par μ et <epsilon> par ε
Si le Replace ne fonctionne pas sur la String, tu peux passer par une boucle sur tous les caractères et tester AscW pour récupérer le code ASCII, et utiliser ChrW pour restituer les caractères spéciaux vers la feuille.
Bon courage 😎

 

Vote positif 0 Vote négatif

P

Pyrof

XLDnaute Occasionnel

• 22 Avril 2009

• #8

Re : Publipostage avec caractères spéciaux

Bonjour,

Je ne suis pas entré dans le détail du code mais voici une piste :
Les caractères > à 255 utilise "l'unicode"

Ces caractères unicode ne sont pas présents dans toutes les polices de caractères. Cela fonctionne avec Times, Arial.
Il faudrait donc vérifier quelle police est utilisée dans la listebox (geneva..)

 

Vote positif 0 Vote négatif

M

marie49

XLDnaute Occasionnel

• 22 Avril 2009

• #9

Re : Publipostage avec caractères spéciaux

Pyrof à dit:

Bonjour,

Je ne suis pas entré dans le détail du code mais voici une piste :
Les caractères > à 255 utilise "l'unicode"

Ces caractères unicode ne sont pas présents dans toutes les polices de caractères. Cela fonctionne avec Times, Arial.
Il faudrait donc vérifier quelle police est utilisée dans la listebox (geneva..)

Cliquez pour agrandir...

Bonjour Pyrof,
J'avais du Tahoma dans ma listview et aussi dans ma listbox. J'ai remplacé par du arial mais le problème persiste.

Je vais tenter la méthode de JPN. Le seul inconvénient est qu'elle ne sera valable que pour ces 3 caractères car je ne peux pas tous les traiter dans une sub.

En tout cas, un grand merci à ce forum. Toujours là pour m'aider ...

Marie

 

Vote positif 0 Vote négatif

JNP

XLDnaute Barbatruc

• 22 Avril 2009

• #10

Re : Publipostage avec caractères spéciaux

Re 🙂,
Il semblerait que ça fonctionne

Code:

Sub test2()
Dim Essai As String
Essai = Range("D55")
Essai = Replace(Replace(Replace(Essai, ChrW(963), "<sigma>"), ChrW(956), "<mu>"), _
    ChrW(949), "<epsilon>")
Range("D56") = Essai
Essai = Replace(Replace(Replace(Essai, "<sigma>", ChrW(963)), "<mu>", ChrW(956)), _
    "<epsilon>", ChrW(949))
Range("D57") = Essai
End Sub

avec en D55 "test σ, μ et ε".
Je regarde pour une table d'équivalence...
A + 😎

 

Vote positif 0 Vote négatif

M

marie49

XLDnaute Occasionnel

• 22 Avril 2009

• #11

Re : Publipostage avec caractères spéciaux

Bonjour JPN,

Je suis en train de tester ta proposition : j'ai un problème lors du passage de ma listview vers ma listbox. J'utilise un tableau pour avoir mes différentes lignes de ma cellule correspondants à plusieurs lignes de la listbox.

je pense que je ne suis pas trop claire.
Voici le code que j'utilise :

Code:

        ValeurContenu = LVDeroulement.SelectedItem.SubItems(6) 'valeur de la listview contenant les balises en guise des caractères grecs
        Call RemplaceBalise_Grec(ValeurContenu) 'Remplacement des balises par des caractères grecs
        [COLOR="Red"]tableau = Split(ValeurContenu, Chr(10))[/COLOR] 'récupération des lignes de la cellule dans un tableau pour ensuite l'afficher dans une listbox 
        
   LBContenu.Clear
    For i = 0 To UBound(tableau)
        LBContenu.AddItem tableau(i)
    Next

Il plante à la partie en rouge.

Il y a peut être une méthode plus simple...

Marie

 

Vote positif 0 Vote négatif

JNP

XLDnaute Barbatruc

• 22 Avril 2009

• #12

Re : Publipostage avec caractères spéciaux

Re 🙂,
J'ai essayé un Split avec des caractères grecs, pas de souci. Par contre, est-ce qu'il ne faudrait pas utiliser ChrW(10) pour le Split, vu que Chr ne prend que jusque 255, et là, il tombe sur du 900 et quelque ?
D'autre part, j'ai développé la table de correspondance (à compléter, mon grec est loin 😀...). En pièce jointe. Sub Test3 dans la feuille1.
A + 😎

 

Pièces jointes

• Grec.xls

  42 KB · Affichages: 151
• Grec.xls

  42 KB · Affichages: 142
• Grec.xls

  42 KB · Affichages: 148

Dernière édition: 22 Avril 2009

Vote positif 0 Vote négatif

M

marie49

XLDnaute Occasionnel

• 22 Avril 2009

• #13

Re : Publipostage avec caractères spéciaux

Merci,

Pas encore regardé la table de correspondance, j'ai toujours une erreur (incompatibilité de type) avec le split. J'ai mis le remplacerBalise_Grec dans la boucle du for, après le split. Mais l'erreur persiste même pour des valeurs sans caractères spéciaux. C'est pourtant comme avant et ça marchait.

Tu as une idée?

Marie

J'ai trouvé ; c'était la déclaration du tableau, elle se trouvait sur la même ligne que ma nouvelle variable ValeurContenu!!! Grosse erreur
Ca marche

 

Dernière édition: 22 Avril 2009

Vote positif 0 Vote négatif

M

marie49

XLDnaute Occasionnel

• 22 Avril 2009

• #14

Re : Publipostage avec caractères spéciaux

J'ai regardé en quoi consistait la table de correspondance : j'ai compris le principe.

Je le mettrai en place cet après midi, dans une feuille invisible de mon fichier Menu.

Un gros gros merci pour m'aider à avancer à grand pas...

Marie

 

Vote positif 0 Vote négatif

JNP

XLDnaute Barbatruc

• 22 Avril 2009

• #15

Re : Publipostage avec caractères spéciaux

Re 🙂,
Si tu as beaucoup de conversions à faire, il serait peut-être judicieux de publier un tableau que tu chargerais à l'ouverture du classeur, afin d'accélérer les accès.
Bon courage 😎

 

Vote positif 0 Vote négatif