Discussion :

[ESVBA]

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

[Jean-Philippe André]

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 ^^