Pb textbox et evenement change

[norm1111]

Bonjour à tous

Voila mon probleme...
Dans un formulaire
J'ai des textbox qui change a la suite de calcul (genre taxe) sans probleme.

A la fin de mon programe j'efface mes textbox, mais les evenements comme "change" se réexecute

Question: Comment faire pour effacer mes textbox sans executer les evenements.


Merci a l'avance

 

[ROGER2327]

Re : Pb textbox et evenement change

Bonjour norm1111

Vous pouvez essayer une structure de code de ce genre :

[COLOR="DarkSlateGray"][B]Sub toto()

[COLOR="SeaGreen"]'Début du code.
'Les évènements sont traités.[/COLOR]

   Application.EnableEvents = False
   
[COLOR="SeaGreen"]'Dans cette partie du code, les évènements sont ignorés.
'ATTENTION : Si un "plantage" intervient dans cette
'partie, les évènements continueront à être ignorés.[/COLOR]

   Application.EnableEvents = True
   
[COLOR="SeaGreen"]'La prise en compte des évènements est rétablie.[/COLOR]

End Sub[/B][/COLOR]

Difficile d'en dire plus en n'ayant pas plus de détails sur votre projet.​

ROGER2327
#2661

 

[norm1111]

Re : Pb textbox et evenement change

Merci pour ton interet amon probleme

Pour être plus clair quand j'efface le texte de mon textbox je ne veux pas que la fonction change attaché a ce textbox s'exécute.

merci encore

 

[Pierrot93]

Re : Pb textbox et evenement change

Bonjour norm, Roger

essaye peut être ainsi, ligne à placer au début de ta procédure :

Private Sub TextBox1_Change()
If TextBox1.Value = "" Then Exit Sub
'ton code
End Sub

bonne fin d'après midi
@+

 

[norm1111]

Re : Pb textbox et evenement change

Bonjour Pierrot93

La ligne me sort du sub mais je dois reexecuter mon userform ce qui n'est pas pratique.

Si tu as d'autres idées je suis preneur.
merci

 

[Pierrot93]

Re : Pb textbox et evenement change

Re,

sans voir ton fichier et code utilisé difficile pour moi de te proposer une autre solution....

 

[jp14]

Re : Pb textbox et evenement change

Bonsoir à tous

Une solution consiste à mettre un flag (drapeau, sémaphore, indicateur)

En début de module
Dim flag as boolean

Première ligne de code des procédures qui ne doivent pas être lancée

If flag = true then exit sub

Dans les procédures susceptibles de lancer la procédure évènementielle

mettre flag = true
textbox1= ""
puis flag = false


JP

 

[norm1111]

Re : Pb textbox et evenement change

Bonjour JP14
Merci beaucoup ca marche
Norm