Microsoft 365 Changement de couleur d'un userform et d'un msgbox

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 14 Février 2023

• #2

Bonsoir Louloulou,
Pour les msgbox je ne connait aucun système permettant de modifier la couleur. Sauf à le remplacer par un petit userform.
Pour les userform, toutes les propriétés sont modifiables en VBA. Elles apparaissent dans les propriétés
( voir ci dessous )
Par exemple si vous voulez changer la couleur de fond vous pouvez modifier son paramètre BackColor, à la main dans la fenetre Propriétés, ou encore en VBA enfaisant :

VB:

UserForm1.BackColor = RGB(255, 255, 0)  ' Fond jaune'

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 14 Février 2023

• #3

Bonsoir Louloulou4,

Pour un UserForm et ses contrôles modifiez les propriétés BackColor et ForeColor.

Pour une MsgBox remplacez-la par un UserForm avec un Label et un (des) CommanButton(s).

Pour les angles arrondis je n'ai jamais vu sous Windows.

Edit : salut sylvanu.

A+

 

Vote positif 0 Vote négatif

L

Louloulou4

XLDnaute Junior

• 14 Février 2023

• #4

Bon... Après avoir essayé les 2 méthodes sur 360, cela ne fonctionne malheureusement pas... Pour la première méthode... Pour la seconde méthode, cela n'a pas l'air de fonctionner non plus... Si je ne me trompe pas je l'ai mis dans Userfor Initialise... Est ce la bonne méthode Sylvanu ???

 

Pièces jointes

• Capture1.PNG

  79.7 KB · Affichages: 34
• Capture2.PNG

  79.2 KB · Affichages: 29
• Capture3.PNG

  24 KB · Affichages: 27

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 14 Février 2023

• #5

Re, bonsoir Job,
Essayez cette PJ simple, avec :

VB:

Sub Essai()
    Couleur = Range("C9").Interior.Color
    UserForm1.BackColor = Couleur
    UserForm1.Show
End Sub

c'est la couleur de C9 qui donne la couleur de fond de votre userform.

 

Pièces jointes

• Essai.xlsm

  16 KB · Affichages: 11

Vote positif 0 Vote négatif

L

Louloulou4

XLDnaute Junior

• 14 Février 2023

• #6

sylvanu à dit:

Re, bonsoir Job,
Essayez cette PJ simple, avec :

VB:

Sub Essai()
    Couleur = Range("C9").Interior.Color
    UserForm1.BackColor = Couleur
    UserForm1.Show
End Sub

c'est la couleur de C9 qui donne la couleur de fond de votre userform.

Cliquez pour agrandir...

 

Vote positif 0 Vote négatif

L

Louloulou4

XLDnaute Junior

• 14 Février 2023

• #7

Lol ! Non ! Ca c'est ok ! Je mets une image en fond d'écran ! Par contre la ou c'est marqué Userforn, je voudrais que Userform soit en blanc et la barre de tache en haute en vert...

 

Vote positif 0 Vote négatif

L

Louloulou4

XLDnaute Junior

• 14 Février 2023

• #8

En gros avoir cet effet là...

 

Pièces jointes

• image_2023-02-14_222246913.png

  18.8 KB · Affichages: 28
• Capture4.png

  74.6 KB · Affichages: 28

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 14 Février 2023

• #9

Re,

Louloulou4 à dit:

je voudrais mettre mes userform et msgbox en vert pour la zone et blanc pour le texte...

Cliquez pour agrandir...

C'était pas implicite comme demande.

Louloulou4 à dit:

et la barre de tache en haute en vert.

Cliquez pour agrandir...

Sorry, ça , je ne sais pas faire.
Regardez peut être de ce coté : Lien

 

Vote positif 0 Vote négatif

L

Louloulou4

XLDnaute Junior

• 14 Février 2023

• #10

sylvanu à dit:

Re,

C'était pas implicite comme demande.


Sorry, ça , je ne sais pas faire.
Regardez peut être de ce coté : Lien

Cliquez pour agrandir...

Ok excuse moi pour la demande implicite ! C'est pour ça que j'ai envoyé un screenshot pour "montrer" l'exemple mal explicité ! ^^ Je regarde de ce côté Sylvanu !

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 15 Février 2023

• #11

Bonjour
un exemple de mystification façon Patrick
Compatible 32/64 bits / vba6,vba7
le userform au depart


et quand il s'affiche

heu ... j'ai fait ça en deux/deux hein!!
alors si il n'y a pas une/des variable déclarées ou quoi qu'est ce , ne m'en voulez pas hein
@+

 

Pièces jointes

• a ben il est drole celui là.xlsm

  22.3 KB · Affichages: 26

Vote positif 0 Vote négatif

Solution

L

Louloulou4

XLDnaute Junior

• 16 Février 2023

• #12

Ca fait le café !

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 16 Février 2023

• #13

Bonjour @Louloulou4

ben ça dépends tu a combien sur toi

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 16 Février 2023

• #14

je peux te généraliser cela pour tout userform dynamiquement si tu veux

 

Vote positif 0 Vote négatif

L

Louloulou4

XLDnaute Junior

• 16 Février 2023

• #15

patricktoulon à dit:

je peux te généraliser cela pour tout userform dynamiquement si tu veux

Cliquez pour agrandir...

A pourquoi pas ! De quoi as tu besoin ???

 

Vote positif 0 Vote négatif