XL 2010 Mise en forme formulaire VBA

[Caroaix]

Bonjour à tous,
Ce week-end, j'ai créé mon premier formulaire VBA, super tout fonctionne.
Par contre je voudrais savoir s'il est possible d'intégrer du code de mise en forme :

• Couleur du fond
• Couleur des label boxes
• Réglage vertical du texte dans les label boxes

Je vous ai joint une image
Merci d'avance pour vos retours

 

[ChTi160]

Bonsoir Caroaix
bienvenue sur XLD
il est possible via du code de modifier l'apparence d'un userform et de ses contrôles.
Un petit fichier plutôt qu'une image serait bien.
Fichier accompagné d'explications ,exemples de ce que tu as et ce que tu veux.
Dans l'attente
bonne fin de soirée
Jean marie

 

[Caroaix]

Bonsoir Jean marie
Dans mon fichier j'ai une base avec les renseignements. J'ai fait un onglet Cust Form qui appelle est une fiche de renseignements par client. (cela en formules)
Puis j'ai fait un formulaire pour intégrer de nouveaux clients.
J'aurai aimé que le formulaire est le même fond vert et gris que la partie gauche de la cust form et que les label boxes soient en gris avec police blanche.
J'espère être à peu près claire.
Merci d'avance
bonne soirée

 

[ChTi160]

Bonjour Caroaix
une vidéo de ce que j'ai compris ensuite pour avoir les mêmes Couleurs dans un userform que sur une feuille excel ce n'est pas toujours possible il faut chercher sur le net ex "Liste Backcolor Control " , "Codes Couleurs BackColor " etc etc
voir Lien : un lien :
un autre :
Bonne Journée
Jean marie

 

[Caroaix]

Merci Jean-Marie.
Ce n'est pas ce que je voulais faire. Je voudrais personnaliser avec un code le fond du formulaire ainsi que les label box et centrer le texte.

 

[ChTi160]

Re
c'est a dire
a l'ouverture du fichier mettre en forme le Userform et les Labels ?
explications ?
Jean marie

 

[ChTi160]

Re
une approche de ce que j'ai compris

Private Sub UserForm_Initialize()
Dim Ctrl As Control
With Me 'avec le Userform'
   .BackColor = RGB(128, 224, 96)'on colore le BacColor (fond) de celui ci
   For Each Ctrl In .Controls   'pour chaque control du Userform'
   If TypeName(Ctrl) = "Label" And Ctrl.Name Like "LBL*" Then 'si ce Control est un Label et que son Nom as cette Forme
      Ctrl.BackColor = RGB(160, 160, 224) 'on colore le Backcolor (fond)de ce Control
      Ctrl.ForeColor = RGB(255, 255, 255) 'on colore le Forecolor (Texte) de ce Control
   End If 'fin de test'
   Next Ctrl 'Autre Control'
End With
End Sub

dans l'attente
Jean marie

 

[Caroaix]

C'est super. C'est exactement ce que je voulais.
Maintenant il faut que j'aligne verticalement les textes dans les label boxes

 

[ChTi160]

Re
que veux tu dire

il faut que j'aligne verticalement les textes dans les label ?????

Jean marie

 

[Caroaix]

Que le texte soit centré horizontalement (il l'est) et verticalement.

 

[p56]

Une piste => Centrer verticalement le texte d'un Label

 

[ChTi160]

Re
Tu peux aussi adapter la Hauteur du Label et la taille du Texte (à voir)
exemple : mettre la taille du Texte à 12 (Font : Calibri) ça semble le faire
Jean marie

 

[ChTi160]

Re
Ou alors cette option
Jean marie

 

[ChTi160]

Re
la Hauteur des Labels 18
FontName "Calibri"
FontSize 12.75
Alignement vertical du Label au milieu du TextBox qui lui correspond
Jean marie

 

[Caroaix]

Merci Jean-Marie pour tous tes conseils.
Cela fonctionne super