Lecteur de code barre et MAJ sur Excel
Bonjour,
Encore une petite question. On utilise une douchette pour scanner des codes barres dans une colonne excel qui ensuite déclenche une multitudes de formules ...
Sauf que il faut absolument que la touche MAJ soit verrouillée au niveau du clavier sinon au lieu d'avoir 47890 on a 'è_çà
J'aimerai donc un système qui remplace automatiquement les caractères par les chiffres OU qui oblige la saisie en majuscule.
En effet il m'arrivera d'utiliser des autres fichiers et donc à coup sur je vais zapper une fois sur deux de remettre la majuscule.
Merci !
Bonsoir Benji60,
Bien que tu n'est pas renseigné dans ton profil ta version Excel.
Tu dois pouvoir utiliser ces codes pour vérifier que la touche MAJ soit verrouillée.
Dans un module de ton fichier insérer ce premier code.
Public Const VK_CAPITAL = &H14
Public Declare Function GetKeyState Lib "User32" (ByVal nVirtKey As Long) As LongPuis dans le code Classeur (WorkBook)
Private Sub Workbook_Open()
MsgBox "MAJLock is " & IIf(GetKeyState(VK_CAPITAL) = 1, "Activé", "Désactivé")
End SubAprès sauvegarde du fichier et fermeture
A l'ouverture de ce dernier un message te précisera si la touche Majuscule est activée ou désactivée.
Donc si non activée alors il te faudra l'activer. A contrario tu pourras utiliser la douchette directement.
Bonjour !
Merci pour la réponse.
Cela me dit juste que le code doit être mis à jour pour mon système 64 bits.
je suis sous Excel 2019.
Bonjour,
Donc juste après Public Déclare inscrit Ptrsafe avant Function.
Puis change le premier Long avant la parenthèse par Longptr.
Cela conviendras à ton système 64 bits.