Problème de KeyCode

  • Initiateur de la discussion Initiateur de la discussion JORDAN
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

JORDAN

XLDnaute Impliqué
Bonjour tout le monde,

Avec la Module de classe ci-dessous si je fais F10 (Keycode 121) j'exécute la macro ValiderTst
Jusque là tout va bien

J'aimerai savoir comment je dois remplacer le KeyCode "121" pour lancer cette marco avec
Ctrl + F10 ??
keycode ctrl =17

Merci à vous et bonne journée

Code:
Private Sub TxtBoxGroup_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)

If KeyCode = 121 Then
    LeTextBox = TxtBoxGroup.Name
    KeyCode = 0
    ValiderTst
End If

End Sub
 
Re : Problème de KeyCode

Re,

Merci pour ton fichier, pour l'ouvrir j'ai fait Importer un fichier mais ça beug
J ai quand meme réussi à l ouvrir autrement et j ai
fait un copier coller du code
Mais ça ne fonctionne pas
c est pas bien grave, je vais m inspirer de ton code quand meme
pour l instant mes essais ne sont pas tres concluant
je continu a+
 
Re : Problème de KeyCode

Re,

Ton fichier fonctionne très bien, il y a juste le retour du KeyAscii qui ne s'affiche pas.

Par contre je n'arrive pas à compiler les deux KeyCode (Shift + 1 touche)
Dès que j'appui sur Shift le code se lance et se termine et ne reconnait pas la 2ème touche enfoncée
Si tu avais un autre indice pour me mettre sur le bon chemin !!!

Par avance Merci
 
Re : Problème de KeyCode

Re,

Ok, en tout cas merci pour ton aide
Maintenant la combinaison de shift + une autre touche fonctionne très bien
Je ne sais pas si ma technique est vraiment orthodoxe mais bon ça me va très bien
comme ça
encore merci pour ton aide et bonne soirée
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
41
Affichages
1 K
  • Question Question
Microsoft 365 Problème de date
Réponses
5
Affichages
368
Réponses
5
Affichages
932
C
Réponses
4
Affichages
2 K
C
Retour