Dans USF, boutton OK=touche entrer

[natbru]

Boujour à tous,

De nouveau je reviens vers vous, et oui encore des soucis...

Dans un USF, contenant des bouttons options, il y a un boutton 'OK' qui éxécute un programme en fonction de l'option choisie.

Je voudrais que lorsque j'appuie sur 'enter', l'effet soit le même que si je clique sur le boutton 'OK'.

Merci pour votre aide(on se répète sur ce forum avec les mercis mais on ne le dit jamais trop).

 

[PascalXLD]

Bonjour

Mets la valeur Default à true

Bon courage

 

[natbru]

Merci beaucoup, je m'attendais à un truc bien plus complexe, mais ca m'arrange bien.

Ca marche impecc.

 

[natbru]

Re,

Dans le meme style :

Dans le USF, est-il possible que quand on fait 'ESCAPE', on sorte du USF sans valider (équivalent de la croix)

j'ai écrit :

Private Sub UserForm_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)

Application.OnKey [ESC], Unload(CHOIXTACHES)

End Sub

Mais (on s'en doute) ca marche pas ...

Merci d'avance.

 

[Hervé]

bonjour natbru

peut etre comme ceci :

Private Sub UserForm_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If KeyAscii = vbKeyEscape Then Unload Me
End Sub

salut

 

[PascalXLD]

Re

Hervé tu as testé sur un UF qui a des controles ??

Car sur des UF sans contrôles pas de lézard mais aussitôt qu'il y en a perso j'ai des problèmes à faire marcher cette propriété KeyPress

 

[natbru]

Re Hervé, Pascal,

J'ai testé le code de Hervé mais ca ne fonctionne pas. Ca n'affiche pas non plus un message d'erreur mais il ne se passe rien.

D'autres idées ??

 

[Hervé]

re nabtru, pascal

tu as raison, pascal, ceci ne fonctionne pas sur des usf avec controles.

désolé natbru, mais plus d'idées.

a part rajouter cette ligne de code à chaque évenement keypress des controles.

salut

 

[natbru]

Tant pis j'ai opter pour ta solution, j'ai mis la ligne de code dans chaque controle.

Merci pour votre aide

 

[Eric C]

Bonsoir le forum
Bonsoir natbru, bonsoir Pascal, bonsoir Hervé

Pour parvenir à tes fins, tu places sur ton USF un CommandButton ('Quitter') avec comme code :

Private Sub CommandButton1_Click()
Unload Me
End Sub

Ensuite tu te rends dans les propriétés de ton bouton et tu places la propriété Cancel à True.
Ainsi lorsque tu actionneras la touche Escape tu fermeras ton USF.

Bonne soirée à toutes & à tous

 

[natbru]

Bonsoir Eric et merci.

J'ai finalement modifier le code en y intégrant un boutton QUITTER comme tu l'indiquais.