XL 2010 COMMENT CHANGER LA POLICE ET LA COULEUR D'UN CAPTION D'USERFORM

anbar

XLDnaute Junior
Bonjour et bonne et heureuse année pour tout le monde.
Je voudrais savoir SVP s'il y a moyen de changer la police et la couleur d'un caption d'un userform?
j'ai essayé avec la fenêtre de propriétés mais ça donne rien.

Merci de votre aide
 

Modeste geedee

XLDnaute Barbatruc
Bonsour®
Bonjour et bonne et heureuse année pour tout le monde.
Je voudrais savoir SVP s'il y a moyen de changer la police et la couleur d'un caption d'un userform?
j'ai essayé avec la fenêtre de propriétés mais ça donne rien.

Merci de votre aide
comme le signale Dranreb, les aspects des msgboxes, fenetres et userfoms sont paramétrables depuis Windows...
cependant via les APIs ces aspects peuvent globalement (i.e. modifs pour toutes les applis) etre manipulés via VBA.
attention ces manipulations sont à effectuer avec précautions...

Désolé mais cette API ne semble plus etre fonctionnelle sous Windows 10 ...

exemple :
VB:
[STRIKE]
Private Declare Function SetSysColors Lib "user32" (ByVal nChanges As Long, lpSysColor As Long, lpColorValues As Long) As Long
Private Declare Function GetSysColor Lib "user32" (ByVal nIndex As Long) As Long
Const COLOR_SCROLLBAR = 0 'The Scrollbar colour
Const COLOR_BACKGROUND = 1 'Colour of the background with no wallpaper
Const COLOR_ACTIVECAPTION = 2 'Caption of Active Window
Const COLOR_INACTIVECAPTION = 3 'Caption of Inactive window
Const COLOR_MENU = 4 'Menu
Const COLOR_WINDOW = 5 'Windows background
Const COLOR_WINDOWFRAME = 6 'Window frame
Const COLOR_MENUTEXT = 7 'Window Text
Const COLOR_WINDOWTEXT = 8 '3D dark shadow (Win95)
Const COLOR_CAPTIONTEXT = 9 'Text in window caption
Const COLOR_ACTIVEBORDER = 10 'Border of active window
Const COLOR_INACTIVEBORDER = 11 'Border of inactive window
Const COLOR_APPWORKSPACE = 12 'Background of MDI desktop
Const COLOR_HIGHLIGHT = 13 'Selected item background
Const COLOR_HIGHLIGHTTEXT = 14 'Selected menu item
Const COLOR_BTNFACE = 15 'Button
Const COLOR_BTNSHADOW = 16 '3D shading of button
Const COLOR_GRAYTEXT = 17 'Grey text, of zero if dithering is used.
Const COLOR_BTNTEXT = 18 'Button text
Const COLOR_INACTIVECAPTIONTEXT = 19 'Text of inactive window
Const COLOR_BTNHIGHLIGHT = 20 '3D highlight of button
Const COLOR_2NDACTIVECAPTION = 27 'Win98 only: 2nd active window color
Const COLOR_2NDINACTIVECAPTION = 28 'Win98 only: 2nd inactive window color
Private Sub Test window()
'KPD-Team 1998
'URL: http://www.allapi.net/
'E-Mail: KPDTeam@Allapi.net
'Get the caption's activewindow color
  col& = GetSysColor(COLOR_ACTIVECAPTION)
'Change the activewindow caption's color to red
  t& = SetSysColors(1, COLOR_ACTIVECAPTION, RGB(255, 0, 0))
  MsgBox "The old title bar color was" + Str$(col&) + " and is now" + Str$(GetSysColor(COLOR_ACTIVECAPTION))
End Sub
[/STRIKE]
 
Dernière édition:

anbar

XLDnaute Junior
Bonsour®
comme le signale Dranreb, les aspects des msgboxes, fenetres et userfoms sont paramétrables depuis Windows...
cependant via les APIs ces aspects peuvent globalement (i.e. modifs pour toutes les applis) etre manipulés via VBA.
attention ces manipulations sont à effectuer avec précautions...
exemple :
VB:
Private Declare Function SetSysColors Lib "user32" (ByVal nChanges As Long, lpSysColor As Long, lpColorValues As Long) As Long
Private Declare Function GetSysColor Lib "user32" (ByVal nIndex As Long) As Long
Const COLOR_SCROLLBAR = 0 'The Scrollbar colour
Const COLOR_BACKGROUND = 1 'Colour of the background with no wallpaper
Const COLOR_ACTIVECAPTION = 2 'Caption of Active Window
Const COLOR_INACTIVECAPTION = 3 'Caption of Inactive window
Const COLOR_MENU = 4 'Menu
Const COLOR_WINDOW = 5 'Windows background
Const COLOR_WINDOWFRAME = 6 'Window frame
Const COLOR_MENUTEXT = 7 'Window Text
Const COLOR_WINDOWTEXT = 8 '3D dark shadow (Win95)
Const COLOR_CAPTIONTEXT = 9 'Text in window caption
Const COLOR_ACTIVEBORDER = 10 'Border of active window
Const COLOR_INACTIVEBORDER = 11 'Border of inactive window
Const COLOR_APPWORKSPACE = 12 'Background of MDI desktop
Const COLOR_HIGHLIGHT = 13 'Selected item background
Const COLOR_HIGHLIGHTTEXT = 14 'Selected menu item
Const COLOR_BTNFACE = 15 'Button
Const COLOR_BTNSHADOW = 16 '3D shading of button
Const COLOR_GRAYTEXT = 17 'Grey text, of zero if dithering is used.
Const COLOR_BTNTEXT = 18 'Button text
Const COLOR_INACTIVECAPTIONTEXT = 19 'Text of inactive window
Const COLOR_BTNHIGHLIGHT = 20 '3D highlight of button
Const COLOR_2NDACTIVECAPTION = 27 'Win98 only: 2nd active window color
Const COLOR_2NDINACTIVECAPTION = 28 'Win98 only: 2nd inactive window color
Private Sub Test window()
'KPD-Team 1998
'URL: http://www.allapi.net/
'E-Mail: KPDTeam@Allapi.net
'Get the caption's activewindow color
  col& = GetSysColor(COLOR_ACTIVECAPTION)
'Change the activewindow caption's color to red
  t& = SetSysColors(1, COLOR_ACTIVECAPTION, RGB(255, 0, 0))
  MsgBox "The old title bar color was" + Str$(col&) + " and is now" + Str$(GetSysColor(COLOR_ACTIVECAPTION))
End Sub

Bonjour avec meilleurs voeux our le nouvel an 2019.
Merci pour le temps que tu m'as accordé pour me porter de l'aide, sauf que et je suis désolé si j'en demande trop:
je ne sais pas où est je dois mettre ce code.
Merci
 

Discussions similaires

Réponses
18
Affichages
505

Membres actuellement en ligne

Statistiques des forums

Discussions
311 725
Messages
2 081 941
Membres
101 848
dernier inscrit
Djigbenou