Code barre 39 et espace

[anber]

Bonsoir le Forum,

Quel caractère ou astuce pour avoir un espace dans un code à barre en code 39 dans excel?

Si on utilise la barre d'espace on crée un trou dans le code barre

Quelqu'un a-t-il rencontré ce problème

Merci

 

[JCGL]

Re : Code barre 39 et espace

Bonjour à tous,

Peux-tu essayer avec &" "&

A+ à tous

 

[anber]

Re : Code barre 39 et espace

Bonsoir,

Oui j'ai déjà essayé, toujours le trou (gros espace dans le code barre)

Merci

 

[JCGL]

Re : Code barre 39 et espace

Bonjour à tous,

Peux-tu essayer avec le caractère *

Voir le portail du Grand Zebu : ICI

A+ à tous

 

[anber]

Re : Code barre 39 et espace

Bonjour,
C'est pareil, * ne me fait prendre que la première partie

 

[Victor21]

Re : Code barre 39 et espace

Bonjour, anber, Jean-Claude 🙂

Quel caractère ou astuce pour avoir un espace dans un code à barre en code 39 dans excel?

Si on utilise la barre d'espace on crée un trou dans le code à barres

Pour avoir 222 avec une police Code39, je tape sur mon clavier 222, et pour avoir 2 22, je tape 2 22.
Effectivement il y a un trou dans le code à barres ainsi généré, mais il y a également un trou (espace) quelque soit la police utilisée.

 

[anber]

Re : Code barre 39 et espace

Bonjour Victor21,

Bien d'accord avec toi, mais ce ne pas bon.
espace (en ascii) créé un large espace dans le code barre, alors que ce devrait un caractère "normal" dans le code barre, ce que j'obtiens avec un logiciel spécifique, mais que je n'arrive pas à traduire sous Excel

Merci

 

[Modeste geedee]

Re : Code barre 39 et espace

Bonsour®

Bonjour Victor21,

Bien d'accord avec toi, mais ce ne pas bon.
espace (en ascii) créé un large espace dans le code barre, alors que ce devrait un caractère "normal" dans le code barre, ce que j'obtiens avec un logiciel spécifique, mais que je n'arrive pas à traduire sous Excel

Merci

as-tu consulté le lien fourni par JCGL (site de GrandZebu)

tu y as un code qui fonctionne !!!

Public Function 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$)
      Select Case Asc(Mid$(chaine$, i%, 1))
      Case 32, 36, 37, 43, 45 To 57, 65 To 90
      Case Else
        i% = 0
        Exit For
      End Select
    Next
    If i% > 0 Then
      Code39$ = "*" & chaine$ & "*"
    End If
  End If
End Function

 

[anber]

Re : Code barre 39 et espace

Bonjour,
J'avais trouvé aussi ce code. Il fonctionne.
Il fallait seulement que j'installe la police code 3 de 9 en plus de code39

Merci