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.