Erreur d’exécution 1004

Bonjour à tous ,

malgré des recherches sur le forum, je n'ai pas trouvé de réponse qui me satisfait, je viens donc vers vous.

J'ai programmé un programme qui fonctionne bien mais qui m'affiche systématiquement le même message d'erreur : 'erreur d’exécution 1004 Erreur définie par l'action ou par l'objet' et bien qu'il fasse l'action voulue, il m'affiche systématiquement le message d'erreur.

Vous trouverez mon programme en PJ ^^

La macro en question est Date_ITCM et elle doit remplir automatiquement la case contenant la date et celle directement à sa gauche en fonction de la date (rouge s'il y a plus de deux semaines de retard, rose si c'est moins d'une semaine et orange si la deadline est dans moins de deux semaine.

Merci pour votre aide

Bonjour,

La macro ne comprend pas la valeur de m_Differentiel qui est au moment de l'erreur égal à 13/09/1781, juste avant la révolution !!

ajoute ceci

Debug.Print j & " - " & m_Date_ITCM & " :: " & m_Differentiel

comme suit

et vois le résultat en faisant Ctrl+G avant de relancer la macro :

Sub Date_ITCM()

    Application.EnableEvents = False

    dl = Cells(Rows.Count, "N").End(xlUp).Row

    For i = 5 To dl
        dtprog1 i
    Next i

    Application.EnableEvents = True

End Sub

Sub dtprog1(i)

    j = i + 10

    m_Date_Jour = Date

    Range("P13") = m_Date_Jour

    m_Date_ITCM = Range("N" & i).Value

    m_Differentiel = m_Date_ITCM - Date
Debug.Print j & " - " & m_Date_ITCM & " :: " & m_Differentiel
    Range("N" & j) = m_Differentiel
  

etc.

15 - 16/04/2018 :: 0

16 - 20/04/2018 :: 4

17 - 05/04/2018 :: -11

18 - 05/04/2018 :: -11

19 - 25/04/2018 :: 9

20 - 16/04/2018 :: 0

21 - 05/04/2018 :: -11

22 - :: 13/09/1781

Bonjour le fil,

Quand tu as l'erreur, si tu cliques sur [Déboggage] tu obtiens une ligne en jaune (là ou est l'erreur)

Si tu mets ton curseur dessus, la date calculée est 13/09/1781, d'où le bug

Après vérification, tu pourras t'apercevoir que la ligne 22 ne contient aucune date

A+

Excuse moi mais je n'ai pas très très bien compris...

Je dois définir m_Date_iTCM sur la date du jour (avec la fonction date et ensuite faire l'opération?

C'est bon j'ai compris mon erreur !

Merci pour le coup de main