Discussion :

[lebalme2000]

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 :

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

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.

Merci d'avance.

[Pierre Fauconnier]

Bonjour et bienvenue

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

Code :

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

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.

[jfontaine]

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 :

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

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

[lebalme2000]

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