XL 2010 Mise en forme formulaire VBA

ChTi160

XLDnaute Barbatruc

• 14 Mars 2022

• #2

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

 

Vote positif 0 Vote négatif

C

Caroaix

XLDnaute Nouveau

• 14 Mars 2022

• #3

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

 

Pièces jointes

• exemple.xlsm

  62.8 KB · Affichages: 10

Vote positif 0 Vote négatif

ChTi160

XLDnaute Barbatruc

• 15 Mars 2022

• #4

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

 

Pièces jointes

• UserformBackColor-1.gif

  738.2 KB · Affichages: 28

Dernière édition: 15 Mars 2022

Vote positif 0 Vote négatif

C

Caroaix

XLDnaute Nouveau

• 15 Mars 2022

• #5

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.

 

Vote positif 0 Vote négatif

ChTi160

XLDnaute Barbatruc

• 15 Mars 2022

• #6

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

 

Vote positif 0 Vote négatif

ChTi160

XLDnaute Barbatruc

• 15 Mars 2022

• #7

Re
une approche de ce que j'ai compris

VB:

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

 

Vote positif 0 Vote négatif

C

Caroaix

XLDnaute Nouveau

• 15 Mars 2022

• #8

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

 

Vote positif 0 Vote négatif

ChTi160

XLDnaute Barbatruc

• 15 Mars 2022

• #9

Re
que veux tu dire

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

Cliquez pour agrandir...

Jean marie

 

Vote positif 0 Vote négatif

C

Caroaix

XLDnaute Nouveau

• 15 Mars 2022

• #10

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

 

Vote positif 0 Vote négatif

p56

XLDnaute Occasionnel

• 15 Mars 2022

• #11

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

 

Vote positif 0 Vote négatif

ChTi160

XLDnaute Barbatruc

• 15 Mars 2022

• #12

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

 

Dernière édition: 15 Mars 2022

Vote positif 0 Vote négatif

ChTi160

XLDnaute Barbatruc

• 15 Mars 2022

• #13

Re
Ou alors cette option
Jean marie

 

Pièces jointes

• BackColor-2.gif

  55.1 KB · Affichages: 24

Vote positif 0 Vote négatif

ChTi160

XLDnaute Barbatruc

• 15 Mars 2022

• #14

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

 

Pièces jointes

• BackColor-3.gif

  45.3 KB · Affichages: 25

Vote positif 0 Vote négatif

C

Caroaix

XLDnaute Nouveau

• 15 Mars 2022

• #15

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

 

Vote positif 0 Vote négatif