Discussion :

[Philippe_shelby]

Bonjour à tous.

J'ai 8 CheckBox numérotés de 1 à 8 dans une Frame1 ainsi que 8 Textbox numérotées de 1 à 8 dans une Frame2.

Voici mon code :

Code :

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

1
2
3
4
5
6
7
8
'Boucle sur les Checkbox Qté
Private Sub Ctrl1Option(number As Byte)
 Dim n As Byte
 For n = 1 To 8
  If Controls("CkB_Qte_1_" & n).Value Then ("TB_PA_1_" & n).Visible = True
  'End If
 Next
End Sub

En gros je voudrais que lorsque Checkbox1 coché, TextBox1 visible et lorsque je décoche la CheckBox, la TextBox soit invisible. Et cela pour mes 8 control.

Par contre, mon code de fonctionne pas. VBA n'aime pas cette partie : Then ("TB_PA_1_" & n).Visible = True.

Pourriez-vous m'aider ?

Merci.
Philippe.

[Invité]

bonjour,
je comprends pas!
tu écrits ça

Code :

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

If Controls("CkB_Qte_1_" & n).Value Then

et tu fais ça??????????

Code :

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

("TB_PA_1_" & n).Visible = True

apparemment les même cause produisent les même effets? non?

[Philippe_shelby]

Bonsoir, je ne comprends pas trop ce que tu essayes de me faire comprendre.
Je me suis peut-être mal exprimé.

Au départ, mes 8 ChkBox (CkB_Qte_1_1; CkB_Qte_1_2; CkB_Qte_1_3......) sont décochées, et mes 8 TxtBox (TB_PA_1_1; TB_PA_1_2; TB_PA_1_3....)sont invisibles.

Je voudrais que si CkB_Qte_1_1 est coché, la TB_PA_1_1 devienne visible.
Si dans mon code, je remplace ("TB_PA_1_" & n).Visible = True par TB_PA_1_1.Visible = True je n'ai pas d'erreur.

[HopPopPop]

Bonsoir à tous,
a essayer

Code :

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

1
2
3
4
5
6
Private Sub Ctrl1Option(number As Byte)
 Dim n As Byte
For n = 1 To 8
    If Controls("CkB_Qte_1_" & n) Then Controls("TB_PA_1_" & n).Visible = True Else Controls("TB_PA_1_" & n).Visible = False
Next
End Sub

[Invité]

Code :

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

1
2
3
4
5
6
Private Sub Ctrl1Option(number As Byte)
 Dim n As Byte
For n = 1 To 8
     Controls("TB_PA_1_" & n).Visible = Controls("CkB_Qte_1_" & n).value
Next
End Sub

[Philippe_shelby]

Merci à tous,

j'ai réussi en me basant sur le code de rdurupt.

Philippe.