Je n'arrive pas à récupérer la couleur du dernier textbox actif lorsque je clique sur un bouton pour en changer la couleur.

Module de class
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
 
Public CouleurFondActiveControl As Long
 
Private Sub TxtCouleur_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    CouleurFondActiveControl = TxtCouleur.BackColor
End Sub
Module simple
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
Private Sub CmdChangeCouleur_Click()
    r = ChooseColorDialog(CouleurFondActiveControl)
End Sub
La variable est vide.

Depuis toujours, je résous le problème en plaçant la valeur dans le "tag" du bouton de commande.
Y-a-t-il une autre solution ?

ESVBA