problème test VBA et affichage

[estivill]

bonjour,
je viens vers vous car je trouve pas ce qui cloche dans mon test.....
je souhaite tester la date d'aujourd'hui et afficher dans une message box si la date est plus grande qu'un seuil d'alerte "equipement en echeance dans moins de 2 mois" ou autre

Sub echeances()

Dim txt As String
txt = ""
For i = 2 To Worksheets.Count
Worksheets(i).Range("O6").FormulaLocal = "=AUJOURDHUI()"
For j = 9 To Range("T" & Rows.Count).End(xlUp).Row
If Worksheets(i).Range("O" & j) > Worksheets(i).Range("O6") > Worksheets(i).Range("J" & j) Then
If Worksheets(i).Range("E" & j) > Worksheets(i).Range("O6") > Worksheets(i).Range("O" & j) Then
If Worksheets(i).Range("E" & j) < Worksheets(i).Range("O6") Then
txt = txt & Worksheets(i).Name & " échéance " & Worksheets(i).Range("B" & j) & " expirée." & vbCrLf
Else
txt = txt & Worksheets(i).Name & " échéance " & Worksheets(i).Range("B" & j) & " expire moins de 2 mois." & vbCrLf
End If
Else
txt = txt & Worksheets(i).Name & " échéance " & Worksheets(i).Range("B" & j) & " expire moins de 3 mois." & vbCrLf
End If
End If
Next j
Next i
MsgBox txt, , " ----- VISITES A PREVOIR ------" 'afficher la msgbox
'
End Sub

je vous ai joint mon fichier excel
merci d'avance pour le temps que vous allez m'accorder

 

[Staple1600]

Re

Oui, en tout cas dans Excel 2013 😉
(Pour être franc et précis: plusieurs écrans se sont succèdes)

Sinon pour la question et cette histoire d’échéance, pourquoi passer par les formules?

 

[estivill]

salut,
c'est afin de tester la date du jour et les différentes dates d'échéances afin d'afficher le message approprié

alerter 2 mois / 1 mois / échéance dépassé

 

[Staple1600]

Re

Oui, j'ai bien compris
Et des formules savent faire cela.