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.