TextBox & Scanner code barre

M

mikael2235

XLDnaute Occasionnel

• 10 Mars 2009

• #2

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 ?

 

Vote positif 0 Vote négatif

mromain

XLDnaute Barbatruc

• 10 Mars 2009

• #3

Re : TextBox & Scanner code barre

bonjour mikael,

un petit aperçu ici (merki google).

a+

 

Vote positif 0 Vote négatif

M

mikael2235

XLDnaute Occasionnel

• 10 Mars 2009

• #4

Re : TextBox & Scanner code barre

merci beaucoup, mromain

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

Merci encore

 

Vote positif 0 Vote négatif

M

mikael2235

XLDnaute Occasionnel

• 10 Mars 2009

• #5

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 ?

 

Vote positif 0 Vote négatif

mromain

XLDnaute Barbatruc

• 10 Mars 2009

• #6

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+

 

Vote positif 0 Vote négatif

M

mikael2235

XLDnaute Occasionnel

• 10 Mars 2009

• #7

Re : TextBox & Scanner code barre

oui dans un module ça marche !!!

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

 

Vote positif 0 Vote négatif

mromain

XLDnaute Barbatruc

• 10 Mars 2009

• #8

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+

 

Vote positif 0 Vote négatif

M

mikael2235

XLDnaute Occasionnel

• 10 Mars 2009

• #9

Re : TextBox & Scanner code barre

J'ai remplacé Private par Public

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

:-(

 

Vote positif 0 Vote négatif

mromain

XLDnaute Barbatruc

• 10 Mars 2009

• #10

Re : TextBox & Scanner code barre

re,


tu mets dans un module :

Code:

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 :

Code:

Form_Load

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

à la fermeture du classeur, tu mets :

Code:

Form_Unload

pour restaurer l'état initial du clavier.


à l'ouverture de ton UF, tu mets :

Code:

Active VK_CAPITAL, 1

pour simuler l'appui sur CAPSLOCK,

et à la fermeture de ton UF, tu mets :

Code:

Active VK_CAPITAL, 0

pour annuler la dernière tache.


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

a+

 

Vote positif 0 Vote négatif

M

mikael2235

XLDnaute Occasionnel

• 10 Mars 2009

• #11

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

 

Vote positif 0 Vote négatif