XL 2016 UserForm titre : centrer le texte et le formater

[Usine à gaz]

Bonjour à toutes et à tous,

Je voudrais dans mon UserForm centrer le texte et le formater (par exemple : Arial -11- gras)

J'ai trouvé dans le forum un post de 2004 :

Comment centrer un texte dans un userform

Bonjour à tous, je voulais savoir s'il est possible de centrer un texte dans la barre de titre d'un userform. C'est possible d'utiliser le curseur mais ce n'est aps tres commode merci de votre aide

www.excel-downloads.com

où Eric C donne une solution "UNE des RUSES de LaurentTBT" que j'ai copié dans le fichier test joint.
Je n'arrive pas à la faire fonctionner.

Pourriez-vous m'apporter votre technicité ?

Un grand merci à toutes et à tous,
Je vous souhaite un très beau WE,
Amicalement,
lionel,

 

[patricktoulon]

bon voila
j'ai entièrement recorder le calendrier
dis moi ce que tu en pense je fait la caption après
les boutons mois moins et plus sont plus rapides

 

[Usine à gaz]

Bob sang, quel boulot !
Merci à toi, je regarde

 

[Usine à gaz]

Super patricktoulon,
Un 1er regard et c'est tout bon
Grand merci pour ce fichier,
Je regarderai plus en détail et je te dirai,
Amicalement,
lionel,

 

[patricktoulon]

j'avais pas mis ascension et pentecode dans férié
la voila complète si je ne me trompe pas
'bonus couleur différente pour chaque jours fériés'

'bonus couleur différente pour chaque jours fériés'
Function EstFérié(Dat As Date)
    Dim paques As Date
    EstFérié = vbWhite
    If Weekday(Dat, vbMonday) = 6 Or Weekday(Dat, vbMonday) = 7 Then EstFérié = vbGreen
    paques = CDate(((Round(DateSerial(Year(Dat), 4, (234 - 11 * (Year(Dat) Mod 19)) Mod 30) / 7, 0) * 7) - 6))
    
    Select Case Dat
    Case CDate("25/12/" & Year(Dat)): EstFérié = vbRed    'noel
    Case CDate("01/01/" & Year(Dat)): EstFérié = vbMagenta    ' jour de l'an
    Case paques: EstFérié = vbYellow    'paques
    Case paques + 39: EstFérié = vbYellow    'l'Ascension
    Case paques + 50: EstFérié = vbYellow    'Lundi de Pentecôte
    Case CDate("01/05/" & Year(Dat)): EstFérié = RGB(200, 200, 200)    'Fête du travail
    Case CDate("08/05/" & Year(Dat)): EstFérié = RGB(200, 200, 200)    'Victoire des alliés
    Case CDate("14/07/" & Year(Dat)): EstFérié = RGB(255, 200, 0)    'Fête nationale
    Case "15/08/" & Year(Dat): EstFérié = RGB(250, 100, 200)    'assomption
    Case "01/11/" & Year(Dat): EstFérié = RGB(130, 0, 150)    'La Toussaint
    Case "11/11/" & Year(Dat): EstFérié = RGB(200, 0, 150)    'Armistice 1945
    End Select


End Function

 

[Usine à gaz]

LOL Merci à toi

 

[patricktoulon]

encore une chose

ton placement de l'userform
je reconnais certaine partie de mon point to px de base on devrait le retrouver sur ce forum
cela dit prendre que A1 n'est pas tout a fait bon il faut prendre tout
démonstration de la différence

Sub test()
texte = "ptopx1 " & ptopx1 & vbCrLf & "ptopx2 " & ptopx2 & vbCrLf & "ptopx3 " & ptopx3
MsgBox texte
End Sub
'
Function ptopx1() As Double
ptopx1 = CreateObject("WScript.Shell").RegRead("HKEY_CURRENT_USER\Control Panel\Desktop\WindowMetrics\AppliedDPI") / 72
End Function
'
Function ptopx2()
With ActiveWindow.ActivePane: ptopx2 = (.PointsToScreenPixelsX(Cells.Width) - .PointsToScreenPixelsX(0)) / Cells.Width: End With
End Function
'
Function ptopx3()
With ActiveWindow.ActivePane: ptopx3 = (.PointsToScreenPixelsX([A1].Width) - .PointsToScreenPixelsX(0)) / [A1].Width: End With
End Function

mais on y reviendra plus tard

 

[patricktoulon]

tu me dis si je vais plus loin

 

[Usine à gaz]

Re-,
C'est fait grâce au code de Roland