Discussion :

[coucou1105]

Bonjour,

J'affiche dans une msgbox un certains nombre de données. J'aimerai, lorsque l'utilisateur le souhaite, pouvoir imprimer ces données. Je ne trouve pas de bouton imprimer pour une msgbox.

Quelqu'un a déja rencontrer mon problème? Des solutions?

Cordialement,

[PMO2017]

Bonjour,

L'utilisateur peut faire la démarche suivante :

Lorsque la MsgBox apparaît
1) faire Ctrl+Alt (touches maintenues) + touche "Imp écran/Syst"
2) une fois la MsgBox entérinée et le programme terminé, faire Ctrl+V
L'image contenue dans le presse-papiers se colle dans la feuille active.

Faites un essai pour voir.

[coucou1105]

effectivement j'ai bien l'image de ma msgbox mais ce que je souhaite faire, c'est avoir un bouton Imprimer dans ma msgbox.

[Invité]

bonjour,
il n'est pas possible d’imprimer un message box.
en revanche il est possible de créer son propre message box, et un UserForm ferra l'affaire.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub test()
Dim T As String
T = "Bonjour," & vbCrLf
T = T & "" & vbCrLf
T = T & "J 'affiche dans une msgbox un certains nombre de données. " & vbCrLf
T = T & "J'aimerai, lorsque l'utilisateur le souhaite, " & vbCrLf
T = T & "pouvoir imprimer ces données. Je ne trouve pas de bouton " & vbCrLf
T = T & "imprimer pour une msgbox." & vbCrLf
T = T & "" & vbCrLf
T = T & "Quelqu 'un a déja rencontrer mon problème? Des solutions?" & vbCrLf
T = T & "Cordialement,"
UserForm1.message T
End Sub

[coucou1105]

bonjour, merci bcp de votre aide c'est exactement ce que je souhaite faire.
Malheuresement la taille de mon texte est variable, il faudrait que mon userform change de taille pour accepter tout le texte.

Cordialement

[Invité]

Bonjour, test ça