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
A voir également:
- Format de text box en barcode
- Format epub - Guide
- Format factory - Télécharger - Conversion & Codecs
- Set-top box - Accueil - Box & Connexion Internet
- Hp usb disk storage format tool - Télécharger - Stockage
- Format apfs - Guide
Actuellement ce que je veux commence a D16 et fini jusqu'a la fin.
Merci
Je te remercie c'est super !