Barre de titre USF mettre un nom en couleur

Fermé
dudulleray - 10 nov. 2013 à 16:13
 dudulleray - 11 nov. 2013 à 14:37
Bonjour a touttes et tous, forum bonjour



Excel 2007 VBA

Voila je prépare un nouveau fichier et dans un USF dans la barre de titre je souhaiterai svp et si possible mettre un nom en couleur et écrit plus gros voir en gras.

et toujours si possible supprimer le cadre de l'usf (OU) bien changer la couleur, je parle du cadre de l'USF pas du cadre de la barre de titre.

Bonne fin d'après midi et merci a vous car j'ai besoin d'aide pour refaire mon fichier de compta.

Cordialement Ray

7 réponses

lermite222 Messages postés 8702 Date d'inscription dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020 1 190
10 nov. 2013 à 16:51
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+
0
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
0
lermite222 Messages postés 8702 Date d'inscription dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020 1 190
10 nov. 2013 à 19:28
Intéresse-toi à cette démo
Elle emploi tout ce qu'il te faut.
A+
0
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
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
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
0
lermite222 Messages postés 8702 Date d'inscription dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020 1 190
11 nov. 2013 à 13:44
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+


0
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
0