quitter un USF

[JORDAN]

Bonjour tout le monde,

depuis quelques semaines, je suis plongé dans mon projet et idée viens de me traverser l'esprit, mais bien sur est ce vraiment possible ...

Voilà, lorsque que j'ai un USF d'ouvert, est il possible de le fermer en appuyant sur une des touches F1, F2, F3, ...

En fait, c pour éviter d'utiliser la souris, et en plus il faudrait programmer cette touche pour avoir une action de sauvegarde.

Merci pour vos conseils

a+

 

[roro69]

Re : quitter un USF

Bonjour à essayer

Private Sub UserForm_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If Shift = 0 Then Unload Me
End Sub
A ++

 

[JORDAN]

Re : quitter un USF

Bonjour Roro,
merci pour ton code, juste un petit hic
comment je l applique
je l ai bien integré dans mon projet, mais que faire apres

merci

 

[roro69]

Re : quitter un USF

Re bonjour Jordan ne tiens pas compte de ma premère réponses
colle ce code dans ton projet et comme ceci ton userform se fermera avec la touche entrée du clavier.

Private Sub UserForm_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 13 Then Unload Me
End Sub

par contre pour la sauvegarde il faudrait en dire un peu plus.......
A++

 

[JORDAN]

Re : quitter un USF

re,

je viens de faire comme tu dis, mais lorsque je fais ENTREE ça fait la meme fonction que tabulation et l usf ne se ferme pas
Merci si tu as 1 solution
a+

 

[JORDAN]

Re : quitter un USF

bonsoir tout le monde
je viens de tester la methode de Roro dans un nouveau classeur, et elle fonctionne tres bien
Par contre dans mon classeur y a rien à faire ça ne veut pas
je viens de penser que le probleme venait peut etre du fait que j ai 5 USF dans mon projet.
quelqu un a t il deja rencontré ce probleme ?
merci pour vos astuces

 

[JORDAN]

Re : quitter un USF

re,
je viens de faire un nouveau test dans un nouveau classeur
si il n y a qu un seul usf, ça fonctionne tres bien mais que je met un 2eme USF, ça ne fonctionne plus !!!
là, j avoue ne rien comprendre
merci pour vos idées
bonne soirée

 

[MJ13]

Re : quitter un USF

Bonjour à tous

Allez Jordan (355 posts quand même), un petit effort, un petit fcihier et le tour est joué😕.

 

[roro69]

Re : quitter un USF

Bonsoir Jordan
Je viens de voir pourquoi çà ne marche pas ;en fait le code marche si l'usf est dénué de tout controles;car la touche entrée intéragit avec les controles donc il faudrait choisir un autre touche du clavier pour fermer l'USF TOUT EN SACHANT ;que alt+F4 font çà sans aucune ligne de code lol
A++
M'enfin tu peut toujours changer de touche de clavier en changeant le chiffre dans le code; il faut chercher n° DU CODE ascii de ta touche et remplacer le chiffre.

 

[JORDAN]

Re : quitter un USF

Bonjour tout le monde,

J ai bien essayé avec une autre combinaison de touche, ça reste sans succes
quand à ALT+F4 j ai 2 probleme :
1- ça met l usf en hide et pas en unload
2- j ouvre 1 er usf et en cliquant sur 1 bouton je le ferme et en ouvre un autre
et avec ALT+F4, ça ferme tout
bonne journée