Excel commandbutton pour vérifier les échéances

Bonjour à Tous,

je pense que ce code est facilement réalisable pour vous mais moi je galère...malgré la 20aines de posts que j'ai lu je ne trouve pas réponse à mon problème.

j'ai un fichier avec des événements (colonne A) et des dates limites (colonne B) pour traiter le dossier et Je voudrais que quand j'ouvre mon fichier le matin et que je clique sur le commandbutton , un msgbox s'affiche m'alertant sur les événements devant être traités entre J-5 et aujourd'hui (pas ceux dont la date est passée).

le msgbox devrait me dire :

EVENEMENT 5 doit être traité aujourd'hui

EVENEMENT 6 doit être traité demain

EVENEMENT 9 doit être traité dans les 5 jours

merci infiniment de votre aide précieuse qui à chaque fois m'aide énormément.

bonne journée

ARD

Bonjour TennisPari

Voici ton fichier avec le code

A+

Bonjour BrunoM45,

Un millier de merci pour cette réponse ultra rapide.

J'ai donc appliqué ton code au fichier d'orgine mais il me marque une erreur d'execution pour dépassement de capacité (sur la ligne en rouge et gras).

pourtant par rapport au fichier envoyé hier la seule chose qui change c'est qu'il y a plus de lignes et que la date est en H et le titre en C.

merci de ton aide.

voici le code que j'ai adapté :

[code][/

Private Sub CommandButton3_Click()

'vérifier les deadlines'

Dim DLig As Long, Lig As Long, Msg As String

Dim Ecart As Integer, MaDate As Date

Msg = ""

With Sheets("ACTIVITÉ 2017")

DLig = .Range("C" & Rows.Count).End(xlUp).Row

For Lig = 2 To DLig

MaDate = .Range("H" & Lig)

Ecart = DateDiff("d", Date, MaDate, vbMonday)

Select Case Ecart

Case 0

Msg = Msg & .Range("C" & Lig) & " doit être traité aujourd'hui" & vbCr

Case 1

Msg = Msg & .Range("C" & Lig) & " doit être traité demain" & vbCr

Case Else

If Ecart > 0 And Ecart <= 5 Then

Msg = Msg & .Range("C" & Lig) & " doit être traité dans " & Ecart & " jours" & vbCr

End If

End Select

Next Lig

End With

MsgBox Msg

End Sub code]

Re,

C'est certainement qu'il te manque une date dans une cellule

Pour parer à cela, il faut Dimensionner Ecart en Long au lieu d'Integer

Dim Ecart As Long, MaDate As Date

A+

Merci je vais essayer ca.

En fait la date sur laquelle il va calculer est le resultat d'une forme : =A-20 (A est une date)