Discussion :

[debutVBA]

Bonjour à tous et à toutes.


En fait,j'aimerais afficher dans un MsgBOx un Titre :

Si le Titre est par exemple :Bienvenue

LE Message:Bonjour a tous et à toutes.

Le résultat doit me donner

Bienvenue

Bonjour à tous et à toutes

Et j'aimerais pouvoir faire exactement la meme chose dans un InputBox

exemple

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Dim maVariable as byte
maVariable =Application.InputBox("Saisissez la valeur de votre variable",type:=1)

j'aimerai lors de l'affichage
Si mon titre est :Resultat Variable

A l'affichage je souhaiterai obtenir

Resultat Variable

Saisissez la valeur de votre variable

Merci à tous et à toutes pour votre aide

[jfontaine]

Bonjour,

En faisant F1 (aide) sur la Msgbox ou Inputbox, tu verras que le titre est un paramètre de ces dernières

Syntaxe

MsgBox(prompt[, buttons] [, title] [, helpfile, context])


Syntaxe

InputBox(prompt[, title] [, default] [, xpos] [, ypos] [, helpfile, context])

[debutVBA]

salut jfontainte,


j'ai réadapté un peu le code et a l'affichage j'ai bien un titre

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Message = "Les jours fériés du mois sont: " & listeJF
     Style = vbOKOnly
     titre = "*******AFFICHAGE DES JOURNEES FERIES********"
 
 
 
    If Aff Then
      MsgBox Message, Style, titre
    End If

Est -il possible aussi également de distingué le titre en lui changeant de police,de couleur etc??

j'ai tenté ceci mais cela ne fonctionne pas.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
Message = "Les jours fériés du mois sont: " & listeJF
     Style = vbOKOnly
titre = "*******AFFICHAGE DES JOURNEES FERIES********"
 
With titre.Font
 
    .Size = 14
    .Name = "Euclid"
    .Underline = xlUnderlineStyleSingle
    .Bold = true
 
End With 
If Aff Then
      MsgBox Message, Style, titre
    End If

[jfontaine]

Est -il possible aussi également de distingué le titre en lui changeant de police,de couleur etc??

Le format des msgbox est lié au format des fenêtres Windows et ne peut etre modifié.

Pour faire une Msgbox personnalisé il te faudra la créer avec un userform, mais la encore, tu ne pourras pas personnaliser le format du titre

[debutVBA]

re jfontaine,

Merci de ta réponse,

bon bah tant pis,je vais tester avec un User Form ,je vais voir la doc et reviens si j'ai plus d'info

Merci en tout cas

re,

je sais pas si j'ai bien saisi les infos dans les tutos que j'ai pu trouver mais visiblement,un User form est associé a un bouton que l'on créé sur sa feuille excel.

Mais moi je souhaiterai que tout se passe directement dans la macro VBA ,sans avoir besoin de "switcher " avec la feuille,

Peut etre que cela n'est pas possible?

Merci en tout cas

[jfontaine]

un User form est associé a un bouton que l'on créé sur sa feuille excel.

Non, une userform peut être appelée a partir de n'importe quel procédure (le bouton est juste une interface utilisateur)

http://silkyroad.developpez.com/VBA/UserForm/