Discussion :

[eillon]

salut à tous je suis à la recherche d'une fonctino ou d'une macro sur excel 2003 pour supprimer des lignes doublons sur colonne a feuille 1 et 2

en gros je cherche à faire :

si une ligne de la colonne "a" (feuille 1) = à une ligne de la colonne "a" (feuille 2) alors supprimer la ligne feuille 1

merci
on m'a proposé ça, mais ça plante sur la zone rouge :

Dim i As Integer, j As Integer, DLV1 As Integer, DLV2 As Integer

DLV2 = Sheets(2).Range("A1").End(xlUp).Row
DLV1 = Sheets(1).Range("A1").End(xlUp).Row

For j = 1 To DLV2
If Sheets(1).Range("A" & i).Value = Sheets(2).Range("A" & j).Value Then _
Sheets(1).Range("A" & i).Delete Shift:=xlUp
Next j

Next i

[max0042]

Salut,

Essaie ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Dim i As Integer, j As Integer, DLV1 As Integer, DLV2 As Integer
DLV2 = Sheets(2).Cells.SpecialCells(xlCellTypeLastCell).Row
DLV1 = Sheets(1).Cells.SpecialCells(xlCellTypeLastCell).Row
 
For i = 1 To DLV1
For j = 1 To DLV2
If Sheets(1).Range("A" & i).Value = Sheets(2).Range("A" & j).Value Then
Sheets(1).Range("A" & i).Delete Shift:=xlUp
i = i - 1
End If
Next j
Next i