CODE POUR AFFICHER UN CODE BARRE À LA NORME 2 OF 5 ENTRELACÉ
vjeux
Messages postés
92
Date d'inscription
lundi 14 avril 2003
Statut
Membre
Dernière intervention
5 décembre 2003
-
5 déc. 2003 à 12:25
cs_Blodox Messages postés 134 Date d'inscription mardi 23 septembre 2003 Statut Membre Dernière intervention 24 octobre 2010 - 3 mars 2010 à 11:59
cs_Blodox Messages postés 134 Date d'inscription mardi 23 septembre 2003 Statut Membre Dernière intervention 24 octobre 2010 - 3 mars 2010 à 11:59
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/18405-code-pour-afficher-un-code-barre-a-la-norme-2-of-5-entrelace
https://codes-sources.commentcamarche.net/source/18405-code-pour-afficher-un-code-barre-a-la-norme-2-of-5-entrelace
3 mars 2010 à 11:59
Créer une fonction :
'----------------------------------------'
Function GEN_BAR(N As Integer) As String
'
Dim S As String
Dim U As String
Dim V As Integer
Dim P As Integer
'
S = Mid(Str(N), 2)
If Len(S) Mod 2 1 Then S "0" + S
'
U = "("
For P = 1 To Len(S) - 1 Step 2
V = Val(Mid(S, P, 2))
If V < 50 Then
U = U + Chr(V + 48)
Else
U = U + Chr(V + 142)
End If
Next
U = U + ")"
'
GEN_BAR = U
'
End Function
'----------------------------------------'
Dans la Feuille :
Colonne B : Police = i2of5txt.ttf avec une taille de l'ordre de 40 pts
Case B1 : mettre la formule =GEN_BAR(A1)
et voila...
1 avril 2004 à 10:23
j'ai un petit probléme avec les sources :
je veux l'intregrer dans excel de la facon suivante :
dans la premiere colonne de donne la combinaison de chiffres a encoder et dans la deuxieme colonne je souhaite obtenir le code barre
or je ne parvient pas a le faire ,peut etre quelqu'un pour m'aider ?
8 déc. 2003 à 10:24
5 déc. 2003 à 12:25
Faire une form nommée dem
Y mettre une picturebox nommée Picture1
Y mettre le code
CalculCodage <chiffre>
Exemple
Private Sub Form_Load()
CalculCodage 275235346346#
End Sub