Bonjour
dans une procédure de Data Mining je cherche à effacer les doublons d'une première plage ("C14:AD14") puis à faire de même sur celle du dessous ("C15:AD15") jusquà la ligne ("C43:AD43")
mais l'une après l'autre car les lignes sont des supports différents
voici le code que j'ai adapté, mais qui ne fonctionne que pour la première plage
pouvez-vous m'aider ?
Merci
dans une procédure de Data Mining je cherche à effacer les doublons d'une première plage ("C14:AD14") puis à faire de même sur celle du dessous ("C15:AD15") jusquà la ligne ("C43:AD43")
mais l'une après l'autre car les lignes sont des supports différents
voici le code que j'ai adapté, mais qui ne fonctionne que pour la première plage
Code:
Sub doublons()
Dim Fin As Range, i As Long, J As Long, Row As Integer
Dim ModeCalcul As Long
With Application
ModeCalcul = .Calculation
.Calculation = xlCalculationManual
.ScreenUpdating = False
End With
Row = Range("C14").Row
Set Fin = Range("AD14")
On Error Resume Next
Do
i = J + 1
J = Range(Cells(Row, i), Fin).RowDifferences(Cells(Row, i))(0).Column
If Err Then Exit Do
If J > i Then Range(Cells(Row, i + 1), Cells(Row, J)).ClearContents
Loop
If i < Fin.Column Then Range(Cells(Row, i + 1), Fin).ClearContents
Application.Calculation = ModeCalcul
End Sub
pouvez-vous m'aider ?
Merci