Controls événementiels en série
Bonsoir,
Je remercie encore une fois DAN qui m'a montré comment incrémenter une série de TextBox et autre avec Controls.
Ça ma ouvert d'autre possibilités: a savoir que quant je clic sur un control une action ce produise immédiatement.
La difficulté c'est quant le nombre de controls est important, 12 listes et 12 cases à cocher, c'est fait, çà marche et c'est pas beau.
Private Sub Affiche1_Click()
If Affiche1 = True Then
Controls("Affiche1").ForeColor = &HC000&
Controls("Affiche1").Caption = "Affiché"
Else
Controls("Affiche1").ForeColor = &HFF&
Controls("Affiche1").Caption = "Masqué"
End If
End Sub
Private Sub NatCpt1_Change()
If Controls("NatCpt1") = "Compte chèque" Then
Controls("NChq1").Visible = True 'N° de chq affiché
Else
Controls("NChq1").Visible = False 'N° de chq masqué
End If
End Sub
Est ce qu'on peu faire mieux?
Bonne soirée
Jean-Michel
Bonsoir,
Pour ce genre de travail on utilise les modules de classes. Ça ne demande pas plus de code mais comme c'est paramétré, La même macro sert pour tous les contrôles. C'est un peu abstrait et pas à la portée du débutant lambda.
Nécessité de fournir un classeur abouti pour te faire ça.
Pour info tu peux regarder ce fichier ou il y a 110 CheckBox et quelques TextBox.
A peine une douzaine de lignes permettent de les gérer...
A+
Merci,
Comme j'ai fais ça fonctionne bien, pas beau, mais efficace.
Bonne soirée.
Jean-Michel