Discussion :

[mcog2]

Bonjour,

Je souhaite positionner 3 claviers USB dans 3 isoloirs, les parties avant des isoloirs sont ouvertes sur un écran visible par les 3 opérateurs.
Sur cet écran un userform avec 3 textbox. Le clavier 1 saisi dans la textbox1, le clavier 2 dans la textbox 2...
L'opérateur 1, via le clavier1 écrit une note sur 20 dans la textbox1 avec des étoiles pour que les autres opérateurs ne voient pas les notes.
Le but est de donner des notes via 3 "juges" sur un même sujet.

1 - Que pensez-vous de mon approche ?
2 - Est ce possible ?
3 - Si oui, comment selon vous ?

@+

Olivier

[Oliv-]

Salut,
Il y a vraiment parfois des idées farfelues sur ce forum ;-)

Le problème c'est que t'es 3 claviers, à priori écrivent au même endroit, tu pourrais laisser la main au suivant quand le précédent à cliqué sur ok, mais il faut que les 2 autres attendent "sans toucher au clavier".

il faudrait pouvoir désactiver à tour de rôle les 3 claviers, c

edit: voir du coté de WMI

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Sub enumkeyboard()
    strComputer = "."
 
    Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
    Set colItems = objWMIService.ExecQuery("Select * from Win32_Keyboard", , 48)
    For Each objItem In colItems
        If InStr(1, objItem.Description, "Périphérique d'interface utilisateur USB") > 0 Then
Stop
 
        End If
Debug.Print "Description: " & objItem.Description & _
          "     Layout: " & objItem.Layout & _
          "   DeviceID: " & objItem.DeviceID _
          ; "PNPDeviceID: " & objItem.PNPDeviceID
 
    Next
End Sub

ou de DEVCON