Userform faisant apparaitre un clavier pour taper un nom

[nicroq]

Bonjour le forum et merci pour votre précieuse aide!

je souhaiterai savoir si il est possible de faire un userform avec une textbox et qui fasse apparaitre un clavier à l ecran pour taper ce que l on souhaite dans la textbox (c est pour une utilisation tactile de excel)?

En vous remerciant!
cordialement

 

[Herdet]

Re : Userform faisant apparaitre un clavier pour taper un nom

Bonjour,
Cette question a déjà été résolue dans le forum XLD
https://www.excel-downloads.com/thr...ture-clavier-virtuel-tablette-windows.206049/

Charger le fichier clavierVisuel.xls du message #6 de Carlos.
Il fonctionne très bien sur mon PC en Excel 2010 Win 7 64 bits.
Tester les Options et fonctions diverses..... mais sur écran avec les doigts (?) mon écran n'est pas tactile.

Cordialement
Robert

 

[PMO2]

Re : Userform faisant apparaitre un clavier pour taper un nom

Bonjour,

Une piste avec la démarche suivante :
1) Créez un UserForm1 avec une TextBox1
2) Copiez le code suivant dans la fenêtre de code du UserForm

'### APIs et Constantes ###
Private Declare Function ShellExecute& Lib "shell32.dll" Alias "ShellExecuteA" ( _
  ByVal hwnd&, ByVal lpOperation$, ByVal lpFile$, _
  ByVal lpParameters$, ByVal lpDirectory$, ByVal nShowCmd&)
Private Const SW_SHOWNORMAL = 1

Private Declare Function FindWindow& Lib "user32" Alias "FindWindowA" ( _
  ByVal lpClassName$, ByVal lpWindowName$)
  
Private Declare Function PostMessage& Lib "user32" Alias "PostMessageA" ( _
  ByVal hwnd&, ByVal wMsg&, ByVal wParam&, ByVal lParam&)
Private Const WM_CLOSE As Long = &H10
'###########################
 
Private Sub ClavierShow()
ShellExecute Application.hwnd, "open", "osk.exe", vbNullString, vbNullString, SW_SHOWNORMAL
End Sub

Private Sub ClavierClose()
PostMessage FindWindow(vbNullString, "Clavier visuel"), WM_CLOSE, 0, 0
End Sub

Private Sub UserForm_Activate()
Call ClavierShow
End Sub

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
Call ClavierClose
End Sub