creer un clavier virtuel

[demax]

Bonsoir à tous ,
Est ce qu'il est possible de mettre en place des boutons representant le clavier donc lettres et chiffres bouton entrée,
et bien sur de faire des saisies.
merci ,si vous pouvez me donner une direction de recherche!

 

[vbacrumble]

Re : creer un clavier virtuel

RE



Test OK dans mon PERSO.xls

Lorsqu'on affecte la macro au bouton
(créée manuellement, clic-droit sur barre d'outils Standard, ->Personnaliser->Commandes/Macros->Cliquer/déplacer sur barre d'outils
Mettre la syntaxe suivante dans:Nom de la macro
PERSO.XLS!CLAVIERVIRTUEL


A+

 

[Hulk]

Re : creer un clavier virtuel

Re,

Excuse-moi de t'ennuyer encore avec ça, mais je coince.

Tu dis que chez toi ça joue avec ton PERSO ?

J'ai essayé dans le PERSO, et tes macros, ("CLAVIERVIRTUEL", "tmptool" et "resetbo") et/ou la petite que j'ai fait ("Clavier" fil #5), mais idem, je l'affecte au bouton voulu et à l'ouverture d'un nouveau classeur, le bouton est bien là mais pas de macro !

Si je veux que ça fonctionne, le PERSO doit-il toujours être ouvert dans ce cas ?

Je pense que je vais garder ta solution de macro complémentaire, elle va très bien, c'était juste qu'elle apparaît dans l'éditeur et ça m'embêtait un peu, mais finalement ça dérange pas du tout.

Cdt Hulk.

 

[vbacrumble]

Re : creer un clavier virtuel

Bonjour



Dans PERSO.XLS, j'ai mis uniquement

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
    (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, _
    ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
'*********************************************
Sub CLAVIERVIRTUEL()
Dim strOS$, tOS$: Dim RetVaL
strOS = Application.OperatingSystem
tOS = Trim(Mid(strOS, InStr(1, strOS, ")") + 1, 255))
    Select Case tOS
        Case "NT 6.00"
        ShellExecute 0, "open", "osk.exe", 0, 0, 1
        Case "NT 5.01"
        RetVaL = Shell("C:\WINDOWS\system32\osk.exe", 1)
    End Select
End Sub

Et j'ai créé manuellement un bouton sur la barre d'outils Standard d'Excel.

(Comme indiqué dans mon dernier message)

Et ce bouton fonctionne pour tout classeur ouvert
ou juste quand Excel est ouvert
(la macro étant stocké dans PERSO.xls)

A+

 

[Hulk]

Re : creer un clavier virtuel

Hello vbacrumble, le Forum,

A moins que je me trompe de façon de faire.

1) Dans PERSO.XLS j'ai uniquement mis ton dernier code.
2) Je sauvegarde PERSO.XLS.
3) Je l'ouvre à nouveau.
4) Je crée le bouton sur la barre dans un nouveau classeur.
5) J'affecte la macro et je la nomme PERSO.XLS!CLAVIERVIRTUEL.
6) je fais OK.

Ensuite, quand je clique sur le bouton, de nouveau la fenêtre "Affecter une macro", rien ne s'est passé !

Précisions :

Pour le point 4 :
Que je crée le bouton dans le PERSO ou dans un nouveau classeur, c'est idem je fais OK et quand je clique sur mon bouton, il me demande d'affecter une macro.. rien !

Pour le point 5 :
La macro PERSO.XLS!CLAVIERVIRTUEL apparaît bien dans la liste des macros de PERSO.XLS.

Quelle version d'Office tu as, tu dis 2007 ? Moi 2003, peut-être pour ça que ça ne joue pas pour moi

Merci pour ton aide.

Cdt, Hulk.

 

[vbacrumble]

Re : creer un clavier virtuel

Re

4) Je crée le bouton sur la barre dans un nouveau classeur.

Non , tu crées un bouton sur la barre d'outils Standard d'Excel
(qui est indépendante des classeurs)

(tu peux le faire en fermant tous les classeurs (sauf PERSO.XLS)

voir mon message 12/02/09 11h37

Lorsqu'on affecte la macro au bouton
(créée manuellement, clic-droit sur barre d'outils Standard, ->Personnaliser->Commandes/Macros->Cliquer/déplacer sur barre d'outils
Mettre la syntaxe suivante dans:Nom de la macro
PERSO.XLS!CLAVIERVIRTUEL

A+

 

[Fo_rum]

Re : creer un clavier virtuel

salut,

une autre démarche à tester :

Clic droit dans une des barres de Menu
Choisir

Personnaliser​

onglet : Commandes
​

Macro
​

Bouton personnalisé
​

glisser dans la barre voulue
Clic droit sur la binette.
Changer le nom, l'icône.
Affecter un lien (pas une macro !)

ouvrir
​

Adresse : ...\WINDOWS\system32\osk.exe
​

Fermer

Seul problème : Message d'avertissement au clic !

 

[Hulk]

Re : creer un clavier virtuel

Hello les amis,

Hm non rien à faire vba ça n'marche pas ! Je faisais bien la chose dans la barre d'outils standar, mais pour en être encore plus sûr, j'ai essayé sur toutes les barres ! Idem.

La méthode que tu proposes Fo_rum ne me convient pas, c'est vrai que ce message (même deux je crois), pas extra, merci quand même !

Je vais finalement opter pour ta première solution vbacrumble..

Macro complémentaire.

Ca va très bien, quand j'en ai besoin, je la côche et voilà.

Merci encore à tous !

Cdt, Hulk.