Incompatibilité de type
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
-
-
@anthony629
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
-
@anthony629
Parce qu'avril n'a que 30 jours !
-
