Discussion :

[raAndo]

Bonjour à tous les amis,

Je suis débutant en vb, j’ai créé un formulaire de saisie contient 3 textbox ; je voudrais que le textbox2 soit grisé et verrouillé si la valeur entrée dans le textbox1 est « femme » ; par contre le textbox3 soit grisé et verrouillé si la valeur entrée dans le textbox1 est « homme ». Quelqu’un peut m’aider ?

[unparia]

Bonjour
Cela se fait par une expression conditionnelle de 1er niveau (si le contenu = " ...") et l'utilisation de la propriété Enabled (true ou false selon le cas) de la textbox.

[raAndo]

Unparia

pouvez-vous me donner un exemple de code svp?

[Invité]

Unparia

pouvez-vous me donner un exemple de code svp?

je t'en ai donné un!

[raAndo]

desolé Dysorthographie, je n'ai pas vu votre réponse car je n'actualise pas le navigateur avant, merci pour le code, ben je vais le tester

[MarcelG]

Bonjour à vous, Bonjour u Forum,

A dysorhographie,
Si je peux me permettre, dans le contexte ici décrit, l'attachement au formulaire n'est pas obligatoire (Me.)
Qu'en penses-tu?

Au demeurant, il est bien d'user des valeurs booléennes comme des valeurs numériques. Ce que tu fais.
L'avantage en est une meilleure lisibilité du code

Un exemple :

Code :

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

Woksheets("lafeuille").Visible = Txt_sexe.Enabled

[Invité]

Code :

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

1
2
3
4
5
6
7
8
Private Sub ComboBox1_Change()
Me.TextBox2.Enabled = UCase(Trim("" & Me.ComboBox1)) = "FEMME"
Me.TextBox3.Enabled = Not Me.TextBox2.Enabled
End Sub
Private Sub UserForm_Initialize()
Me.ComboBox1.List = Array("Femme", "Homme")
Me.ComboBox1.ListIndex = 0
End Sub

[Invité]

je dirai même qu'il ne s'agit pas toujours à proprement parlé de nivice

[Invité]

bonjour Alain,
oui!