CheckBoxJ et TextBoxJ
Bonjour.
J'ai une bonne centaine de CheckBox et TextBox qui fonctionne sur ce code.
Private Sub CheckBox1_Click()
If Me.CheckBox1 = True Then
Me.TextBox1.Value = "1"
Else
Me.TextBox1.Value = ""
End If
End Sub
j'ai tenté dans le UserForm_Initialize() pour raccourcir mon code
Dim j As String
For J = 1 To 158
If Me.Controls("CheckBox" & J).Value = True Then
Me.Controls("textbox" & J).Value = "1"
Else
Me.Controls("textbox" & J).Value = ""
Next
Quelqu'un peut il m’expliquer ou est le problème????
Merci
Bonjour,
1) Click n'est pas Change et vice versa. Change, c'est le cas de le dire !
2) Boucle 1 à 158 sur Annuler (et non Initialize), quand il n'y a que 7 TextBox, l'erreur arrive au 8e.
3) 158 procédures identiques, c'est incohérent : en faire une et renvoyer sur elle avec n° d'ordre identifiant, cela réduit la procédure par contrôle à une petite ligne. Si différent type de réponse, faire les distinction au niveau proc. commune.
Cordialement.
Bonjour.
C'est justement ce que j’essaie de concrétiser. Cette petite ligne...