Discussion :

[NEC14]

Bonjour à tous,

J'aurai voulu savoir si il est possible de changer la police de la partie "Caption" (je parle de la barre de titre en haut du formulaire) en Vba ainsi que sa couleur ?
Si oui comment dois-je procéder ?
Merci par avance

[SilkyRoad]

bonsoir

Tu peux tester cette procedure pour changer la couleur du texte dans la barre de caption :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
Option Explicit
 
'Texte dans la barre de caption
Const COLOR_CAPTIONTEXT = 9
 
Private Declare Function GetSysColor Lib "user32" _
    (ByVal nIndex As Long) As Long
 
Private Declare Function SetSysColors Lib "user32" _
    (ByVal nChanges As Long, lpSysColor As Long, _
    lpColorValues As Long) As Long
 
 
Dim EnrCouleur As Long
 
 
'Modifie la couleur du texte lors del'affichage du UserForm
Private Sub UserForm_Activate()
    Me.Caption = "Mon texte perso"
 
    'Memorise la couleur initiale
    EnrCouleur = GetSysColor(COLOR_CAPTIONTEXT)
    'Modife la couleur
    SetSysColors 1, COLOR_CAPTIONTEXT, RGB(90, 0, 125)
 
End Sub
 
 
'Réinitialise la couleur
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    SetSysColors 1, COLOR_CAPTIONTEXT, EnrCouleur
End Sub

bonne soirée
michel

[NEC14]

Bonjour Michel,

Désolé d'avoir tardé à te répondre. Merci pour ton code ça fonctionne.
Mon problème est donc résolu. J'en ai d'autres, mais ils feront l'objet d'autres sujets de discussion.
Merci encore pour ton aide