Masquer/Afficher selon le Optionbutton choisi.

[Maspalio]

Bonjour à tous,

J'ai une userform avec quelques Optionsbuttons.

Selon, celui que je choisis, différents textboxs, Images, .. doivent apparaitre et disparaitre dans une Frame précise.

Ma question est : Existe une façon générique de tout mettre à Visible= False en ensuite mettre à True ceux dont on a besoin?

Ou dois-je passer au cas par cas comme suivant ?

Private Sub OptionButton1_Click()

TextBox1.Visible = True
TextBox2.visible = False
TextBox3.visible = False
TextBox4.visible = True

End Sub

Ce qui n'est pas super élégant, sachant que j'ai 5/6 textboxs, 5/6 Labels, et 4/5 Images avec lesquels je dois switcher en Visible True/False selon le optionbuttons (6 au total)

Merci,

 

[Pierrot93]

Re : Masquer/Afficher selon le Optionbutton choisi.

Bonjour,

peut être faire une boucle lors de l'initialisaion... sans plus de détails...

Option Explicit
Private Sub UserForm_Initialize()
Dim c As Control
For Each c In Me.Controls
    If TypeName(c) = "TextBox" Then c.Visible = False
Next c
End Sub

et ensuite pour chaque "OptionButton" :

Private Sub OptionButton1_Change()
TextBox1.Visible = OptionButton1
End Sub

A noter, tu peux également utiliser un module de classe, tout dépend de ton projet, une petite recherche sur le forum te donnera de nombreux exemples..

bonne journée
@+

 

[Maspalio]

Re : Masquer/Afficher selon le Optionbutton choisi.

Merci Pierrot93, effectivement en adaptant :

Private Sub OptionButton1_Click()
  Dim c As Control
    For Each c In FrameParametre.Controls
        c.Visible = False
        Next c

    TextBox1.Visible = True

End Sub

J'obtiens mon résultat attendu.


Merci encore.

 

[Pierrot93]

Re : Masquer/Afficher selon le Optionbutton choisi.

Re,

Question, la boucle FOR je la ferme ou ? ou pas besoin ?

bah... en l'état elle est "fermée"... elle se déclenchera à chaque click sur ton "optionbutton"... que veux tu dire par là ??

 

[Maspalio]

Re : Masquer/Afficher selon le Optionbutton choisi.

Non, c'est moi, Pierrot93.

J'avais oublié qu'avec "Next c" que j'avais pas besoin de "Exit For".

merci encore.

Au final j'ai fait un fonction :

Private Sub Choix_OptionButton()

 Dim c As Control
    For Each c In FrameParametre.Controls
        c.Visible = False
        Next c

End Sub

que j'appelle dans le choix du option button.

Private Sub OptionButton1_Click()
    
    Choix_OptionButton

    TextBox1.Visible = True

End Sub

Merci, encore pour la piste l'aide ..