Discussion :

[Beline11]

Bonjour à tous,

c'est la première fois que je poste sur ce forum et j'ai un niveau plutôt avancé en codage VBA, cependant je butte vraiment sur un point dans l'utilisation des UserForm. Le résultats que je souhaiterais obtenir doit suivre les étapes suivantes:
- Ouvrir un UserForm1 dans lequel il y a une TextBox1 et un Bouton suivant1
- à la modification de la TextBox1, TextBox1_Change () se déclenche, effectue un test et appelle suivant1_click() si le résultat est positif
- suivant1_click() appelle UserForm2 : UserForm2.show qui contient TextBox2 et un Bouton suivant2
- à la modification de la TextBox2, TextBox2_Change () se déclenche, effectue un test et appelle suivant2_click() si le résultat est positif

Mon problème est le suivant : la partie concernant le UserForm1 fonctionne très bien, le UserForm2 est appelé, mais si je modifie la TextBox2 par entrée au clavier, rien ne se passe TextBox2_Change () ne se déclenche pas, impossible de trouver pourquoi...

Pour clarifier l'utilité de ce fichier, les TextBox_Change () des deux UserForm servent à chronométrer le temps de saisie dans la TextBox entre le 1er caractère et le dernier pour identifier si la saisie a été faite au clavier ou à laide d'une douchette/d'un scanner. Il faut donc vraiment utiliser "Change()" à mon sens.

J'attache aussi un fichier exemple pour mieux illustrer mon problème.

Merci d'avance pour votre aide,
Beline
Cascade UserForm.xlsm

[Invité]

Bonsoir,
j'ai bien compris, que tu veux faire le distinguo entre un valeur saisie manuellement et une valeur place là par ta douchette.

je présume que ta douchette ne t’expédie pas le retour de fin de ligne {chr(13)} si non tu testerais le code ASCII!

j'imagine que tu veux compter le nombre de caractère taper dans un lapes de temps.

en revanche je ne pige pas l'histoire des 2 UserForm! comment peuvent il chronométrée le temps entre 2 frappe;

Code :

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

1
2
3
4
5
Private Sub TextBox1_Change()
Static Nb As Integer
If Len(TextBox1.Text) > Nb + 1 Then MsgBox "douchette"
Nb = Len(TextBox1.Text)
End Sub

Edit: comment récupères tu les donné"s de la douchette?

[Quentin77170]

Lol... Je suis un peu perturbé car ça fait pareil chez moi, même si je pars d'un fichier vierge et que je reconstruis le truc... Je n'ai jamais vu ça en fait :/

Apparemment, peu importe que ta textbox clique sur un bouton, moi dans mon événement Textbox1_Change() j'ai directement glissé UserForm2.Show, ça fait exactement pareil... Le bouton fonctionne mais l'événement _Change de la TextBox du UserForm2 n'est plus déclenché...

Si quelqu'un a une idée ???

Si ça peut aider... Pour "débloquer" la situation, j'ai utilisé l'événement KeyPress comme ceci, pour voir :

Code :

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

1
2
3
Private Sub TextBox2_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Call TextBox2_Change
End Sub

Et ça "marche"... C'est vraiment du bricolage et ça ne résout pas le problème, mais ça pourrait servir.

Je suis vraiment curieux, là...

[joe.levrai]

Bonjour,

les userforms ne sont pas en affichage modale ?

si c'est le cas : mettre la propriété ShowModal à False sur les deux userforms et ça devrait fonctionner

ou alors appeler les Formulaires en ajoutant l'argument False

[Quentin77170]

Si, ils sont en "Modal", mais que l'on hide/unload le premier, cela ne change rien et le TextBox_Change ne fonctionne plus...

Lorsque l'on passe en Modal = False alors ça marche bien... Mais pourquoi est-ce que dans l'autre cas cet événement ne fonctionnerait plus ?? Surtout que le premier formulaire est même déchargé. Les autres événements fonctionnent pour la TextBox, au passage.

PS : La TextBox2_Change de l'USF2 ne fonctionne pas si l'ouverture du USF2 est déclenchée par le TextBox1_Change... Si on appuie sur le commandbutton avec également dedans USF2.Show, alors la TextBox2_Change fonctionne.

[Invité]

L'événement change, n'est pas le seule événements déclenché lors de la saisie d'un caractères.

Kepressed; beforupdate; afterupdate; font leur apparition.

L'événement change est libéré quand l'application décharge le userform2 , impossible dans ces conditions de gérer l'événement change du texbox2!

Les évènements bref (surtout s'ils n'engage pas une avalanche d'événements) comme click ne pose pas de problème et sommes toutes il on été prévu pour faire le job!

En d'autres termes le évènements bref peuvent réagir plus facilement que le évènements en cascades, et san doute que Microsoft leurs a accordé plus d'attention!

Quelqu'un a fait le test d'appeler bouton1_click dans textebox_change?

[Invité]

Si j'écris un autre poste c'est pour distinguer mes propos! Indépendamment de l'événement change, je n'ai pas compris le raisonnement pour identifier le temps de saisie (clavier ou douchette)

[Quentin77170]

Oui oui, j'ai essayé avec le CommandButton_Click, sans... Le truc c'est qu'on ne décharge pas l'UserForm2 !

Le USF1 contient TB1 et CB1 (TextBox et CommandButton)
Le USF2 contient TB2 et CB2

CB1_Click : USF2.Show + Unload USF1 + d'autres trucs si on veut
TB1_Change : MsgBox + CB1_Click ou directement USF2.Show, ça change rien de passer par le CB1 ou non...

Donc ça charge le USF2 dès que l'on écrit quelque chose dans la TB1 (après avoir affiché le msgbox pour info)

On n'a plus que le USF2 de visible et de chargé (en fait, peu importe d'ailleurs, j'ai essayé avec/sans et tout, ça change rien) :

CB2_Click : MsgBox → fonctionne dans tous les cas
TB2_Change : MsgBox → ne fonctionne pas si on a écrit dans la TB1 (qui a du coup déclenché l'affichage du USF2) mais si on a cliqué manuellement sur CB1 ça marche !

En rajoutant l'intermédiaire TB2_KeyDown ou KeyPress qui renvoie vers TB2_Change, alors ça simule un TB2_Change fonctionnel, mais c'est vraiment moyen...

Y'a aucune raison d'après moi pour que ça ne fonctionne pas !

[Invité]

Bonjour Quentin,
Je suis convaincu que ça devrait marcher.
Change n'est qu'une sub et il est possible d'exécuter un userfor d'une sub sinon on ne pouvait plus rien faire.

J'ai effectivement vérifier le problème , vue que je n'effectue jamais ce genre d'action sur change et je suis tombé sur le cul!

Sachant qu'il n'est pas possible d'avoir 2 évènements en même temps, je ne pense pas que l'événement soit acquitté a l'intérieur de la classe du contrôle!

Ça me paraît incompréhensible et logiquement bizarre non! Et je pense que Microsoft n'a pas gérer ce cas de figure???

Après il est possible que suivant la version d'Excel??????

[Beline11]

Bonjour rdurupt et Quentin,

Merci beaucoup pour vos réponses et pour vous être creuser la tête J'ai continué les recherches de mon côté et aussi. Il se trouve que comme le UserForm 2 fonctionne très bien si on le lance tout seul (Change() se déclenche), j'ai voulu essayer de le lancer autrement. J'ai donc mis une condition sur une variable publique dans CommandButton_Click() de la feuille excel, qui entraine le déclenchement du UserForm1 puis du UserForm2 une fois que le code du UserForm1 a été déroulé, et ça fonctionne TextBox2_Change() se déclenche! (cf. fichier joint) Cascade UserForm v2.xlsm

Je ne comprends néanmoins pas pourquoi la solution de déclencher UserForm2 via le code de UserForm1 ne fonctionne pas... Et ce serait beaucoup plus simple pour mon code, bref...

Pour répondre à ta question rdurupt, j'ai besoin d'empêcher les saisies clavier dans ma Textbox, tout en comptant le nombre de caractères, pour compter le temps de saisies d'un certains nombre de caractères. Mais cette partie de mon code fonctionne très bien, c'est vraiment le déclenchement des Change() qui cause problème.
J'avais effectivement essayer d'utiliser KeyPress, mais cette fonction ce déclenche dès la touche pressée, avant que le caractère ne soit placer dans la TextBox, ce qui ne me convient pas. Le plus simple reste selon moi d'utiliser Change(), quand ça fonctionne bien sûr

Je ne sais pas s'il s'agit d'une question de version ou autre, en tous cas ce problème est un grand mystère pour moi...

[PMO2017]

Mon problème est le suivant : la partie concernant le UserForm1 fonctionne très bien, le UserForm2 est appelé, mais si je modifie la TextBox2 par entrée au clavier, rien ne se passe TextBox2_Change () ne se déclenche pas, impossible de trouver pourquoi...

Bonjour,

Il faut différer l'ouverture de UserForm2 pour permettre de terminer le code de UserForm1.

1) Code dans UserForm1

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub Suivant1_Click()
MsgBox ("ok")
Unload UserForm1
 
 
Application.OnTime Now + TimeValue("00:00:00"), "'LaunchSuivant ""UserForm2""'"   '///ajout
'--- "'LaunchSuivant " est la procédure qui est appelée
'--- "UserForm2""'" est le paramètre String que la procédure appelée a en argument
 
End Sub

2) Code dans un module Standard

Code :

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

1
2
3
Sub LaunchSuivant(USFcible As String)
VBA.UserForms.Add(USFcible).Show
End Sub

[Invité]

Bonjour Beline11,
comment est intercepté a la douchette?

Code :

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

1
2
3
4
Sub LaunchSuivant(USFcible As String)
Dim Usf As New UserForm2
Usf.Show
End Sub

[mayekeul]

Bonjour,

cela ne résolvera pas le probleme que la procedure ne se lance pas si la précédente n'est pas terminée sauf si l'on modifie l'état modal.
Cependant, et pour le problème de départ, c'est-à-dire passer d'une page à l'autre, ne serait-il pas plus judicieux depasser par un controle multipage???

Cela fonctionnera comme il le souhaite.... sauf que l'on n'aura qu'une seule userform.

[Invité]

pour moi pas besoin de 2 userform. si l'utilisateur utilise la douchette il ne tape pas au clavier.

donc comment la douchette renseigne le textbox?

[mayekeul]

comment est intercepté a la douchette?

si je ne m'abuse, c'est un instrument qui se substitue au clavier tout simplement

aussi, pour le temps de saisie, ne serait-il pas plus judicieux de simplement mettre le textbox.locked sur true... comme cela pas de possibilité d'entrer de code à la main...

[Invité]

peut-être mais le driver de la douchette ne pas sans génère d’événement!

[mayekeul]

peut-être mais le driver de la douchette ne pas sans génère d’événement!

euh.. il doit manquer des mots

[Invité]

Oui effecticement, mais peut importe!

la douchette renseigne le textbox en une passe alors que l'utilisateur saisie les caractère l'un après l'autre!

si tu regarde mon post #2 lamprillon de code permet de faire le distinguo!

[mayekeul]

Je suis d'accord, seulement, son problème si je l'ai bien compris c'est qu'il veux juste que l'on n'encode rien manuellement dans la textbox.

et que donc, je proposais pour résoudre l'ensemble du probleme, de passer par des multipage (car effectivement, je ne vois pas non pus l'utilité de plusieurs formulaires) et ensuite simplement de 'locker' le textbox.

[Quentin77170]

Après, je ne pense pas que la question était de savoir comment gérer la douchette mais plutôt "pourquoi lancer un USF depuis une TextBox_Change arrête les TextBox_Change de l'USF2 ?"