Discussion :

[MacroTD]

Bonjour,

Je souhaite afficher un code-barres de type 128 dans un TextBox (sur un UserForm) avec comme contenu un nombre présent dans une cellule.
J'utilise la police et la fonction de : https://grandzebu.net/informatique/codbar/code128.htm

Le code-barres s'affiche correctement dans une feuille Excel mais les caractères spéciaux ne semblent pas être transformés en Code 128 dans le TextBox.
Exemple :



Auriez-vous une idée du problème ?

Merci d'avance

[Invité]

Bonjour,
télécharges sur internet la police de caractère 128!

[MacroTD]

Comme indiqué dans mon précédent message, j'ai téléchargé la police Code128.ttf de GrandZebu.

Cette police fonctionne bien sur les feuilles Excel (colonne 3 de la capture d'écran) mais pas dans les TextBox. J'ai essayé de télécharger la police Code 128 sur d'autres sites mais rien n'y fait...

[Menhir]

Le code-barres s'affiche correctement dans une feuille Excel mais les caractères spéciaux ne semblent pas être transformés en Code 128 dans le TextBox.

Tout simplement parce que cette police de caractère n'inclue pas certains caractères accentués (qui font pourtant partie du code 128).
Regarder ceci : https://www.dafont.com/fr/code-128.font?text=%D2
https://fr.wikipedia.org/wiki/Code_128

Dans les polices de code barres, la plus complète que je connaisse est la MRV.
https://www.dafont.com/fr/mrv-code39...af=on&text=%D2

[MacroTD]

Tout simplement parce que cette police de caractère n'inclue pas certains caractères accentués (qui font pourtant partie du code 128).

Si c'était le cas, pourquoi cela fonctionne sur la feuille Excel ? Il s'agit bien de la même chaîne de caractères mise en police Code 128 et le code-barres s'affiche correctement.

[patricktoulon]

re
@MacroTD pourrais tu donner la chaine avec tes caracteres particuliers pour que je puisse tester

@menhir : mrvcode39extma.ttf ne semble pas dispo dans les fonts du textbox pourtant bien installé

[Menhir]

J'évite autant que possible d'utiliser les Userform (et jusqu'à présent, j'y suis parvenu pour mon grand bonheur ).
Je n'ai donc pas d'expérience sur ses objets.
Mais peut-être que les TextBox filtre les polices et n'en utilisent qu'une partie, ou même une partie des codages de certaines polices
Les polices sont devenues tellement complexes depuis Win XP et sa gestion des langages (d'un autre côté, j'apprécie de pouvoir écrire si facilement en thaï, en khmer, en birman et autres ).

[Invité]

Bonsoir,

Menhir (), comme je t'envie le français me suffirait.

[patricktoulon]

re
rectificationen en fait c'est excel tout entier qui filtre sur notepad je l'ai dispo
w7 off 2007

c'est vrai qu'il est plus complet celui la dommage pour excel

[Invité]

Fais un teste dans un label????

[patricktoulon]

bien vue Robert ca match
donc pas dispo dans cellule ,dans textbox....
mais dans label oui
conclusion on peux utiliser un label a la place d'un textbox c'est pas trop grave vu que l'ecriture se ferait en general en un coup
bien que ca aussi soit rémédiable sur un label

[Invité]

Bonjour,
En fait un textebox ne sait pas passer d'un mode graphique (code barre ) à un mode édition (texte)! Car sens ce double mode comment savoir quel caractère est tapé au clavier. Il faut utiliser évènement change d'un textebox pour alimenter le label. C'est comme ça que je fais en .net.

[MacroTD]

Merci pour vos réponses.

Pour ma part, ça ne semble pas non plus fonctionner dans un label... Auriez-vous un bout de code que je puisse tester ?

[patricktoulon]

Bonjour MacroTD
on te parle du font "MRV Code39extMA"
cependant apres test de tout les caracteres particuliers posibles celui semble aussi avoir des manques

je dirais donc qu'au final tu n'est pas mieux loti

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub CommandButton1_Click()
With Label2
.Font.Name = "MRV Code39extMA"
.Caption = TextBox1.Value
End With
With Label4
.Font.Name = "Code 128"
.Caption = TextBox1.Value
End With
End Sub

c'est vraiment necessaire d'afficher le code barre dans ton USF?

apres je sais pas si ca une importance mais tu pourrais remplacer au préalable les caracteres accentués par leur hommologues sans accent
et ainsi formater tout tes codes

edit:
j'ajouterais que la representation graphique des deux font sont completement differentes tu va avoir un soucis de lecture si ces codes doivent passer a la douchette comment savoir si un caractere est bien représenté dans l'une ou l'autre font
si tu tiens vraiment a avoir un font codebarre tu pourrais te le faire toi meme avec un tableau binnaire de tout les caractere "fontcreator" c'est du boulot crois moi

[MacroTD]

c'est vraiment necessaire d'afficher le code barre dans ton USF?

Malheureusement oui... Je dois afficher mon code-barres dans mon UserForm et l'afficher en Code 128 (et pas 39).

[patricktoulon]

re
en code 128 ,alors c'est foutu terminé!!
je le repete code 128 ne prend les caracteres particulier
je dois meme dire que c'est une chance de les voir ces caracteres car dans le font ouivert avec font creator ils n'y sont pas sous la forme normale tu devrais donc avoir des carréss comme avec la 39

bref terminé

[MacroTD]

apres je sais pas si ca une importance mais tu pourrais remplacer au préalable les caracteres accentués par leur hommologues sans accent
et ainsi formater tout tes codes

Je viens de tester, visuellement le code-barres s'affiche bien mais si j'essaye de le lire avec une douchette, l'information encodée n'est pas la bonne (ce qui est logique).

edit:
j'ajouterais que la representation graphique des deux font sont completement differentes tu va avoir un soucis de lecture si ces codes doivent passer a la douchette comment savoir si un caractere est bien représenté dans l'une ou l'autre font
si tu tiens vraiment a avoir un font codebarre tu pourrais te le faire toi meme avec un tableau binnaire de tout les caractere "fontcreator" c'est du boulot crois moi

Cela me semble en effet lourd à mettre en place...

Sinon, étant donné que cela fonctionne bien dans une cellule Excel, est-il possible de faire une image de la cellule Excel et de l'intégrer dans mon UserForm ? Ce n'est pas top mais ce serait mieux que rien.

[patricktoulon]

re
attention veriefie bien dans tes cellules que tout les caracteres soit bien representés je te dis ca parce que
ils n'existent pas dans code 128
il est donc fort possible qu'il soit tronqués ton code et donc faux
parti de la meme une capture en image serait inutile
contenu code 128

edit
le font code 128 pour pro 600€ c'est pas pour rien a mon avis

[MacroTD]

attention veriefie bien dans tes cellules que tout les caracteres soit bien representés

Le code-barres s'affiche correctement et il est bien lisible avec une douchette (le contenu est bien celui attendu) dans une cellule Excel.
C'est pour cela que j'ai du mal à comprendre ces problèmes de caractères absents dans la police.

[patricktoulon]

re
je confirme
en suprimant les caracteres dans le textbox et en comparant la representation graphique dans une cellule ton code est bien tronqué
je m'en doutais je voulais en etre sur,voila qui est fait