codebarre 39

[gothc]

Bonjour je cherche un code vba pour lire les codebarre 39 sur mon fichier excel

Merci de votre aide

 

[JCGL]

Re : codebarre 39

Bonjour à tous,

Voir le portail du Grand Zebu : ICI

PublicFunction Code39$(chaine$)
'V 1.0
'Paramètres : une chaine
'Retour : * une chaine qui, affichée avec la police CODE39.TTF, donne le code barre
' * une chaine vide si paramètre fourni incorrect
Dim i%
Code39$ = ""
If Len(chaine$) > 0 Then
'Vérifier si caractères valides
For i% = 1 To Len(chaine$)
SelectCase Asc(Mid$(chaine$, i%, 1))
Case 32, 36, 37, 43, 45 To 57, 65 To 90
CaseElse
i% = 0
ExitFor
EndSelect
Next
If i% > 0 Then
Code39$ = "*" & chaine$ & "*"
EndIf
EndIf
EndFunction

A+ à tous

 

[gothc]

Re : codebarre 39

Merci beaucoup je fais le test Bon dimanche

 

[JCGL]

Re : codebarre 39

Bonjour à tous,

Il faut bien sûr installer la police 3 de 9.ttf

A+ à tous

 

[gothc]

Re : codebarre 39

ok mon fichier fonctionne je test demain avec la douchette
Bonne soirée