Discussion :

[Chakib21666]

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

"Merci"

[Jean-Philippe André]

Bonjour,

pour quelle application en particulier ?

[Chakib21666]

Bonjour
Pour excel .
Quand "date d'echeance" = aujourd'hui alors afficher msgbox avec tt informations conçernant les factures.
Merci

[MarcelG]

Salut,

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

A plus.

[BENNASR]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Chakib21666]

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