Fenêtre + impression

UJAP · 12 Août 2009

Bonjour,

Je viens vous demander votre aide pour modifier mon code. Ce code ouvre une fenêtre qui indique quelles cellules contiennent cette information « Problème ».

Je voudrais savoir si je pouvais rajouter au sein de la fenêtre un bouton imprimer la fenêtre ?

Avez-vous des suggestions ?

Merci pour votre aide,

Code :

Sub Bouton5_QuandClic()
Dim Mess As String, Verif As Byte

Mess = ""
Verif = 0
For Each cel In Sheets("URSSAF").Range("G1:G500").Cells
If cel.Value = "Problème" Then
Mess = Mess & cel.Address & " ; "
Verif = Verif + 1
End If
Next
Mess = Replace(Mess, "$", "")
If Len(Mess) > 3 Then Mess = Left(Mess, Len(Mess) - 2)
Select Case Verif
Case 0
MsgBox "Pas de problème"
Case Else
MsgBox "Les cellules suivantes contiennent un problème" & vbCrLf & vbCrLf & Mess
End Select
End Sub

job75 · 12 Août 2009

Re : Fenêtre + impression

Bonjour UJAP,

UJAP à dit:
Je voudrais savoir si je pouvais rajouter au sein de la fenêtre un bouton imprimer la fenêtre ?

Non, car votre "fenêtre" est une MsgBox et je ne vois pas comment on pourrait la modifier ainsi...

Au lieu d'une MsgBox, vous pouvez utiliser un UserForm, et là vous pouvez y mettre tous les Labels, ListBoxes et boutons que vous voulez.

Mais il est aussi simple quand votre MsgBox s'affiche de faire une copie d'écran (vous savez faire) et de la coller où vous voulez pour l'imprimer...

A+

UJAP · 12 Août 2009

Re : Fenêtre + impression

🙂 oui, j'arrive à effectuer une capture d'écran 🙂

Et quelle est la procédure pour remplacer ma msgbox par un userform en conservant les conditions ?

Merci d'avance,

Fenêtre + impression

UJAP

XLDnaute Occasionnel

Pièces jointes

job75

XLDnaute Barbatruc

UJAP

XLDnaute Occasionnel

Discussions similaires

Fenêtre + impression

UJAP

XLDnaute Occasionnel

Pièces jointes

job75

XLDnaute Barbatruc

UJAP

XLDnaute Occasionnel

Discussions similaires

Privacy & Transparency

Privacy & Transparency