Discussion :

[jijie]

Bonjour à tous,

Je voudrais votre conseil sur mon fichier.
Voilà, lorsque je suis sur un textbox ou un combobox je tape sur la touche entr et mon USERFORM se ferme et s'ouvre aussitôt! Par contre si je navigue avec la tabulation cela fonctionne très bien.

J'utilise cet USER en SHOW MODAL False, mais si je le mets en True le résultat est le même!!

Là je ne comprend pas! Merci à vous

[mercatog]

Bonjour,
La précision des réponses dépends de la clarté des questions.
Est ce lors de la saisie des données dans un TextBox de ton Userform, ce dernier se ferme?

[patricktoulon]

bonjour regarde si tu n'a pas mis la fonction

userform1.show " dans la boucle ou une des fonction de ton textbox ou combobox si c'est le cas c'est normal c'est comme si tu rebootais ton usf

dis moi ou est cette fonction


au plaisir

[jijie]

Non je n'ais pas de commande de ce genre, de plus l'user se ferme dés que j'actionne la touche entrer de tous les textbox ou combobox, par contre si je fais enter sur un bouton, il réalise son code normalement!

Ne serait-ce pas dans les propriétés de l'user ou textbox ou encore combobox?

Pour le moment je cherche ds ce sens!

Merci

[laetitia]

bonjour jijie re mercatog patrick si tu mettais le code de ton user pas plus simple non????

[jijie]

Bonjour Laetitia,

J'ai regardé et lorsque je retire le code d'un bouton annulé l'user de se reboote pas, le voici

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
If Label42 = 0 Then GoTo fin1
ComboBox1 = ""
TextBox11 = ""
ComboBox3 = ""
TextBox6 = ""
TextBox5 = ""
 
GoTo fin2
 
fin1:
 
Unload UserForm24
 
 
    UserForm24.Show 0
    'MsgBox Yes + No + Cancel
Select Case MsgBox("Voulez-vous enregistrer vos opérations ?", vbYesNoCancel, "Click sur oui pour enregitrer en banque ou sur Non pour les factures!")
    Case vbYes
        UserForm24.Frame1.Visible = True
        UserForm24.Frame3.Visible = False
        UserForm24.CBapTré1.Visible = True
    Case vbNo
        UserForm24.Frame3.Visible = True
        UserForm24.Frame1.Visible = False
        UserForm24.CBapTré1.Visible = False
    Case vbCancel
 
End Select
 
 
 Application.ScreenUpdating = True 'active la mise à jour de l'écran
 
 
fin2:

par contre lorsque j'actionne enter je ne passe pas à la cellule suivante!

Donc il y a certainement une erreur sur ce code mais je pense qu'il y a d'autre problème!

à vous lire

[jijie]

Laetitia, Patrick

Désolé de vous avoir dérangé!

En fait, le bouton du code ci-dessus, dans propriété du bouton était en mode default.true ce qui générait le problème!

Merci et a+