Menu

Format de text box en barcode [Résolu]

- - Dernière réponse :  luckyjo - 15 déc. 2018 à 14:39
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



Configuration: Windows / Chrome 71.0.3578.98
Afficher la suite 

1 réponse

Messages postés
6138
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
18 juillet 2019
373
0
Merci
Bonjour,

comme ceci:

Dans la cellule:

Range("A1").NumberFormat = "###00000"
TextBox1.Text = Range("A1").Value


dans la TextBox:

Private Sub TextBox1_Change()
 TextBox1 = Format(TextBox1, "###00000")
End Sub



Merci pour la réponse, mais je ne comprend pas dans la cellule c'est quoi ?

Actuellement ce que je veux commence a D16 et fini jusqu'a la fin.

Merci
> luckyjo -
Finalement je n'en n'est pas besoin, le simple fait de rentrer dans le text box me suffit !!!
Je te remercie c'est super !
Commenter la réponse de cs_Le Pivert