Suppression de ligne

[OFFSET]

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

 

[Catrice]

Re : Suppression de ligne

Bonjour,

Essaie ceci :

Sub T()
Set Sh1 = Sheets("Bilan")
Set Sh2 = Sheets("GC-MPR")
For i = Sh1.Range("A65536").End(xlUp).Row To 2 Step -1
    Set Trouve = Sh2.Range("A2:A" & Sh2.Range("A65536").End(xlUp).Row).Find(Sh1.Cells(i, 1).Value, LookIn:=xlValues, LookAt:=xlWhole)
    If Not Trouve Is Nothing Then Cell3.EntireRow.Delete
Next
End Sub

Il faut boucler en partant du bas.

 

[OFFSET]

Re : Suppression de ligne

Celui-la marche encore moins bien que le mien malheureusement

 

[JNP]

Re : Suppression de ligne

Bonjour le fil ,
Catrice n'étant plus en ligne, je me permets de noter la petite confusion (un Cell3 qui est resté) dans son code

If Not Trouve Is Nothing Then Sh1.Cells(i, 1).EntireRow.Delete

Là, ça devrait marcher .
Bonne soirée

 

[pierrejean]

Re : Suppression de ligne

bonjour OFFSET

Salut Catrice
En ton absence

Atester
remplacer

If Not Trouve Is Nothing Then [COLOR=blue]Cell3[/COLOR].EntireRow.Delete
par 
If Not Trouve Is Nothing Then [COLOR=blue]Sh1.Rows(i).[/COLOR]EntireRow.Delete

edit: Salut JNP

 

[OFFSET]

Re : Suppression de ligne

effectviement celà marche parfaitement maintenant!! Est-ce que je pourrais avoir une explication concernant mon erreur car en revanche je ne comprends pas pourquoi mon sub ne marche pas.

Merci d'avance

 

[pierrejean]

Re : Suppression de ligne

Re

Catrice te l'a dit:
Il faut partir du bas
Lorsque l'on delete une ligne le compte n'est plus le même pour les lignes suivantes lorsque l'on descend , alors que la numerotation est toujours la même dans la direction du haut

 

[Catrice]

Re : Suppression de ligne

Bonsoir,

Merci à tous pour la correction.
J'avais oublié de modifier cette ligne ...

 

[OFFSET]

Re : Suppression de ligne

Ok merci à tous!!