XL 2010 Mise en forme formulaire VBA

Caroaix

XLDnaute Nouveau
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
 

Pièces jointes

  • Capture.PNG
    Capture.PNG
    40.2 KB · Affichages: 34

ChTi160

XLDnaute Barbatruc
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

XLDnaute Nouveau
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

ChTi160

XLDnaute Barbatruc
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
    UserformBackColor-1.gif
    738.2 KB · Affichages: 28
Dernière édition:

ChTi160

XLDnaute Barbatruc
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
 

p56

XLDnaute Occasionnel
Une piste => Centrer verticalement le texte d'un Label
109262560_o.jpg
 

Discussions similaires

Réponses
12
Affichages
158

Statistiques des forums

Discussions
311 727
Messages
2 081 962
Membres
101 852
dernier inscrit
dthi16088