Discussion :

[clubleo]

Bonjour,

Environnement :
Je possède un Ordinateur MSI avec un clavier à touches dont l’éclairage peut posséder des couleurs variables.

Question :
- Sous Excel VBA lors de la sélection d’une cellule, en fonction des zones, à la réception de target.(row,column), je désire éclairer certaines touches à des couleurs différentes.

Exemples :
- Cadenas CAPS-ON en rouge CAPS-Off en vert
- Touches 0-9 en vert si verrouillage numérique

Merci à celui qui pourra me guider vers une solution peut-être déjà approchée.

D.R.

[Jean-Philippe André]

Salut,

si tu nous trouves l'API de MSI qui permettrait cela, on peut potentiellement essayer d'aider.

Mais vu de mon balcon, c'est peu probable qu'on ait ca en stock parmi nos utilisateurs

[clubleo]

Bj,

Merci d'être présent à ma question.

Je viens de trouver dans internet ce qui suit. Cela semble bien être proche de mon sujet.

Pour ma part, je n'arrive pas à en tirer qque chose.

A suivre ?

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
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
 
Option Explicit
 
' Déclaration des fonctions de la bibliothèque Windows API
Private Declare PtrSafe Function SendMessage Lib "user32" Alias "SendMessageA" _
    (ByVal hWnd As LongPtr, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
 
Private Declare PtrSafe Function FindWindowEx Lib "user32" Alias "FindWindowExA" _
    (ByVal hWndParent As LongPtr, ByVal hWndChildAfter As LongPtr, ByVal lpszClass As String, ByVal lpszWindow As String) As LongPtr
 
' Constantes pour les messages Windows API
Private Const WM_APPCOMMAND As Long = &H319
Private Const FAPPCOMMAND_KEYDOWN As Long = &H1000
Private Const FAPPCOMMAND_KEYUP As Long = &H2000
Private Const VK_VOLUME_UP As Long = &HAF
Private Const VK_VOLUME_DOWN As Long = &HAE
 
Sub AllumerToucheCouleur(ByVal Couleur As Long)
    ' Trouver la fenêtre du clavier
    Dim hWnd As LongPtr
    hWnd = FindWindowEx(0, 0, "IPTip_Main_Window", vbNullString)
 
    ' Envoyer un message pour allumer une touche de couleur
    SendMessage hWnd, WM_APPCOMMAND, 0, FAPPCOMMAND_KEYDOWN And Couleur
End Sub
 
Sub EteindreTouche()
    ' Trouver la fenêtre du clavier
    Dim hWnd As LongPtr
    hWnd = FindWindowEx(0, 0, "IPTip_Main_Window", vbNullString)
 
    ' Envoyer un message pour éteindre la touche
    SendMessage hWnd, WM_APPCOMMAND, 0, FAPPCOMMAND_KEYUP
End Sub
 
Sub TesterAllumerToucheCouleur()
    ' Allumer une touche de couleur (par exemple, rouge)
    AllumerToucheCouleur &HFF0000  ' Rouge
End Sub
 
Sub TesterEteindreTouche()
    ' Éteindre la touche
    EteindreTouche
End Sub

[deedolith]

Salut,

Le truc est que sans posséder le même PC que toi, ça va être difficile de t'aider.
De plus, utiliser les API c'est bien, encore faut-il savoir ce qu'elles font.
Pour cela il y a la documentation: https://learn.microsoft.com/en-us/wi...-findwindowexa

Le code que tu proposes s'appuie sur le système de messages de windows permettant aux fenêtres de communiquer entre elles, et ne fonctionne qu'a une seule condition:
Que la fenêtre nommée IPTip_Main_Window existe, faute de quoi, le message n'est pas envoyé.
Donc, la première chose à faire est de vérifier la valeur retournée par FindWindowEx

[clubleo]

Salut,

Grace à Ami calmant , J.P Jurassic pork , j'avais réussi à créer un module pour télécharger des fichiers AMELI Sécurité Sociale

Il comprenait des sendkeys, chrome, webdriver et entre autres les instructions qui suivent.
Depuis il m'a guidé pour utiliser par les modules de classe CDP à la place de Webdriver

Code :

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

1
2
3
4
Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" _
                                          (ByVal hWnd1 As Long, ByVal hWnd2 As Long, _
                                           ByVal lpsz1 As String, ByVal lpsz2 As String) As Long  ' ***
Private Declare Function BringWindowToTop Lib "user32" (ByVal hwnd As Long) As Long               ' ***

Je reconnais qu'ici, je ne sais pas par où commencer pour tester les instructions FindWindow.

A+ D.R.

[deedolith]

As-tu consulté la documentation ?

Return value
Type: HWND

If the function succeeds, the return value is a handle to the window that has the specified class and window names.

If the function fails, the return value is NULL. To get extended error information, call GetLastError.