Boucle Textbox. Visible = false

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:

---

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.

bonjour,
je comprends pas!
tu écrits ça

Code:

---

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

---

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

Code:

---

("TB_PA_1_" & n).Visible = True

---

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

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.

Bonsoir à tous,
a essayer

Code:

---

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

---

Code:

---

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

---

Merci à tous,

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

Philippe.