Textbox (i) !

Bonjour,

Pour mon travail je cherche à développer une petite application qui met en jeu quelques textbox que je souhaite faire apparaître (toutes en même temps). La solution la plus buldozer serait de d'écrire quelque chose du genre :

textbox1.visible=true
textbox2.visible=true
etc.

J'en ai 8 à faire apparaître et disparaitre selon les situations... un peu long et pas forcément très malin. Je pensais que une version plus évoluée serait :

Code:

---

1 2 3 4 5

if checkbox1.value = true then for i = 1 to 8 textbox(i).visible=true next i end if

---

Mes essais n'ont rien donnés de valable et visiblement je ne suis pas dans le vrai puisque la présence des ( ) est interprétée comme une fonction... là çà coince ! :(

Si vous avez une idée et ou savez comment faire je serai ravi d'apprendre une nouvelle méthode.:ccool:

Merci d'avance.

Bonjour et bienvenue

Si tu les a appelés TextBox1, TextBox2, etc... tu peux utiliser

Code:

---

1 2 3

for i = 1 to 8 controls("textbox" & i).visible=checkbox1.visible next i

---

En plus, le code que je te donne te permet de te passer du test If... End If, et de masquer ou d'afficher avec le même code, en fonction de la valeur du checkbox1.

Bonjour,

Tu peux aussi boucler sur les controls de ton userform et donner la valeur de la checkbox a la propriete Visible de tes textbox

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Dim ctl As Control   For Each ctl In Me.Controls   If TypeName(ctl) = "TextBox" Then   ctl.Visible = CheckBox1.Value   End If   Next

---

EDIT : Je n'avais pas bien lu la propo de Pierre qui utilise aussi la valeur de la checkbox :oops:

J'ai pris bonne note de vos propositions - après essai dans mon appli çà fonctionne parfaitement. Merci à vous deux pour votre aide.... que je ne manquerai pas de solliciter en cas de besoin.

Philippe