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 :
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