griser un textbox conditionnellement

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 ?

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.

Code:

---

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

---

Unparia

pouvez-vous me donner un exemple de code svp?

Citation:

---

Envoyé par raAndo

Unparia

pouvez-vous me donner un exemple de code svp?

---

je t'en ai donné un!

Pièce jointe 253709

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

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:

---

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

---

oui mais j'utilise toujours la saisie instinctive Me.! je ne me prends pas la tète à taper le nom du contrôle!

de plus tester un booléenne pour affecter la même valeur à un autres booléenne est une aberration

Code:

---

1 2 3 4 5

if true=true then bool=true else bool=false end if

---

Édite:
quand on à compris qu'un if évaluait une réponse booléenne!

Code:

---

if (UCase(Trim("" & Me.ComboBox1)) = "FEMME")= true then

---

ça marche très bien le code, merci beaucoup pour votre generiosité

dysorthograhie

Tu as raison d'utiliser la saisie "semi-automatique". C'est ce que je fais. Ensuite, j'efface le "Me.".

Nous sommes à 200 % d'accord sur l'usage des valeurs booléennes.
Cette méthode, à ce que je vois ici et là, n'est pas assez usitée.

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

Citation:

---

Envoyé par dysorthographie

Édite:
quand on à compris qu'un if évaluait une réponse booléenne!

Code:

---

if (UCase(Trim("" & Me.ComboBox1)) = "FEMME")= true then

---

---

Je dirais même plus:

Code:

---

if (UCase(Trim("" & Me.ComboBox1)) = "FEMME") then

---

Pas besoin du = True.

bonjour Alain,
oui!