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
Partager