Dim ch As String
Private Sub TextBox1_Change()
TextBox1.Text = ch
End Sub
Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
ch = ch & UCase(Chr(KeyAscii))
End Sub
Millle excuses ... j'ai pas encore pris mon cafépeux tu relire le post ... moi je parle d'un inputbox
[COLOR=green]' Déclaration en début de module[/COLOR]
Private Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Integer
. . .
[COLOR=green]' Ligne à placer dans la Sub, avant d'utiliser InputBox[/COLOR]
If GetKeyState(vbKeyCapital) = False Then SendKeys "{CAPSLOCK}"
SendKeys "{CAPSLOCK}"
Private Declare Function SetKeyboardState Lib "user32" (kbArray As Byte) As Long
Private Declare Function GetKeyboardState Lib "user32" (lpKeyState As Byte) As Long
Sub InputBoxEnMaj()
Dim KeyState(0 To 255) As Byte, q As String
GetKeyboardState KeyState(0)
KeyState(&H14) = 1 'majuscule activée
SetKeyboardState KeyState(0)
q = InputBox("blabla", "blabla")
GetKeyboardState KeyState(0)
KeyState(&H14) = 0 'majuscule désactivée
SetKeyboardState KeyState(0)
End Sub
Je prends note, que cela ne fonctionne pas sous Excel 2000 ... Dommage.@Soenda
SendKeys ne fonctionne pas dans ce cas (en tout cas le mien)