textbox_afterUpadate et frame

[Astaford]

Bonjour,

Mon problème concerne une UserForm sur laquelle sont placés
- d’une part un frame contenant une textbox et un label associés
- d’autre part une listbox
L’affichage de la listbox est commandé par l’entrée et la validation d’une valeur dans la textbox. J’utilise pour cela la procédure textbox_afterUpdate.

Problème :
le code ne fonctionne pas si la textbox est incluse dans le frame, mais il fonctionne correctement si elle est placée directement sur la UserForm. Il semble que le fait de l’inclure dans un frame désactive l’événement afterUpdate.

Si quelqu’un a une explication, je le remercie par avance.

 

[Robert]

Re : textbox_afterUpadate et frame

Bonjour Astraford, bonjour le forum,

J'ai testé chez moi avec une TextBox1 dans une Frame et une ListBox1 en dehors avec ce petit bout de code :

Private Sub TextBox1_AfterUpdate()
ListBox1.Clear
ListBox1.AddItem TextBox1.Value
End Sub

Ça marche. La ListBox1 est bien alimentée car le contenu de la TextBox1... Ton fichier joint serait le bienvenu pour trouver où ça plante.

 

[Dull]

Re : textbox_afterUpadate et frame

Bonjour et Bienvenu Astaford, le Forum

Plutôt que de refaire un Fichier avec les éléments décrits (Fortbiend'ailleurs) ne pourrais tu mettre un exemple de ton fichier débarrassés des données perso, et - de 48Ko afin d'essayer de résoudre ton soucis.

Sinon et SGDF (SansGarantiDuForum), essai un

Application.ScreenUpdating=False
Unload me 
UserForm1.Show 'S'il s'appelle comme ça
Application.ScreenUpdating=True

à la fin de ton code

mais encore une fois sans Fichier référence...

Astaford...avec un f de plus (Astaffort) ne serai-ce pas la Patrie de Françis Cabrel? 🙂

EDITION: Salut Robert 🙂, Homme de la Patrie de Georges Brassens 🙂

Bonne Journée

 

[Astaford]

Re : textbox_afterUpadate et frame

Bonsoir Robert et Bonsoir Dull

Je joins un extrait du code, avec les précisions suivantes :
La userform comporte en fait 2 frames (1 et 2) et cinq listbox. Le frame 1 comprend une case à cocher dont la validation doit afficher le frame 2, lequel contient la textbox1 qui me pose problème. Les listbox sont remplies préalablement dans la procédure userForme_initialize. Les instructions Zorder(fmtop) sont là parce que tous les contrôles sont superposés.


Private Sub OptionButton1_Click()
UserForm_Fenêtres.Frame1.Visible = False
UserForm_Fenêtres.Frame2.Visible = True
UserForm_Fenêtres.Frame2.ZOrder (fmtop)
UserForm_Fenêtres.TextBox1.SetFocus
End Sub
---------------------------------
Private Sub TextBox1_AfterUpdate()
UserForm_Fenêtres.Frame2.Visible = False
UserForm_Fenêtres.ListBox1.Visible = True
UserForm_Fenêtres.ListBox1.ZOrder (fmtop)

End Sub



Merci de vos réponses rapides

 

[Astaford]

Re : textbox_afterUpadate et frame

Bonsoir Robert et Bonsoir Dull

je reposte mon message avec les balises code correctes😀ésolé😱

Je joins un extrait du code, avec les précisions suivantes :
La userform comporte en fait 2 frames (1 et 2) et cinq listbox. Le frame 1 comprend une case à cocher dont la validation doit afficher le frame 2, lequel contient la textbox1 qui me pose problème. Les listbox sont remplies préalablement dans la procédure userForme_initialize. Les instructions Zorder(fmtop) sont là parce que tous les contrôles sont superposés.

Private Sub OptionButton1_Click()
UserForm_Fenêtres.Frame1.Visible = False
UserForm_Fenêtres.Frame2.Visible = True
UserForm_Fenêtres.Frame2.ZOrder (fmtop)
UserForm_Fenêtres.TextBox1.SetFocus
End Sub
---------------------------------
Private Sub TextBox1_AfterUpdate()
UserForm_Fenêtres.Frame2.Visible = False
UserForm_Fenêtres.ListBox1.Visible = True
UserForm_Fenêtres.ListBox1.ZOrder (fmtop)

End Sub