VBA - Comparaison Date

Bonjour,

Je n'arrive pas a mettre une condition sur deux dates.
C'est à dire que VBA n'arrive pas à les identifier tel quel.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Dim dateExportFichier As Date Dim dateComptable As Date     dateExportFichier = CDate(Worksheets("Macro").Range("A25").Value) ..... For Each Cell In Selection   dateComptable = CDate(Cell.Offset(0, -6).Value)   If dateComptable < dateExportFichier Then .... End if   Next cell

---

exemple :

dateExportFichier = 21/02/2023
dateComptable = 25/02/2023

Ici dateComptable est supérieur à dateExportFichier et pourtant, il passe cette condition c'est à dire qu'il va executer le code en dessous.

Pouvez-vous m'aider, s'il vous plaît ?

Bonjour,

Commence par ajouter avant ton If un

Code:

---

msgbox dateExportFichier & " " & dateComptable

---

histoire de vérifier les postulats dateExportFichier = 21/02/2023 et dateComptable = 25/02/2023

Au passage un dim Cell as range ne fera pas de mal, et un option Explicit le plus grand bien ! :)

Egalement:
- Colle des points d'arrêt
- Inspecte les variables
- Utilises des espions
- Utilises debug.print

bref, utilise des techniques de débogage.
Il y a plein d'articles sur Google, il suffit de chercher.

Bonjour,

Citation:

---

bref, utilise des techniques de débogage.
Il y a plein d'articles sur Google, il suffit de chercher.

---

Il y a un tutoriel très bien fait sur développez.com Le débogage sous Visual Basic 6 et Visual Basic pour Application