Bonjour a tous

Je dois comparer une cellule a un ensemble de cellule .

Je dois comparer chaque cellule de la colonne D de D2 A D1293 a l'ensemble de cellule de la colonne A allant de A2 a A1263.

J'aimerais qu'il clear la cellule de la colonne D seulement si la cellule de la colonne D n'est egal a aucune autre cellule de la colonne A.

Mon code ne fait pas ce que je veux comme expliquer ci-dessus, est ce serait parce que je traite seulement des dates et je compare seulement la valeur d'une cellule a une autre ? Peut on comparer deux dates en comparant les valeurs de deux cellules ?

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
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
Sub Check_the_date()
 
Dim Cel As Range
Dim Cel1 As Range
Dim Plage As Range
Dim Cel2(1262)
 
 
Set Cel1 = Sheet2.Range("A2")
Set Plage = Sheet1.Range("D2:D1293")
 
For Each Cel In Plage
 
    For i = 0 To 1262
 
        If Cel.Value <> Cel1.Offset(i, 0) Then
 
            Cel2(i) = 0
 
        Else
 
            Cel2(i) = 1
 
        End If
 
    Next i
 
        Sum_Cel2 = Application.Sum(Cel2)
 
        If Sum_Cel2 = 0 Then
 
            Cel.Clear
 
        End If
 
Next Cel
 
End Sub