é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

1 réponse

  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