O
OFFSET
Guest
Bonjour,
Ci-dessous un sub me permettant de comparer deux colonnes et de supprimer les lignes de la sheet1 en doublons. La suppression des lignes s'arrète à un moment (pas d'erreurs d'affichées) sans que je ne sache pourquoi. Je précise qu'il n'y a pas de lignes vides dans ma sélection. Est-ce qu quelqu'un aurait une idée d'ou peut venir le problème.
Merci d'avance pour votre aide.
Sub T
Dim Ligne As Range
Dim Sh1 As Worksheet, Sh2 As Worksheet, Cell3 As Range, Trouve As Range
Set Sh1 = Sheets("Bilan")
Set Sh2 = Sheets("GC-MPR")
For Each Cell3 In Sh1.Range("A2:A" & Sh1.Range("A65536").End(xlUp).Row)
With Sh2
Set Trouve = .Range("A2:A" & Sh2.Range("A65536").End(xlUp).Row).Find(Cell3.Value, LookIn:=xlValues, LookAt:=xlWhole)
If Trouve Is Nothing = False Then
Cell3.Select
Cell3.EntireRow.Select
Selection.Delete
Else
End If
End With
Next Cell3
End Sub
Ci-dessous un sub me permettant de comparer deux colonnes et de supprimer les lignes de la sheet1 en doublons. La suppression des lignes s'arrète à un moment (pas d'erreurs d'affichées) sans que je ne sache pourquoi. Je précise qu'il n'y a pas de lignes vides dans ma sélection. Est-ce qu quelqu'un aurait une idée d'ou peut venir le problème.
Merci d'avance pour votre aide.
Sub T
Dim Ligne As Range
Dim Sh1 As Worksheet, Sh2 As Worksheet, Cell3 As Range, Trouve As Range
Set Sh1 = Sheets("Bilan")
Set Sh2 = Sheets("GC-MPR")
For Each Cell3 In Sh1.Range("A2:A" & Sh1.Range("A65536").End(xlUp).Row)
With Sh2
Set Trouve = .Range("A2:A" & Sh2.Range("A65536").End(xlUp).Row).Find(Cell3.Value, LookIn:=xlValues, LookAt:=xlWhole)
If Trouve Is Nothing = False Then
Cell3.Select
Cell3.EntireRow.Select
Selection.Delete
Else
End If
End With
Next Cell3
End Sub