Sujet Précédent Sujet Suivant

élimination de doublons d'une liste

zouze -  
melanie1324 Messages postés 1561 Statut Membre -
Bonjour,

je voudrai à l'aide d'une macro et de VBA éliminer les doublons d'une liste de composants.
J'ai tenté plusieurs programme sans succès. Pourriez vous m'aider svp?

Merci
A voir également:

1 réponse

Réponse 1 / 1
melanie1324 Messages postés 1561 Statut Membre 156
 
Bonjour,

sub suppression doublon

i=1

do while sheets("Feuil1).cells(i,1) <> "" 'boucle qui tourne jusqu'a ce que tu n'aies plus de données dans la feuil1 pour la ligne i et colonne 1

sheets("Feuil1).select
cells(i,500).select
ActiveCell.FormulaR1C1 = "=COUNTIF(C[-1],RC[-1])"
if selection <> 0 then
a=i+1
do while cells(a,1) <>""
if cells(a,1) = cells(i,1) then
rows(a).select
Selection.Delete Shift:=xlUp
a=a-1
end if
a=a+1
end if
cells(i,500) = ""
i=i+1
loop

end sub
0