Textbox invisible ou bloqué - VBA Fermé

Question

Bonjour à tous,

J’ai une question qui est plus pour le visuel de mon formulaire :
Voici le fichier 
https://www.cjoint.com/c/HHxrdTDPDxh


Si je choisi pour la combobox1 « _C180 » et pour la Combobox2 « Seed/Oil/Fat »
Il apparait des données dans mes textBox (2,3,4 et 5). Ainsi, je pourrais saisir dans les textBox (6,7,8 et 9), la quantité pour chaque donnée.

Cependant, si je sélectionne pour la combobox1 le « _C160 » et pour la Combobox2 le « Seed/Oil/Fat »

Dans la colonne « Entrée » il y a « totalC161int » dans la textBox2 et « C160int » dans la textBox3. Ainsi la textBox6 et textBox7 (en blanc) sont disponible pour la saisir des données. Cependant la TextBox8 et textBox9 sont aussi en blanc et disponible à la saisie.

Je voudrais savoir si c’est possible dans ce cas, mettre la textBox8 invisible et/ou bloquée à la saisir (lorsqu’il n’y a aucune information dans la textBox3). Idem pour la textBox9 en fonction de la textBox4.

Merci beaucoup de vos aides !
A bientôt
Lucas

cs_Le Pivert · Answer

Bonjour,

Intéresses-toi à aux propriétés Enabled , Visible et Locked de la TextBox

Voici un exemple à adapter à tes besoins:

 https://docs.microsoft.com/fr-fr/office/vba/outlook/How-to/General/how-to-enable-and-lock-a-text-box-from-user-entry

Ofeu · Answer

Bonjour Pivert

Effectivement, c'est du textBox !

Private Sub TextBox4_Change() 
If TextBox4.Value = "" Then 
TextBox8.Visible = False 
End If 
End Sub 

Cependant lorsque ma textBox4 est vide, la textBox8 ne disparait pas.
En plus j'ai essayé de mettre en focntion AfterUpdate et d'autres fonctions :

Private Sub TextBox4_AfterUpdate() 
If TextBox4.Value = "" Then TextBox8.Visible = False 
End If 
End Sub 

Private Sub UserForm_Initialize()
If TextBox4.Value = "" Then TextBox8.Visible = False 
End If 
End Sub 

Private Sub UserForm_Initialize()
TextBox4.Value = "" Then TextBox8.Visible = False 
End Sub 


Merci pour le site et pour l'attention !

Bonne journée

Textbox invisible ou bloqué - VBA

2 réponses

Discussions similaires