Pouvez -vous m'aider à compléter ce petit prog, svp.
J'ai 1 tableau qui peut avoir des données à partir de la colonne D9 jusqu'
au Dxxxx, et peux avoir des doublons ou des fois en 3 fois les mêmes
données.
J' arrive à supprimer les doublons, mais pas les données qui figurent une
3ème fois. Ce que j'essaye de faire, si il existe une 3ème fois la même
donnée, le prog mets en colonne G, la valeur 1
et supprime la ligne que le 3ème donnée figure.
Sub doublon()
Dim n As Long
Application.ScreenUpdating = False
Set r = Range("D9", [D9].End(xlDown))
For n = 1 To r.Rows.Count
If r.Cells(n, 1) = r.Cells(n + 1, 1) Then
r.Cells(n, 1).Interior.ColorIndex = 6
r.Cells(n, 1).Offset(RowOffset:=0, ColumnOffset:=2).Activate '
ColumnOffset:=2 = Colonne F
ActiveCell.FormulaR1C1 = "1"
r.Cells(n + 1, 1).EntireRow.Select
With Selection
.Delete
End With
End If
Next n
' s'il existe une 3ème ligne de la même valeur
r.cells(n,1).offset(RowOffset=0,ColumnOffset:= 4).Activate '
Colonne H
ActiveCellFormulaR1C1="1"
