rendre visible Textbox2 quand Textbox1 renseignée

erics83 · 22 Janvier 2019

Bonjour,

Pour une fois, je pense que "tout est dans le titre..." lol

Dans un USB, j'ai 20 textbox. J'aimerai que les textbox s'affichent (elles sont à l'état visible=false) au fur et à mesure que le précédent est renseigné....:
Si je rempli textbox1, alors textbox2 s'affiche, si je rempli textbox2, alors textbox3 s'affiche, et ainsi de suite.....

merci pour votre aide,

job75 · 22 Janvier 2019

Bonjour erics83,

Mettez la propriété Visible des TextBox2 à TextBox20 à False, ces 19 TextBoxes seront masquées à l'ouverture.

Ensuite dans le code de l'UserForm mettez 19 macros :

Code:

Private Sub TextBox1_Change()
TextBox2.Visible = TextBox1 <> ""
End Sub

Private Sub TextBox2_Change()
TextBox3.Visible = TextBox2 <> ""
End Sub

Private Sub TextBox3_Change()
TextBox4.Visible = TextBox3 <> ""
End Sub

'etc...

On pourrait aussi utiliser un Module de classe.

A+

Robert · 22 Janvier 2019

Bonjour Éric, bonjour le forum,

Un module de classe serait certainement plus simple. Sinon en adaptant ce code pour les 20 TextBoxes :

VB:

Private Sub TextBox1_AfterUpdate()
Me.TextBox2.Visible = Me.TextBox1.Value <> ""
End Sub

[Édition]
Bonjour Job, nos posts se sont croisés...

erics83 · 22 Janvier 2019

Merci Job75,
Merci Robert,

Merci pour ces 2 propositions....je pense que je ne vais pas m'aventurer dans les modules de classe (car je ne connais pas trop...) et vais m'orienter vers l'une de vos solutions.....

Merci !

rendre visible Textbox2 quand Textbox1 renseignée

erics83

XLDnaute Impliqué

job75

XLDnaute Barbatruc

Robert

XLDnaute Barbatruc

erics83

XLDnaute Impliqué

Discussions similaires