Barre de titre USF mettre un nom en couleur

Bonjour,
Ce que tu veux faire n'est pas si simple que cela.
1°) tu peu supprimer le cadre mais supprime également la barre de titre.
2°) Créer une barre de titre perso, la quel pourra être formatée comme tu veux.
3°) Et éventuellement un peu arrondir les angles pour ressembler le plus possible à un original.
Si ça te dis.. ?
A+

Salut lermite222

Merci pour ta proposition, c'est sympa.

je suis d'accord, je n'ai pas d'obligation de garder la barre de titre

c'est juste histoire d'avoir un titre qui serait d'ailleurs ("Tenue de comptabilité")

donc ok prends ton temps, je recommence seulement mon fichier.

Merci a toi

Bonne fin d'après midi

Raymond

Intéresse-toi à cette démo
Elle emploi tout ce qu'il te faut.
A+

Bonsoir

Merci beaucoup pour ta réponse

j'ai jeter un oeil, ca me parait compliqué (les apis) tu fait fort

je regarde dès demain matin frais et dispo

surement quelques questions en vue

Merci bonne soirée a toi

Cordialement raymond

Salut lermite222

j'ai regarder le code et fait des essais afin de récuprer le code pour faire

(1) le nom pour la barre de titre

je pensais pouvoir personnaliser comme tu m'a dit, mais ca marche pas

(2) et voir pour enlever le cadre de l'userform

Pour le cadre il n'ai pas forcément utile de le virer MAIS si je pouvais changer la couleur pour soit de la mème couleur que le fond que l'userform, ca serai bien aussi

Bilan je n'ai rien réussi a faire, ca marche pas.

c'est un peu trop compliquer pour moi, ca manque d'explications.

Voila, bonne journée a toi, je vais réessayer tout a l'heure.

Cdlt Raymond

Je ne vois vraiment pas la difficulté ??
Recopie EXACTEMENT le contenu du module1 dans un module de ton classeur.
Suffit ensuite, dans le code de l'UF de mettre dans l'initialise...

Private Sub UserForm_Initialize()

    OteTitleBarre Me.Caption, False

    RoundCorners Me, Me.Width, Me.Height, 20

End Sub

Et d'ajouter...

Private Sub UserForm_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)

Dim lHwnd As Long

     If Button = vbKeyLButton Then

        '- Recherche du handle de la fenêtre par son Caption

        lHwnd = FindWindowA(vbNullString, Me.Caption)

        If lHwnd = 0 Then Exit Sub

        ReleaseCapture

        SendMessage lHwnd, WM_NCLBUTTONDOWN, HTCAPTION, 0&

    End If

End Sub

pour le déplacement du UF par la souris. (clic+Maintenir et déplacer)
Si tu parvient pas c'est vraiment qu'il y a quelque chose qui cloche...
A+

Salut

Merci pour ton aide, j'ai suivi tes conseils et la c'est bon ca marche

j'ai bien les arrondis des angles, et le cadre de l'usf a disparu

Mais par contre la barre de titre (caption) a disparu également, c'est moins drole LOL

tu m'a dit qu'il était possible de

Créer une barre de titre perso, la quel pourra être formatée comme tu veux.

Comment je dois faire svp pour baptiser l'userform ("Tenue de comptabilité")

J'ai fait un bouton pour quitter l'userform DONC pas besoin du bouton croix dans la barre de titre

En tout cas merci beaucoup pour ton aide c'est sympa

Ray