caché un objet si case cochée

Bonsoir,

Voici un exemple qui devrait fonctionner correctement :

Private Sub CheckBox1_Click()

If CheckBox1.Value = True Then
TextBox1.Visible = True
Else
TextBox1.Visible = False
End If

End Sub

Private Sub UserForm_Initialize()

TextBox1.Visible = False

End Sub

@+

Ronan

Re-Salut Simon, le Forum

Un exemple archi-simple :

1 UserForm
1 TextBox dedans nommée TextBox1
1 CheckBox dedans nommée CheckBox1


Ce Code dans le Private MOdule du UserForm en Question :

Private Sub UserForm_Initialize()
With Me
.TextBox1.Visible = False
.CheckBox1.Value = False
End With
End Sub

Private Sub CheckBox1_Click()
Me.TextBox1.Visible = Me.CheckBox1
End Sub

Pas plus compliqué
Bonne Soirée

@+Thierry

Bonsoir Ronan, on s'est croisé sur ce coup là, pour par dire "téléscopé" lol

Pour une checkbox, sa valeur étant boolean, on peut la passer directement en valeur Visible.

Bonne Soirée
@+Thierry

Re-Bonsoir,

Il est vrai que c'est beaucoup plus simple.
Il suffisait d'y penser !!!
Petite astuce bien agréable et plus lisible.

Ronan

merci beaucoup à vous deux ronan et thierry

deux différentes en plus

par contre je ne comprends pas trop comment marche la solution avec le me. A quoi set ce me que l'on retrouve dans d'autres de tels formules?


Merci beaucoup encore

bonne nuit

j'hesite a refaire un sujet, mais il semble au final s'adapter a celui ci.

en fait jaimerais faire apparaitre ces textbox ssi il y a plus de 1 check box selectionnées
(le but est de répartir des données, pas besoin de les repartir s'il n'y en a qu'une de coché)


le problème est qu'au point de vue de l'interface de cocher decocher jusqu'a ce que les boutons apparaissent, c'est pas top.
en vba je fais un truc comme:

Private Sub checkbox1_Click()

Dim c1 As String
Dim c2 As String
Dim c3 As String
Dim Test_c As Byte


If checkbox1.Value = True Then
Test_c = Test_c + 1
End If
If checkbox2 = True Then
Test_c = Test_c + 1
End If
If checkbox3 = True Then
Test_c = Test_c + 1
End If


If Test_c > 1 Then
Me.pourcenconc1.Visible = Me.check_c1
End If

End Sub

et je fais pareil pour les autres.
Dans ce cas il est peut etre preferable de trouver une autre méthode je sais mais je reste bloqué sur celle ci. Si vous aviez une idée. C'est d'ailleurs pour cela que j'essayais de ne pas sortir de la sub ok click, cela me permettait de le placer après le calcul.

Merci, et dormez bien (je ferais bien aussi d'ailleurs)

bon il y a ca:

Private Sub checkbox1_Click()

Dim c1 As String
Dim c2 As String
Dim c3 As String
Dim Test_c As Byte


If checkbox1.Value = True Then
Test_c = Test_c + 1
End If
If check_c2 = True Then
Test_c = Test_c + 1
End If
If check_c3 = True Then
Test_c = Test_c + 1
End If

If checkbox1.Value = True Then
If Test_c > 1 Then
textbox1.Visible = True
Listbox1.Visible = True
If check_c2.Value = True Then
textbox2.Visible = True
Listbox2.Visible = True
End If
If check_c2.Value = True Then
textbox2.Visible = True
Listbox2.Visible = True
End If

Else
textbox1.Visible = False
Listbox1.Visible = False
End If



If Test_c < 1 Then
textbox1.Visible = False
Listbox1.Visible = False
textbox1.Visible = False
Listbox1.Visible = False
textbox1.Visible = False
Listbox1.Visible = False
End If



End Sub




.......


Mais bon sachant qu'apres j'ai la meme chose mais avec 6 listbox et 6 textbox encore
si quelqu'un a quelque chose de joli?

oups ca ne marche meme pas, bon mal à la tete, dodo

à demain 7h30 :'(

Hop trouvé


ATTENTION NE VOUS EMBETEZ PAS

merci d'etre passé

bon c'est un peu lourd mais tant pis.

Bon cette fois au lit