élimination de doublons d'une liste
Fermé
zouze
-
26 avril 2011 à 14:00
melanie1324 Messages postés 1504 Date d'inscription vendredi 25 mai 2007 Statut Membre Dernière intervention 31 janvier 2018 - 26 mai 2011 à 14:07
melanie1324 Messages postés 1504 Date d'inscription vendredi 25 mai 2007 Statut Membre Dernière intervention 31 janvier 2018 - 26 mai 2011 à 14:07
A voir également:
- élimination de doublons d'une liste
- Liste déroulante excel - Guide
- Supprimer les doublons excel - Guide
- Liste déroulante en cascade - Guide
- Doublons photos - Guide
- Liste de diffusion whatsapp - Guide
1 réponse
melanie1324
Messages postés
1504
Date d'inscription
vendredi 25 mai 2007
Statut
Membre
Dernière intervention
31 janvier 2018
154
26 mai 2011 à 14:07
26 mai 2011 à 14:07
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
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