Bonjour, j'ai une question à 1000 points je vous explique mon problème :
Sur une feuille, j'ai 5 label et 5 textbox, les label sont nommées : LblA, lblB, lblC, lblD, lblE et les textbox sont nommées : tbA, tbB, tbC, tbD, tbE
les label et les textbox sont associées par couple ( lblA avec tbA etc ...)
j'aimerai que lorsque je clique sur une textbox, la ForeColor de la label associée devienne verte. J'y arrive en definissant les evenement mouseClick pour chaque textbox, mais je souhaiterai faire une fonction générique. J'ai pour cela eu une idée :
si j'appelle la fonction avec : maFonction( tbA )
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8 Public function maFonction(ByVal tb as TextBox) Dim maLabel as new Label 'renseigne le bon nom pour la label maLabel.name = "lbl" & Mid( tb.name, 3 )maLabel.ForeColor = Color.Green 'pour verifier que c'est bien le bon nom MsgBox("Nom de la label :" & maLabel.name) End Function
j'obtiens bien une msgbox qui me dit : "Nom de la label : lblA"
Mais la label sur ma feuille n'est pas modifiée
Est-ce réalisable ? autrement qu'en tenant un tableau à 2 dimensions contenant les couples de label, textbox.
Merci d'avance
Partager