Discussion :

[Theka]

Bonjour à tous,

Voila j'ai deux feuilles dans un meme classeur, et je souhaite comparer admettons la colonne B de la premiere feuille avec la colonne B de la deuxieme feuille.

Dans ces colonnes se trouvent des valeurs.
admettons 1a 1a 1a 1a 2a 2a 2a 2a 3a 4a 5a 6a 8a 8a 9b ... etc ...

Je veux comparer ces deux colonnes, et vérifier que la valeur existe dans les deux feuilles.
Si ce n'ai pas le cas, je souhaite supprimer la ligne avec la valeur qui n'ai pas presente sur l'autre feuille., etc etc ..

C'est la feuille 3qui contient plus de ligne que la feuille 2. Donc toute les lignes de la feuille3 dont les valeur de la colonne B ne sont pas dans la colonne B de la feuille 2 doivent etre supprimé.

Voila. je ne sais pas si je me suis fais comprendre,

Merci d'avance pour toute vos idées et reflexion.

[delphine35]

Essaye cela :

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
Public Sub test()
 
Dim Lig2, Lig3 As Single
 
'Feuille 2
Set F2 = Sheets(2)
' Nb de ligne de la Colonne B de la Feuille 2
Lig2 = F2.Range("B65536").End(xlUp).Row
 
'Feuille 3
Set F3 = Sheets(3)
' Nb de ligne de la Colonne B de la Feuille 3 
Lig3 = F3.Range("B65536").End(xlUp).Row
 
'Pour chaque cellule de la colonne B de la Feuille 3
For Each cell3 In F3.Range(F3.Cells(1, 2), F3.Cells(Lig3, 2))
 
  ' recherche si le contenu de la cell3 est dans la colonne B de la feuille 2
    Set cc = F2.Range(F2.Cells(1, 2), F2.Cells(Lig2, 2)).Find(cell3.Value, , xlValues, xlWhole)
 
' Si aucune cellule trouvé dans la feuille 2, on supprime la ligne de la feuille 3
    If cc Is Nothing Then
        cell3.EntireRow.Delete
    End If
 
Next
End Sub