Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Afficher de la couleur dans une Mgxbox ?

Afficher de la couleur dans une Mgxbox ?

13 réponses
Avatar
TOF
Est-ce possible d'avoir une ligne en noire puis, après un chr(10), d'avoir
la suivante en rouge par exemple ?
Signaler un problème avec ce contenu

3 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
1 2
Avatar
TOF
En fait, je veux que l'UF (et les Labels qui le composent) se dimensionnent
automatiquement en fonction de la taille de la variable affiché par les
Labels...


"LeSteph" a écrit dans le message de news:

Bonsoir,
clic droit sur l'UF
Fenêtre propriété
Height (hauteur)
Width (largeur
tu peux aussi sdans le code
Userform1.width5
Userform1.height0

lSteph


"TOF" a écrit dans le message de news:

Merci pour toutes ces infos. Ca me permet de remodeler mon projet...

Y'a t'il un moyen d'adapter la taille du Userform en fonction du nombre
de caractères de la variable affiché par le label ?



"Joël GARBE" a écrit dans le message de news:
41602554$0$22587$
ajouer la ligne suivante :

UFVar.Label3.Font.Bold = True


--

Bien cordialement,

Joël GARBE
www.joelgarbe.fr
"TOF" a écrit dans le message de news:
%23UhWO$
Parfait, ça répond tout à fait à mes attentes.

Dernier question : Pour avoir du ROUGE en gras ???


"Joël GARBE" a écrit dans le message de news:
415ffe77$0$3066$
Tout d'abord, insérer un User Form (VBA>Menu Insertion Userform)
(J'ai renommé le formulaire UFVar dans moncas > Fenêtre Propriété Name
Insérer autant de "Intitulé" que nécessaire (4 dans mon cas : Label1 à
Label4)

Dans le module où le msgbox doit être affiché...

Sub MessageBox()
UFVar.Label1.Caption = "Variable 1"
UFVar.Label2.Caption = "Variable 2"
UFVar.Label3.Caption = "Variable 3"
UFVar.Label4.Caption = "Variable 4"
UFVar.Label3.ForeColor = RGB(255, 0, 0)
UFVar.Show
'Suite du code...
End Sub

--

Bien cordialement,

Joël GARBE
www.joelgarbe.fr
"TOF" a écrit dans le message de news:

C'est une Msgbox qui indique plusieurs variables en même temps. Je
vaudrais pouvoir en faire ressortir une plus particulièrement...

Dans une même Msgbox :

1ere ligne : Variable1
2eme ligne : Variable 2
3eme ligne : Variable 3 (EN ROUGE)
4eme ligne : Variable 4

Quelle est votre solution ?

Merci d'avance.


"Joël GARBE" a écrit dans le message de news:
415ff4e9$0$3052$
Tout dépend de l'importance de la demande...

Peut-être en saurons-nous plus bientôt...

--

Bien cordialement,

Joël GARBE
www.joelgarbe.fr
"FxM" a écrit dans le message de news:

LOL !



:o) A question directe, réponse directe ...

... mais qu'après réflexion, je pense erronée pour une Msgbox.
Probablement OK par USF mais n'est-ce pas un peu lourd juste pour
mettre de la couleur ?

@+
FxM































Avatar
Joël GARBE
Bonjour TOF

Voilà une procédure qui devrait permettre ce que tu recherches...

Pour chacun des labels de ton UF, paramétrer la propriété Autosize à True,
et WordWrap à False

Puis, dans le module privé du UF :

Private Sub UserForm_Activate()
Me.Width = Application.WorksheetFunction.Max(Me.Label1.Width,
Me.Label2.Width, Me.Label3.Width, Me.Label4.Width) * 1.1
End Sub


comme ça, ça va ?
--

Bien cordialement,

Joël GARBE
www.joelgarbe.fr
"TOF" a écrit dans le message de news:

En fait, je veux que l'UF (et les Labels qui le composent) se
dimensionnent automatiquement en fonction de la taille de la variable
affiché par les Labels...


"LeSteph" a écrit dans le message de news:

Bonsoir,
clic droit sur l'UF
Fenêtre propriété
Height (hauteur)
Width (largeur
tu peux aussi sdans le code
Userform1.width5
Userform1.height0

lSteph


"TOF" a écrit dans le message de news:

Merci pour toutes ces infos. Ca me permet de remodeler mon projet...

Y'a t'il un moyen d'adapter la taille du Userform en fonction du nombre
de caractères de la variable affiché par le label ?



"Joël GARBE" a écrit dans le message de news:
41602554$0$22587$
ajouer la ligne suivante :

UFVar.Label3.Font.Bold = True


--

Bien cordialement,

Joël GARBE
www.joelgarbe.fr
"TOF" a écrit dans le message de news:
%23UhWO$
Parfait, ça répond tout à fait à mes attentes.

Dernier question : Pour avoir du ROUGE en gras ???


"Joël GARBE" a écrit dans le message de news:
415ffe77$0$3066$
Tout d'abord, insérer un User Form (VBA>Menu Insertion Userform)
(J'ai renommé le formulaire UFVar dans moncas > Fenêtre Propriété
Name
Insérer autant de "Intitulé" que nécessaire (4 dans mon cas : Label1
à Label4)

Dans le module où le msgbox doit être affiché...

Sub MessageBox()
UFVar.Label1.Caption = "Variable 1"
UFVar.Label2.Caption = "Variable 2"
UFVar.Label3.Caption = "Variable 3"
UFVar.Label4.Caption = "Variable 4"
UFVar.Label3.ForeColor = RGB(255, 0, 0)
UFVar.Show
'Suite du code...
End Sub

--

Bien cordialement,

Joël GARBE
www.joelgarbe.fr
"TOF" a écrit dans le message de news:

C'est une Msgbox qui indique plusieurs variables en même temps. Je
vaudrais pouvoir en faire ressortir une plus particulièrement...

Dans une même Msgbox :

1ere ligne : Variable1
2eme ligne : Variable 2
3eme ligne : Variable 3 (EN ROUGE)
4eme ligne : Variable 4

Quelle est votre solution ?

Merci d'avance.


"Joël GARBE" a écrit dans le message de
news: 415ff4e9$0$3052$
Tout dépend de l'importance de la demande...

Peut-être en saurons-nous plus bientôt...

--

Bien cordialement,

Joël GARBE
www.joelgarbe.fr
"FxM" a écrit dans le message de news:

LOL !



:o) A question directe, réponse directe ...

... mais qu'après réflexion, je pense erronée pour une Msgbox.
Probablement OK par USF mais n'est-ce pas un peu lourd juste pour
mettre de la couleur ?

@+
FxM



































Avatar
TOF
C'est parfait, c'est exactement ça.

Merci beaucoup. J'en apprend chaque jour un peu plus grace à tous.
@+

"Joël GARBE" a écrit dans le message de news:
41611f21$0$26137$
Bonjour TOF

Voilà une procédure qui devrait permettre ce que tu recherches...

Pour chacun des labels de ton UF, paramétrer la propriété Autosize à True,
et WordWrap à False

Puis, dans le module privé du UF :

Private Sub UserForm_Activate()
Me.Width = Application.WorksheetFunction.Max(Me.Label1.Width,
Me.Label2.Width, Me.Label3.Width, Me.Label4.Width) * 1.1
End Sub


comme ça, ça va ?
--

Bien cordialement,

Joël GARBE
www.joelgarbe.fr
"TOF" a écrit dans le message de news:

En fait, je veux que l'UF (et les Labels qui le composent) se
dimensionnent automatiquement en fonction de la taille de la variable
affiché par les Labels...


"LeSteph" a écrit dans le message de news:

Bonsoir,
clic droit sur l'UF
Fenêtre propriété
Height (hauteur)
Width (largeur
tu peux aussi sdans le code
Userform1.width5
Userform1.height0

lSteph


"TOF" a écrit dans le message de news:

Merci pour toutes ces infos. Ca me permet de remodeler mon projet...

Y'a t'il un moyen d'adapter la taille du Userform en fonction du nombre
de caractères de la variable affiché par le label ?



"Joël GARBE" a écrit dans le message de news:
41602554$0$22587$
ajouer la ligne suivante :

UFVar.Label3.Font.Bold = True


--

Bien cordialement,

Joël GARBE
www.joelgarbe.fr
"TOF" a écrit dans le message de news:
%23UhWO$
Parfait, ça répond tout à fait à mes attentes.

Dernier question : Pour avoir du ROUGE en gras ???


"Joël GARBE" a écrit dans le message de news:
415ffe77$0$3066$
Tout d'abord, insérer un User Form (VBA>Menu Insertion Userform)
(J'ai renommé le formulaire UFVar dans moncas > Fenêtre Propriété
Name
Insérer autant de "Intitulé" que nécessaire (4 dans mon cas : Label1
à Label4)

Dans le module où le msgbox doit être affiché...

Sub MessageBox()
UFVar.Label1.Caption = "Variable 1"
UFVar.Label2.Caption = "Variable 2"
UFVar.Label3.Caption = "Variable 3"
UFVar.Label4.Caption = "Variable 4"
UFVar.Label3.ForeColor = RGB(255, 0, 0)
UFVar.Show
'Suite du code...
End Sub

--

Bien cordialement,

Joël GARBE
www.joelgarbe.fr
"TOF" a écrit dans le message de news:

C'est une Msgbox qui indique plusieurs variables en même temps. Je
vaudrais pouvoir en faire ressortir une plus particulièrement...

Dans une même Msgbox :

1ere ligne : Variable1
2eme ligne : Variable 2
3eme ligne : Variable 3 (EN ROUGE)
4eme ligne : Variable 4

Quelle est votre solution ?

Merci d'avance.


"Joël GARBE" a écrit dans le message de
news: 415ff4e9$0$3052$
Tout dépend de l'importance de la demande...

Peut-être en saurons-nous plus bientôt...

--

Bien cordialement,

Joël GARBE
www.joelgarbe.fr
"FxM" a écrit dans le message de news:

LOL !



:o) A question directe, réponse directe ...

... mais qu'après réflexion, je pense erronée pour une Msgbox.
Probablement OK par USF mais n'est-ce pas un peu lourd juste pour
mettre de la couleur ?

@+
FxM







































1 2