Dans USF, boutton OK=touche entrer

PascalXLD

XLDnaute Barbatruc

Modérateur

• 26 Décembre 2005

• #2

Bonjour

Mets la valeur Default à true

Bon courage

 

Vote positif 0 Vote négatif

N

natbru

XLDnaute Occasionnel

• 26 Décembre 2005

• #3

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

Ca marche impecc.

 

Vote positif 0 Vote négatif

N

natbru

XLDnaute Occasionnel

• 26 Décembre 2005

• #4

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 :

Code:

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.

 

Vote positif 0 Vote négatif

Hervé

XLDnaute Barbatruc

• 26 Décembre 2005

• #5

bonjour natbru

peut etre comme ceci :

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

Cliquez pour agrandir...

salut

 

Vote positif 0 Vote négatif

PascalXLD

XLDnaute Barbatruc

Modérateur

• 26 Décembre 2005

• #6

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

 

Vote positif 0 Vote négatif

N

natbru

XLDnaute Occasionnel

• 26 Décembre 2005

• #7

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 ??

 

Vote positif 0 Vote négatif

Hervé

XLDnaute Barbatruc

• 26 Décembre 2005

• #8

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

 

Vote positif 0 Vote négatif

N

natbru

XLDnaute Occasionnel

• 26 Décembre 2005

• #9

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

Merci pour votre aide

 

Vote positif 0 Vote négatif

Eric C

XLDnaute Barbatruc

• 26 Décembre 2005

• #10

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

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

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

 

Vote positif 0 Vote négatif

N

natbru

XLDnaute Occasionnel

• 26 Décembre 2005

• #11

Bonsoir Eric et merci.

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

 

Vote positif 0 Vote négatif