Jai un problème quand j'inscris 13 chiffre dans une référence
Bonjour tout le monde
Je ne sais pas si nous devons procéder comme ça, mais je reste bloqué, malgré mes multiples recherches.
Étant débutant je me suis servi énormément de votre forum afin de perfectionner mon classeur.
Cependant je reste bloqué et ne trouve aucune solution nulle part.
Pour vous expliquer mon fichier va me servir de gestionnaire de stock, je pourrais également faire des bons de remis, bon de commande etc.
J’ai voulu donc faire en sorte que je puisse utiliser une douchette et des codes barre,
Jusque-là je n’ai pas rencontré de problème, du moins j’ai réussi à résoudre les endroits où sa coincée.
Sauf que là je n’arrive pas à recherche une "référence" dépassant 13 chiffres comme un code Ean 13 pour remplir ma listbox
Cependant toutes les autres références ou code fonctionnent même si cela dépasse 13 caractères
Voici le code où je bloque littéralement :
Private Sub Bouton_Ajouter_Enter()
Dim Part_name As String
Dim Part_prix As Currency
If Me.ComboBox1.ListIndex >= 0 Then
If Me.List_Remis.ListCount >= 17 Then
MsgBox "Vous avez atteint la limite, veuillez faire un second formulaire si bessoin"
Else
Part_name = WorksheetFunction.VLookup(Me.ComboBox1, Sheets("Config").Range("K:M"), 2, 0)
Part_prix = WorksheetFunction.VLookup(Me.ComboBox1, Sheets("Config").Range("K:M"), 3, 0)
With Me.List_Remis
.AddItem
.List(Memoire, 0) = Part_name
.List(Memoire, 1) = Me.ComboBox1
.List(Memoire, 2) = 1
.List(Memoire, 3) = CCur(Part_prix)
End With
Memoire = Memoire + 1
Me.ComboBox1 = ""
End If
End If
End Sub
je remercie énormément par avance toutes les personnes qui prendront le temps de m'aider
Cordialement
Damien
Bonjour et bienvenue
S'il s'agit d'une référence, elle devrait être en format texte, sinon il faut la mettre en format texte et/ou la faire précéder par une apostrophe.
Pour aller plus loin, il sera nécessaire d'avoir un fichier représentatif.
Super
Je vous remercie énormément
Vous avez résolu mon problème
Bonne soirée
Cordialement
Damien