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

[Louloulou4]

Bonsoir à tous !
Le sujet a du être traité mis je n'arrive pas à trouver une réponse concrète...
Dans l'idée je voudrais changer la mise en forme de 2 éléments (mon programme fonctionne, mais je veux changer l'esthétisme classique des fenêtres !)
Dans l'idée je voudrais mettre mes userform et msgbox en vert pour la zone et blanc pour le texte...

Quelle serait la manière de faire ?
De plus j'i un ami qui m'a envoyé une modif demes fichiers en arrondissant les angles de ces fenêtres ! Ca ce serai pour moi la cerise sur le gâteau !!! ^^

Au plaisir et mille merci d'avance !

 

[sylvanu]

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 :

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

 

[job75]

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+

 

[Louloulou4]

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

 

[sylvanu]

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

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.

 

[Louloulou4]

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

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.

 

[Louloulou4]

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

 

[Louloulou4]

En gros avoir cet effet là...

 

[sylvanu]

Re,

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

C'était pas implicite comme demande.

et la barre de tache en haute en vert.

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

 

[Louloulou4]

Re,

C'était pas implicite comme demande.


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

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 !

 

[patricktoulon]

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
@+

 

[Louloulou4]

Ca fait le café !

 

[patricktoulon]

Bonjour @Louloulou4

ben ça dépends tu a combien sur toi

 

[patricktoulon]

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

 

[Louloulou4]

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

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