Discussion :

[Invité]

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 ?