Bonjour à tous,
Bon une autre piste plus proche avec un USF modal et quelquechose très proche de ce que tu paraît vouloir....
Mais les connaissances à avoir en vba sont infinies lol et hier dans mes essais je me suis fait pièger par un truc bête entre les différents évènements clavier...
Si tu prends KeyDown, tu as KeyCode en variable et A retourne 65 que tu sois en Maj ou Min
Si tu prends KeyPress, tu as KeyAscii en variable et là tu as, logiquement pour de l'ascii 65 pour A et 97 pour a !
Du coup mon truc ne marchait pas et je partais dans une usine à gaz
Donc là en version 2 tu as toujours l'ancien code, mais le lancement du USF1 est désactivé dans le Workbook.
Le USF2 se lance avec le bouton Show USF2 sur la feuille, j'ai mis 3 boutons ce qui permet de ne pas avoir le focus par départ sur le bouton Hop car il est forcé sur le Cmd1 .
L'appui sur a (pas A), puis le click sur Hop colorient D22 en bleu...
Option Explicit
Dim Blop As Integer
Private Sub CmdB1_Click()
If Blop = 1 Then
Range('D22').Interior.ColorIndex = 8
Blop = 0
End If
End Sub
Private Sub CmdB1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If KeyAscii = 97 Then
Blop = 1
End If
End Sub
Bonne journée,
Bfr [file name=DGKey2.zip size=16305]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/DGKey2.zip[/file]