Discussion :

[louminor]

Bonjour à tous,
voila je termine ma gestion de stock sous excel (voir autre discussion) à l'aide d'une douchette et de codes barre.
Tout fonctionne (choix feuille, destockage, mise en stock etc.) sauf une petite chose.
Ma douchette lit très bien toutes les références (sous forme de code barre) et les affiche parfaitement dans bloc note ou autre, mais dans ma TextBox le chiffre '7' n'est pas pris en compte.
Par exemple je scanne une ref de type : acbd1007efg, j'obtiens bien ceci dans une cellule excel etc, mais dans ma TextBox, j'obtiens acbd100efg -> le 7 a disparu.
Auriez vous une idée du pourquoi du comment ?

Merci d'avance
Bien Cordialement
Louminor.

[helas]

Bonjour,
Sans certitude il s'agit peut-être d'un caractère caché qui supprimerait le caractère suivant
Tester la chaine de caractères

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
Sub Test
For i = 1 To Len(Range("A1"))
 Debug.Print i, Mid$( Range("A1"),i,1) , asc( Mid$( Range("A1"),i,1) )
Next i
End Sub

Créer une procedure avec ce code qui doit afficher chaque caractère et peut-être découvrir ce qui se cache entre le 0 et le 7

[louminor]

Salut à tous,
je reviens sur le sujet car depuis tout ce temps je n'ai pas pu m'y mettre à ce prgm sous excel.
Juste pour préciser que seul le 7 est victime de non lecture, tous les autres chiffres fonctionnent.

Merci helas pour ta réponse mais cela ne fonctionne pas.

Si vous avez une idée, cela m'aiderai grandement,
merci par avance.
Louminor

[Godzestla]

Bonjour,

tu devrais montrer ton code , non ?

Surtout la partie qui concerne ceci :

Par exemple je scanne une ref de type : acbd1007efg, j'obtiens bien ceci dans une cellule excel etc, mais dans ma TextBox, j'obtiens acbd100efg -> le 7 a disparu.

[louminor]

Salut,
voila,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Private Sub SCANNE_Exit(ByVal Cancel As MSForms.ReturnBoolean)
 
 Dim CODEBARRE As String
 CODEBARRE = SCANNE.Text
 
Sheets("STOCK").Columns(1).Cells.Find(What:=SCANNE.Text).Activate 
            'fonction de remplacement de la qté
            Sheets("STOCK").Cells(ActiveCell.Row, 3).Value = Sheets("STOCK").Cells(ActiveCell.Row, 3).Value - 1
            SCANNE.Value = Null 'Efface la zone de texte
 
End Sub

Rien de très compliqué,

Pour récap :
Je scanne mon code barre du type AG7TR1000B6, j'obtiens dans le classeur excel AG7TR1000B6.
Maintenant je lance ce script, je scanne ce code, et dans ma textbox SCANNE.Text, j'obtiens : AGTR1000B6
Le 7 disparait, mais les autres chiffres sont bel et bien présents.

[Godzestla]

Rien de très compliqué,

Sauf que le code que tu montres (attention à bien lire les rêgles du forum pour utilisation correcte des balises codes ), ne correspond pas du tout à :

Pour récap :
Je scanne mon code barre du type AG7TR1000B6, j'obtiens dans le classeur excel AG7TR1000B6.
Maintenant je lance ce script, je scanne ce code, et dans ma textbox SCANNE.Text, j'obtiens : AGTR1000B6
Le 7 disparait, mais les autres chiffres sont bel et bien présents.