comment ajouter formule vba

[marleauc]

Bonjour

j'ai une formule qui fonctionne très bien ..grace en parti a plusieurs d'Entre vous.. néenmoins je me demandais si je pouvais ajouter une ligne qui me permettrais d'imprimer ce résultat.
voici ma formule

Private Sub CommandButton1_Click()
Dim MaCell As Range, Mess As String
For Each MaCell In ThisWorkbook.Worksheets("Base").Range("M2:M" & Sheets("Base").Range("M65536").End(xlUp).Row).Cells
If IsDate(MaCell) Then If MaCell < Now Then _
Mess = Mess + (MaCell.Offset(0, -12).Value & " - Date d'échéance le : " & MaCell.Value & vbNewLine)

 

[marleauc]

Re : comment ajouter formule vba

pourais-je ajouter ceci..mais cela ne fonctionne pas "printout As vbsMsgBoxResult"