Bonjour,
Etant a la recherche de macro me supprimant les doublons et les lignes vides je suis tombé sur une réponse apporté a une demande concernant le sujet.
---------------------
Sub Bouton1_QuandClic()
Dim c As Range
Dim plage As Range
Dim i As Integer
Application.ScreenUpdating = False
Set plage = Range('a1:a' & Range('a65536').End(xlUp).Row)
For Each c In plage
If Application.WorksheetFunction.CountIf(plage, c) > 1 Then
c.Interior.ColorIndex = 6
End If
Next c
For i = plage.Count To 1 Step -1
If Cells(i, 1).Interior.ColorIndex = 6 Then Rows(i).Delete
Next i
End Sub
-----------------------------------------
Cependant après le test je me suis aperçu que quand on introduisait de nouvelles valeurs dans la liste après application de la macro, elle se mettait a supprimer sans pouvoir prendre en compte les éléments déjà traité…avec des erreurs d'appreciations en sus
Auriez vous par hasard vu ce problème et auriez vous un correctif à apporter a la macro…
Merci de vos réponses [file name=doublons_20060124175456_20060126140943.zip size=9175]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/doublons_20060124175456_20060126140943.zip[/file]
Etant a la recherche de macro me supprimant les doublons et les lignes vides je suis tombé sur une réponse apporté a une demande concernant le sujet.
---------------------
Sub Bouton1_QuandClic()
Dim c As Range
Dim plage As Range
Dim i As Integer
Application.ScreenUpdating = False
Set plage = Range('a1:a' & Range('a65536').End(xlUp).Row)
For Each c In plage
If Application.WorksheetFunction.CountIf(plage, c) > 1 Then
c.Interior.ColorIndex = 6
End If
Next c
For i = plage.Count To 1 Step -1
If Cells(i, 1).Interior.ColorIndex = 6 Then Rows(i).Delete
Next i
End Sub
-----------------------------------------
Cependant après le test je me suis aperçu que quand on introduisait de nouvelles valeurs dans la liste après application de la macro, elle se mettait a supprimer sans pouvoir prendre en compte les éléments déjà traité…avec des erreurs d'appreciations en sus
Auriez vous par hasard vu ce problème et auriez vous un correctif à apporter a la macro…
Merci de vos réponses [file name=doublons_20060124175456_20060126140943.zip size=9175]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/doublons_20060124175456_20060126140943.zip[/file]