Portée d'une variable "PUBLIC" dans module de class

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:

---

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:

---

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

Bonjour,

J'ai un doute sur ton cas de figure.

Sur ce que je comprends :
- tu as un module de classe (dont on ignore le nom) avec une valeur Public CouleurFondActiveControl
- tu veux utiliser CouleurFondActiveControl ailleurs dans un module

Si c'est le cas, quel est le nom de ta variable de type NomDeTonModuleDeClasse ?

La variable CouleurFondActiveControl n'existe qu'à partir de ton module de classe, ce n'est pas une variable (Public ou Global) qui apparaitrait dans un module :)

Sinon, si je suis dans le champs et que tu veux simplement stocker les informations de couleurs, tu peux passer par une feuille de ton classeur qui te sert de récipient à variables ^^