Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Présentation dans le MsgBox

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion UJAP
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
U

UJAP

XLDnaute Occasionnel
Bonjour,

Une petite question de présentation :

Je viens d'utiliser un «*MsgBox*» lors de l'ouverture d'un fichier Excel pour faire apparaître un message à l'utilisateur du fichier Excel.

Je voulais savoir si je pouvais effectuer une mise page de cet texte : «*Aller à la ligne, mettre en gras ou italique, justifier, centre*» qui figue dans le visual basic ?

Et autrement je peux rajouter dans ce «*MsgBox* une option imprimer ce message ?

Voilà le messge :

Private Sub Workbook_Open()
MsgBox "Instructions :1- Rafraîchir la requête afin d'importer les résultats dans le fichier Excel (onglet tableau en A1)2- Vérification : Récapitulatif semestriel (montants) – Importation du plafond de la SS. - Total des taux des charges patronales (11,50%+0,30%+5,40%+0,40%+0,60%+1%+0,50%)3-Imprimer le tableau + le titre de recette "

End Sub
 
Trier par date Trier par votes
Re : Présentation dans le MsgBox

Hello Forum, UJAP,

Test d'abord le code ci-dessous dans un CommandButton pour voir s'il te va, si oui, mets le dans l'Open du classeur et modifie-le à ta guise.
Code: 
Sub CommandButton1_Click()

    Select Case MsgBox("Instructions :" & Chr(13) & Chr(13) & "1- Rafraîchir la requête afin d'importer les résultats dans le fichier Excel (onglet tableau en A1)" & Chr(13) & Chr(13) & "2- Vérification : Récapitulatif semestriel (montants) – Importation du plafond de la SS. - Total des taux des charges patronales (11,50%+0,30%+5,40%+0,40%+0,60%+1%+0,50%)" & Chr(13) & Chr(13) & "3-Imprimer le tableau + le titre de recette", vbOKCancel)
        Case vbOK
            ActiveSheet.PrintOut Copies:=1, Collate:=True
        Case vbCancel
            Exit Sub
    End Select

End Sub
Chr(13) sert à passer à la ligne.
Je les ai mis deux par deux pour avoir deux lignes d'intervalles.

Aussi, tu peux aligner à gauche ou à droite, mais pas centrer, le mieux c'est de laisser comme ça.

Pour la police (couleur, taille, police) tu ne peux rien faire, mais tu peux à la place d'un MsgBox utiliser un UserForm.

Teste.

Attention : En cliquent "OK" il va imprimer la feuille active !

Cdt, Hulk.
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Présentation dans le MsgBox

Merci pour ta réponse,

Le code fonctionne, sauf j'avais une dernière question : peut-on imprimer le message apparaissant dans la MsgBox ?

Merci bcp,
 
Vote positif 0 Vote négatif
Re : Présentation dans le MsgBox

Re,

Sauf erreur je ne crois pas que tu puisses imprimer la MsgBox ou même le message qu'elle contient, si ce n'est en passant par d'abord l'afficher sur une cellule puis...

Mais peut-être bien que je me trompe, peut-être quelqu'un arrivera à le faire.

De toutes manières, là il faut que je file, je regarderais ça ce soir.

Si ça presse, j'espère que quelqu'un d'autre t'aidera avant.

Cdt, Hulk.
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…