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 :

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
si j'appelle la fonction avec : maFonction( tbA )

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