Notifications échéances.

Version imprimable

01/02/2019, 23h42
Chakib21666

Notifications échéances.

"Bonjour"
Je veux créer des notification de date d'echeance avec vba .

"Merci"
04/02/2019, 17h34
Jean-Philippe André

Bonjour,

pour quelle application en particulier ?
04/02/2019, 22h16
Chakib21666

Bonjour
Pour excel .
Quand "date d'echeance" = aujourd'hui alors afficher msgbox avec tt informations conçernant les factures.
Merci
05/02/2019, 08h51
MarcelG

Salut,

Pourrais-tu reporter un début de code avec tes interrogations à son sujet?

A plus.

1 pièce(s) jointe(s)

bonjour cousin one two three :lol: , la forum
une proposition à adapter
si non reviens avec plus de détail

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub alerte()
Dim w1 As Worksheet
Dim i As Long
Dim D As Date
Dim j As Integer
Set w1 = Worksheets("feuil1") 'Feuille qui contient les alertes
D = Date
' ********************************* Période d'éssai
For i = 2 To w1.Range("A" & Rows.Count).End(xlUp).Row
p = D - w1.Range("A" & i)
If p >= 0 Then MsgBox ("ATTENTION !!!! La date d'échéance pour  " & Cells(i, "B").Value & "   " & "  à déja expirée depuis le : " & Cells(i, "A").Value)
If p > -7 And p < 0 Then MsgBox ("Date d'échéance pour " & Cells(i, "B").Value & "   " & "  Arrive à echéance le :  " & Cells(i, "A").Value)
Next i
End Sub

BONNE JOURNÉE A TOUTES & A TOUS

05/02/2019, 14h50
Chakib21666

Merci pour votre aide .
Je vais esseyer le code .
Merci