Incompatibilité de type
via55 Messages postés 14391 Date d'inscription Statut Membre Dernière intervention -
Bonjour, je travaille sur un projet VBA dans le quel j'aimerais comparer 2 dates, celle d'aujourd'hui et une autre dans un tableau, mais le problème c'est que j'ai une erreur "Incompatibilité de type" alors que je suis certain que les dates sont en format "date" (jj/mm/aaaa)
ci joint mon code
' Tant qu'on n'est pas à la fin du tableau
For I = 8 To Range("BacklogTab").Rows.count
' Calcul de la différence de mois entre la date de la cellule N(I) de la feuille "TopRiskIssue" et la date actuelle
' Vérification si la différence de mois est supérieure à 3
If DateDiff("m", Sheets("TopRiskIssue").Range("N" & I).Value, Now) > 3 Then
a = a + 1
Sheets("DashBoard").Range("M3").Value = a
End If
Next I
auriez vous une idée sur l'origine du problème s'il vous plait ?
cordialement
1 réponse
-
Bonsoir
Ta macro semble correcte, l'erreur provient surement d'une date non valide style 31/04/2023
Impossible d'en dire plus sans le fichier
Cdlmnt
Via
-
bonjour, merci pour votre réponse mais je ne vois pas en quoi la date "31/04/2023" est non valide... car c'est une date dans le future ?
Bonjour,
Euh, dans quel futur?
31/04/2023?????
Et tu affirmes être certain que ce sont bien des dates dans tes cellules...
Si tu enlèves tout alignement (centré, droite, gauche..), et que tu augmentes la largeur de la colonne N de l'onglet "TopRiskIssue", est-ce que la "date" se met bien à droite?
Ou si tu mets au format "Nombre", est-ce que la cellule prend une valeur de ce genre : 45007 (nombre qui correspond à la date d'aujourd'hui)
Et est-ce que tu as déclaré la variable "a"? si oui, quel type de déclaration?
Idem pour la variable "I"
Et enfin, quelle ligne est surlignée en jaune lors du débogage?
Bonne journée
-
