Discussion :

[Tchapeto]

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

[Invité]

Bonjour,

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub Check_the_date()
Dim Cel As Range
Dim Cel1 As Range, Cel2 As Range
Dim Plage As Range
Set Cel1 = Sheet2.Range("A:A")
Dim Derl As Long
Derl = Sheet1.Range("D" & Sheet1.Cells.Rows.Count).And(xlUp).Row
Set Plage = Sheet1.Range("D2:D" & Derl)
For Each Cel In Plage
    Set Cel2 = Nothing
    Set Cel2 = Cel1.Find(Cel.Value, Lookat:=xlWhole)
    If TypeName(Cel2) = "Nothing" Then Cel.Clear
Next Cel
End Sub

[Tchapeto]

A partir de Der1 je n'ai pas bien compris le code, pourrais-tu m'eclairer s'il te plait

[Invité]

Dans ton code tu fait ça Set Plage = Sheet1.Range("D2:D1293")!

Hors ta plage peut varier je présume D12 ou D1293 ou même D6000!

Moi je recherche la dernière ligne du tableau pour que ma boucle ne soit ni trop petite ni trop grande.

Set Cel2 = Cel1.Find(Cel.Value, Lookat:=xlWhole) je recherche dans la colonne A de la feuille2.
Si je ne trouve pas = "Nothing" je clear!