Bonjour,
Je voudrais pouvoir gerer la couleur de mes boutons en définisant des constantes dans un module, ainsi je défini leurs couleurs à un seul endroit. Voici le code tout simple que j'ai écrit:
Dans le module:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
 
'----- Paramètre pour la gestion des couleurs des boutons (survol = couleurIn)
Public Const couleurOut As String = "RGB(91, 168, 253)"
Public Const couleurIn As String = "RGB(170, 220, 250)"
Et dans une feuille ou il y a des boutons
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
 
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
' La sourie est sur la form, gestion des couleurs des boutons
Cmdfermer.BackColor = couleurOut
CmdValider.BackColor = couleurOut
End Sub
Mais j'ai un plantage sans la moindre explication, ca s'ouvre et ferme aussitôt ! on doit pourtant bien pouvoir faire ce genre de déclaration !?