doublon encore et toujours

[Cobalt]

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]

 

[Jocelyn]

Bonjour le Forum,
Bonjour Cobalt,

hum hum je ne suis pas doué en macro encore moins que ca mais la macro que tu as dans le corp de texte est totalement différente de celle contenue dans le fichier. Donc je ne sais pas tres bien laquelle tu veux utiliser

alors si tu change donc celle du fichier fonctionne trés bien en changeant

Next K
If drapeau = 1 Then Rows(I).Delete
Next i

par Next K
If drapeau = 1 Then Rows(K).Delete
Next i

enfin par rapport au test que j'ai effectués

Jocelyn

 

[Cobalt]

salut a tous et a Jocelyn en particulier,

c'est tout a fait ca pour le correctif... et oui c'est vrai que la parti incrementé dans ma demande ne correspondait pas au fichier joint...

bonne intuition de ta part en corrigeant le fichier joint...trop cool

merci pour tout c'est parfait comme ca