Microsoft 365 Convertir caractères spéciaux en chiffres

[Gaëlle-29]

Bonjour,

Est-il possible de convertir les caractères spéciaux &é’’´(-è_çà en lettres ?

En gros, je vais avoir besoin d’utiliser une douchette scan. Celle-ci, si elle le clavier n’est pas en Maj écrit les caractères spéciaux.

Les personnes qui vont utiliser ce fichier par la suite, ne feront pas forcément attention que le clavier soit en Maj.

Merci

 

[sylvanu]

Bonjour Gaëlle, et bienvenue sur XLD,
Peut être serait il plus simple de verrouiller le clavier en majuscules en début de macro :

Verrouillage majuscule

Bonjour, Y a t'il moyen en VBA (dans le code de la feuille), d'activer la touche de verrouillage majuscule ? Merci par avance.

excel-downloads.com

Sinon un ex de conversion :

[AC-2003] Activation et désactivation de la touche MAJ - VBA Access

J ai créer une application access 2003 ou l on utilise une douchette a code barre mais le soucis il arrive que la touche MAJ soit activé et cela change la lecture de la douchette. D ou ma question je voudrais

www.developpez.net

 

[patricktoulon]

bonjour
à mettre dans le module thisworkbook

'patricktoulon
#If VBA7 Then    'vba7 pour 32/64 bits
    Private Declare PtrSafe Function GetKeyState Lib "user32" (ByVal myKey As LongPtr) As Integer
#Else    'vb6 2007 et inférieur
    Private Declare Function GetKeyState Lib "user32" (ByVal myKey As Long) As Integer
#End If
Private Const KeyCapsLock = &H14

Private Sub Workbook_Open(): Me.capslock: End Sub

Public Sub capslock()
    If Not GetKeyState(KeyCapsLock) Then CreateObject("wscript.shell").SendKeys "{CAPSLOCK}"
End Sub