VBA - Comparaison Date

Invité · 22/02/2023, 09h28

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 ?

**Tête de chat** · 22/02/2023, 09h50

Bonjour,

Commence par ajouter avant ton If un

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 !

**deedolith** · 22/02/2023, 14h29

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.