[excalibur]

rebonjour le fil une macro pour detecter clavier en majuscules

Option Explicit
Public Declare Function GetKeyState Lib "user32" (ByVal iVirtualKey As Integer) As Long
Public Function Is_Majuscule() As Boolean
Is_Majuscule = (&H1 And GetKeyState(vbKeyCapital)) <> 0
End Function
Sub MACRO1()
Dim i As Variant
i = (&H1 And GetKeyState(vbKeyCapital)) <> 0
If i = True Then MsgBox "attention AUBELIX clavier en majuscules"
End Sub