Bonsoir Monique, Ândré, Michel_M, Nico, le Forum
Et oui si tu vais précisé dans ton Sujet "en VBA", nos spécialistes Es-Formula seraient restés bien tranquille à la Plage !!! (enfin pas vraiment à la Plage !!)
Bon sinon avec VBA on peut s'amuser :
Si tu as admettons dans une cellule la date de de la facture imaginons "A10" on peu faire un truc marrant :
Option Explicit
Sub RelanceFun()
Dim Dep As Date, Arr As Date
Dim TmpD As Long
Dim TmpH As Long
Dim TmpM As Long
Dim TmpS As Double
Dim TheRelance As String
Range("A10") = 38150
Dep = Range("A10")
Arr = Date
TmpD = Arr - Dep
TmpH = TmpD * 24
TmpM = TmpD * TmpH * 60
TmpS = CDbl(CDbl(TmpD * TmpH) * CDbl(TmpM * 60))
TheRelance = Application.UserName & vbTab & vbTab & vbTab & vbTab & Format(Date, "DDDD, DD MMMM YYYY") & vbCrLf & _
"Mooooonsieur" & vbCrLf & vbCrLf & "Imaginez-vous que celà fait exactement" & vbCrLf & _
TmpD & " Jours que notre facture datée du " & Dep & " vous a été expédiée..." & vbCrLf & _
"Soit plus de " & TmpH & " Heures " & vbCrLf & " ou encore " & TmpM & " Minutes " & vbCrLf & _
"Par conséquent veuillez rédiger votre chèque dans les secondes qui suivent" & vbCrLf & _
"et qui viendront s'ajouter aux " & Format(TmpS, "# ### ### ### ### ##0") & " que nous attendons !"
MsgBox TheRelance, vbCritical, "DERNIER RAPPEL avant explosion de votre disque dûr !! lol"
End Sub
Mort de Rire !!! ca fait du bien en quittant le bureau !!
Bonne Soirée
@+Thierry