TextBox & Scanner code barre

[mikael2235]

Bonjour à tous,

J'ai crée un UserForm avec des TextBox...

L'utilisateur final devra les remplir avec un scanner à code barre.

Le problème est que quand je scanne un code barre, si le clavier est en minuscule (MAJ non actif) : il inscrit dans la TextBox ceci : 'é&é(àéé-'à

et par contre quand j'active MAJ sur mon clavier et que je scanne ensuite, il m'inscrit : 42125022640 (ce que je veux obtenir)

Donc j'ai trouvé sur le forum ceci, TextBox4 = UCase(TextBox4)

mais il scanne en minuscule et transforme en majuscule ensuite mes lettres.

Avez-vous une solution ? Merci.

Mikael

 

[mikael2235]

Re : TextBox & Scanner code barre

En fait il faudrait mettre le clavier en majusucle à l'execution de la macro !

Mais je ne sais pas comment faire ?

 

[mromain]

Re : TextBox & Scanner code barre

bonjour mikael,

un petit aperçu ici (merki google).

a+

 

[mikael2235]

Re : TextBox & Scanner code barre

merci beaucoup, mromain

ça marche. Pourtant j'avais cherché sur Google, mais probablement pas assez. ..

Merci encore

 

[mikael2235]

Re : TextBox & Scanner code barre

Encore un souci malgré tout,

J'ai mis ma macro dans This Workbook avec Private Sub woorkbbokOpen pour qu'elle s'ouvre au démarrage.

Quand j'ai mis Active VK_CAPITAL, 1 pour bloquer les majuscules, il me renvoie une erreur Sub ou Function non définie ?

 

[mromain]

Re : TextBox & Scanner code barre

re,


en fait, je crois qu'il ne faut pas mettre la macro dans "Private Sub woorkbbokOpen", mais dans un module.
Peux-tu tester stp ?

a+

 

[mikael2235]

Re : TextBox & Scanner code barre

oui dans un module ça marche !!!

mais alors comment je fais pour executer ma macro au démarrage ?

 

[mromain]

Re : TextBox & Scanner code barre

re,

tu remplace tous les "Private" par "Public", et à l'ouverture du classeur (ou quand tu veux l'activer), tu met "Active VK_CAPITAL, 1".

a+

 

[mikael2235]

Re : TextBox & Scanner code barre

J'ai remplacé Private par Public

et il me met maintenant : Type d'argument ByRef incompatible

:-(

 

[mromain]

Re : TextBox & Scanner code barre

re,


tu mets dans un module :

Public Const VK_CAPITAL = &H14  ' CapsLock
Public Const VK_NUMLOCK = &H90  ' NumLock
Public Const VK_SCROLL = &H91  ' ScrollLock
Public Type KeyboardBytes
kbByte(0 To 255) As Byte
End Type
Public Declare Function GetKeyboardState Lib "user32" (kbArray As KeyboardBytes) As Long
Public Declare Function SetKeyboardState Lib "user32" (kbArray As KeyboardBytes) As Long
Dim kbArray As KeyboardBytes, kbOld As KeyboardBytes
'-----------------------------------------------------
Public Sub Active(vkKey As Long, Actif As Byte)
GetKeyboardState kbArray
kbArray.kbByte(vkKey) = Actif
SetKeyboardState kbArray
End Sub
'-----------------------------------------------------
Public Sub Form_Load()
GetKeyboardState kbOld ' se rappeler l'état initial du clavier
End Sub
'-----------------------------------------------------
Public Sub Form_Unload(Cancel As Integer)
SetKeyboardState kbOld ' restaurer l'état initial du clavier
End Sub

ensuite, à l'ouverture du classeur tu mets :

Form_Load

pour te rappeler de l'état initial du clavier,

à la fermeture du classeur, tu mets :

Form_Unload

pour restaurer l'état initial du clavier.


à l'ouverture de ton UF, tu mets :

Active VK_CAPITAL, 1

pour simuler l'appui sur CAPSLOCK,

et à la fermeture de ton UF, tu mets :

Active VK_CAPITAL, 0

pour annuler la dernière tache.


au pire, met un bout de fichier, ce sera plus simple.

a+

 

[mikael2235]

Re : TextBox & Scanner code barre

Merci encore mromain,

J'avais oublié les 3 "Public" devant "Const"

Public Const VK_CAPITAL = &H14 ' CapsLock
Public Const VK_NUMLOCK = &H90 ' NumLock
Public Const VK_SCROLL = &H91 ' ScrollLock

Cette fois-ci tout marche correctement.

Merci encore