Discussion :

[KTMARC]

Salut le Forum
J'ai conçu un formulaire comprenant des texbox et des cases à cocher qui serviront à griser les textbox correspondant aux champs non utilisés.
Je peux coder les cases à cocher une à une comme j'ai fais pour le premier champ mais je voudrais une autre alternative pour gagner en temps et en espace en faisant une boucle sur toutes les cases à cocher. Merci pour votre aide.
Boucle Sur Case à Cocher.xlsm

[unparia]

Bonjour

Si k (exemple) = 3, Me.controls("CB" & k) se réfère au contrôle CB3

Il est dès lors facile de boucler sur des checkboxes nommées CB1, CB2, ... CBn

[OrDonc]

Salut
- pour 10 cases à cocher, une boucle commune

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub CheckBox1_Click()
  mc CheckBox1, 0 'CheckBox1=0 ou 1 --- 0 pour Textbox1
End Sub
Private Sub CheckBox2_Click()
  mc CheckBox2, 5 'CheckBox2=0 ou 1 --- 0 pour Textbox6
End Sub
'etc ...
Sub mc(bo As Boolean, n) 'macro commune
  Dim i As Byte
  For i = 1 To 5
    Me("textbox" & n + i).Enabled = bo
    Me("textbox" & n + i).BackColor = IIf(bo, RGB(217, 217, 217), 16777215)
  Next
End Sub

On peut aussi passer par un Module de Classe mais je préférais à l'arrivée, les remplacer par un seul contrôle (ListBox)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub UserForm_Initialize()
  ListBox1.List = Array("K 1", "K 2", "K 3", "K 4", "K 5", "K 6", "K 7", "K 8", "K 9", "K 10") 'noms à adapter
End Sub

Private Sub ListBox1_Change()
  Dim n As Byte, bo As Boolean, i As Byte
  n = ListBox1.ListIndex
  bo = ListBox1.Selected(n)
 For i = 1 To 5
    Me("textbox" & n * 5 + i).Enabled = bo
    Me("textbox" & n * 5 + i).BackColor = IIf(bo, RGB(217, 217, 217), 16777215)
  Next
End Sub