bonjour,
je suis en possession de deux tableaux. je souhaite comparer des colonnes qui contiennent des codes a 10 chiffres ou du vide. Le but est de conserver la ligne si le code du tableau 1 est aussi dans le tableau 2 sinon je supprime la ligne.
j'ai fait ça :
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
 
Sub appel1()
Dim x As Long
Dim u As Long
Dim y As String
Application.ScreenUpdating = False
 
y = ""
For x = 1000 To 5 Step -1
    If (Cells(x, 3) = Valeur) Then
    Range("A" & x & ":E" & x).Delete Shift:=xlUp
    End If
Next x
For x = 1000 To 5 Step -1
    For u = 5 To 1000
        If ((Cells(x, 3)) <> (Cells(u, 10))) And (Trim(Cells(x, 3)) <> "") Then
        Range("A" & x & ":E" & x).Delete Shift:=xlUp
        End If
    Next u
Next x
Range("A5:E1000").Select
Selection.Copy
Range("R5:V1000").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Application.ScreenUpdating = True
Range("A1").Select
End Sub
mais la ça me supprime tout ... pourtant si j'inverse le <> (dans le if) en = il me conserve bien que les codes qui ne sont pas dans les deux tableaux. je comprend pas pourquoi l'inverse ne marche pas ...

merci de votre reponse