Format de text box en barcode
Résolu
luckyjo
-
luckyjo -
luckyjo -
Bonjour,
J'ai crée un userfom pour un magasin de pieces détachées, tout fonctionne comme je le souhaite un bouton ajouter un code de pièce automatique, une barre de recherche etc..
Voila maintenant quand je crée un code auto je récupère la derniere ligne et je rajoute +1 pour faire le prochain numéro, dans mes cellules j'ai mis un format barecode pour que quand je rentre 54 il me transforme en 00054.
Malheureusement dans mon texte box je n’arrive pas a afficher 00054 mais 54.
Si quelqu’un sais comment m'aider je serai reconnaissant.
Private Sub CommandButton4_Click()
Dim DerLig As Long, T As Variant
With Worksheets("pièces")
DerLig = .Range("D1048576").End(xlUp)
If IsNumeric(T) Then
TextBox1 = DerLig + 1
Else
MsgBox "Vérifier le contenu du textbox."
End If
End With
End Sub
J'ai crée un userfom pour un magasin de pieces détachées, tout fonctionne comme je le souhaite un bouton ajouter un code de pièce automatique, une barre de recherche etc..
Voila maintenant quand je crée un code auto je récupère la derniere ligne et je rajoute +1 pour faire le prochain numéro, dans mes cellules j'ai mis un format barecode pour que quand je rentre 54 il me transforme en 00054.
Malheureusement dans mon texte box je n’arrive pas a afficher 00054 mais 54.
Si quelqu’un sais comment m'aider je serai reconnaissant.
Private Sub CommandButton4_Click()
Dim DerLig As Long, T As Variant
With Worksheets("pièces")
DerLig = .Range("D1048576").End(xlUp)
If IsNumeric(T) Then
TextBox1 = DerLig + 1
Else
MsgBox "Vérifier le contenu du textbox."
End If
End With
End Sub
Configuration: Windows / Chrome 71.0.3578.98
