comparer deux lignes d'onglets différents

[mousocgen]

salut.
j'ai créer une ùacro pour comparer deux lignes identiques de deux onglets différents, mais mon code doit etre faux parcequ'il se focalise sur un seul onglet sans comparer les deux.
Voici mon code

Sub suspens_restant()


Dim Lig1 As Long
Dim Lig2 As Long
Dim NbrLig1 As Long
Dim NbrLig2 As Long
Dim NumLig1 As Long
Dim NumLig2 As Long

Sheets("1").Activate
Col1 = "A" '
NumLig1 = 1

Sheets("2").Activate ' feuille de destination
Col2 = "A" '
NumLig2 = 1 'feuille destination : ligne où commence la copie

With Sheets("1") ' feuille source'
NbrLig1 = Sheets("1").Cells(65536, Col1).End(xlUp).Row

With Sheets("2")
NbrLig2 = Sheets("2").Cells(65536, Col2).End(xlUp).Row

For Lig1 = 1 To NbrLig1 'n° de la 1ere ligne de données'
For Lig2 = 1 To NbrLig2 'n° de la 1ere ligne de données'

If .Cells(Lig1, Col1).Value = .Cells(Lig2, Col2).Value Then
'Sheets("2").Select
.Cells(Lig1, Col1).EntireRow.Delete
NumLig1 = NumLig1 + 1
NumLig2 = NumLig2 + 1
'Cells(NumLig, 1).Select
'ActiveSheet.Paste
' MsgBox ("ligne identique")
End If

Next
Next
End With
End With

End Sub



Merci.

 

[Cousinhub]

Re : comparer deux lignes d'onglets différents

Bonjour,
d'après ce que j'ai compris, tu veux supprimer les lignes de la 2 ème feuille si la cellule de la colonne A est identique?

essaie :

Sub compare()
Dim i As Long
Sheets("Feuil1").Select
For i = Range("A65000").End(xlUp).Row To 2 Step -1
With Sheets("Feuil2")
If Cells(i, 1).Value = .Cells(i, 1).Value Then .Cells(i, 1).EntireRow.Delete
End With
Next i
End Sub

 

[mousocgen]

Re : comparer deux lignes d'onglets différents

autant pour moi g pas été asssez explicite

je veux comparer deux lignes
j'ai mis ca ùais cela ne marche pas :

Sub compare_line()


Dim i As Long
Sheets("Feuil1").Select
For i = Range("A65000").End(xlUp).Row To 2 Step -1
With Sheets("Feuil2")
If range(i).Value = range(i).Value Then .range(i).EntireRow.DeleteEnd With
Next i
End Sub


le coeur du problème c'est ce qui est en gras, à mon avis
merci