Exécuter macro dans usf par touche F1

[JORDAN]

Bonsoir tout le monde,

J'aimerai savoir s'il existe une solution pour exécuter une macro depuis
un USF par appui sur la touche F1.
J'ai bien le code suivant qui fonctionne très bien,
mais il faut que le TextBox1 soit selectionné
Dans mon USF j'ai 35 TextBox, est ce que je suis obligé de faire le code
ci-dessous 35 fois ou existe t-il une solution pour qu'il s'applique à tous
les TextBox
Merci pour vos conseils

Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal shift As Integer)
If KeyCode = 112 Then
KeyCode = 0
ValiderTst
End If
End Sub

 

[BERRACHED said]

Re : Exécuter macro dans usf par touche F1

Salut,Jordan

Essayé ça :

pour activé la macro

Private Sub Worksheet_Activate()
Application.OnKey "{F1}", [B]"ta macro"[/B]
End Sub

pour déactivé la macro

Private Sub Worksheet_Deactivate()
Application.OnKey "{F1}", ""
End Sub

Cordialement

 

[JORDAN]

Re : Exécuter macro dans usf par touche F1

Bonsoir Said,

je viens de tester ton code mais lorsque je fais F1
rien ne se passe
j'ai essayé de le mettre dans userform_initialize ou activate,
mais meme chose
si tu as plus d infos, merci
bonne soirée

 

[Cousinhub]

Re : Exécuter macro dans usf par touche F1

Bonsoir,

c'est possible, mais avec l'utilisation d'un module de classe

Regarde le fichier joint

Tu cliques sur le rectangle jaune, et lorsque tu es dans un TextBox, si tu appuies sur F1, un msgbox apparait.....

Edit : Bonsoir, Said

 

[BERRACHED said]

Re : Exécuter macro dans usf par touche F1

Ré,

voici une démonstration avec le code deja communiqué cette demonstration conssiste a selectionner la feuille2 le nom de la macro est "Selecteur"

Cordialement

Edite,Salut,bhbh

 

[JORDAN]

Re : Exécuter macro dans usf par touche F1

Bonjour Bhbh, Said et à tout le monde,

Merci pour vos réponses
Pour Said : Je n arrive pas à adapter ton code avec mon USF, si le fais F1
j ai l aide de Excel qui apparait, je dois merdouiller quelque part

Pour Bhbh : Là par contre, c est génial, j ai presque bien réussi à adapter ton code
j'ai juste des petits problemes d affichage des Combobox de mon USF et d'excution
de mes autres macros. Mais bon, je vais bien trouver ... 🙂

Merci pour votre aide et passer de bonnes fêtes de Noël