Conserver les doublons

[paseg]

Bonjour,

Je me suis servi de cette macro (j'ai oublié l'auteur, je suis désolé):

Sub test()
For i = 1 To Range("A65536").End(xlUp).Row
nom = Cells(i, 1)
For y = 1 To Range("A65536").End(xlUp).Row
If nom = Cells(y, 1) Then
cpt = cpt + 1
End If
Next y
If cpt < 2 Then
For z = 1 To Range("A65536").End(xlUp).Row
If Cells(z, 1) = nom Then
Rows(z).Select
Selection.Delete Shift:=xlUp
i = i - 1
End If
Next z
End If
cpt = 0
Next i
End Sub

Elle fonctionne très bien pour moi bien qu'elle conserve les doublons de la colonne A. Or mes données de références sont en Z. Je dois donc couper-coller, appliquer la macro puis recouper-coller. Ce n'est pas si long mais je suppose qu'il doit bien y avoir une autre solution.
Merci d'avance
Paseg

 

[Pierrot93]

Re : Conserver les doublons

Bonjour,

essaye en modifiant partout dans ton code, l'index de la colonne lié à la propriété "cells", comme ceci en remplacant :
Cells(i, 1)

par :
Cells(i, 26)

sans plus de détails difficile d'en dire plus, enfrin pour moi...

bonne journée
@

 

[paseg]

Re : Conserver les doublons

Merci,
J'avais changé Cells(i, 26) mais pas le "y", ni la "z".
Peu persévérant j'en conviens.
A bientôt
Paseg