Discussion :

[Kareg]

Bonjour,

Voici ce que je cherche (et ne parviens pas) à faire :
Dans un formulaire, j'aimerai qu'une zone de texte (TxtBox2) soit rendue active uniquement lorsque l'on saisit un texte donné dans une autre zone de texte (par ex. : uniquement si l'on saisi "Bleu" dans TxtBox1).

Intuitivement, avec le peu que je connais, j'ai tenté la commande :

Code :

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

1
2
3
4
5
6
 
Private Sub TxtBox1_Change()
 
If TxtBox1.Value = "Bleu" Then TextBox2.Enabled = True Else TxtBox2.Enabled = False
 
End Sub

Pour info, cette commande a fonctionné pour une checkbox activant une zone de texte (sur l'évènement on click)...
Mais comme je rame pr le moment en programmation je n'y suis peut-être pas du tout en me basant là-dessus...

Merci bcp d'avance pour vos éventuels tuyaux !

Kareg.

[loufab]

Bonjour,

_Change travaille caractère par caractère essaye _Afterupdate qui lui travaille sur le contenu global modifié (juste avant l'événement Sur Sortie).


Il y a une petite application qui aide à la compréhension des événements (chasseur d'evenement) sur mon espace perso.

Cordialement,

[Kareg]

Bonjour Loufab !

Merci pour la réponse... J'ai essayé avec AfterUpdate, puis avec Exit (sur sortie), mais ça ne fonctionne pas davantage
Un collègue m'a ensuite conseillé d'ajouter une comparaison de variable au début de la commande, ce qui ressemblait à :

Code :

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

1
2
3
Private Sub TxtBox1_Exit(Cancel As Integer)
If StrComp(UCase(TxtBox1.Value), "BLUE", 1) = 0 Then 
TxtBox2.Enabled = True Else TxtBox2.Enabled = False

Chose étrange, ça a fonctionné au départ, mais après avoir fait quelques autres manips pour que ça puisse s'appliquer à l'ouverture du formulaire, plus rien ne fonctionne !!

Merci encore !

Kareg.

[Kareg]

En fait ça y est, je m'autocorrige, ça fonctionne !!

Avec cette ligne de commande, appliqué sur l'événement "Exit" de la text Box et sur l'événement "OnLoad" du formulaire (pour que ça soit effectif dès l'ouverture):

Code :

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

1
2
3
4
 
Private Sub TxtBox1_Exit(Cancel As Integer)
If StrComp((TxtBox1.Value), "blue") = 0 Then 
TxtBox2.Enabled = True Else TxtBox2.Enabled = False

Apparemment c'est le fait de passer BLUE en miniscule ds le code qui a tout fait changé...
Je suis dubitatif et ne comprends pas tout, mais suis qd même très content !

Merci bien et bon week-end !

Kareg.