camillepaps
XLDnaute Nouveau
Bonjour le forum,
J'aurai besoin de savoir s'il était possible de supprimer les doublons jusqu'à la dernière cellule remplie.
Je m'explique : j'ai une liste sur plusieurs colonne, j'utilise la première colonne pour supprimer les doublons (et je ne peux pas en utiliser d'autres) sauf qu'à la fin de cette liste j'ai une multitude de lignes vides qui contiennent des formules (elles me sont utiles lorsque j'actualise la liste). J'aimerai que ces lignes vides ne se suppriment pas quand je supprime les doublons.
La longueur de ma liste est variable alors je ne peux pas fixer un numéro de ligne.
Le probleme vient aussi du fait que lorsqu'on supprime des doublons jusqu'à une ligne precise, les lignes qui sont en dessous ne remontent pas jusqu'a la fin de la liste.
J'avais pensé à une formule de ce style :
Cells.Select
ActiveSheet.Range("A65536").End(xlUp).RemoveDuplicates Columns:=1, Header:= _
xlYes
Mais cela ne fonctionne pas.
Je ne sais pas si j'ai été claire, je vous joins un fichier largement simplifié.
J'aurai besoin de savoir s'il était possible de supprimer les doublons jusqu'à la dernière cellule remplie.
Je m'explique : j'ai une liste sur plusieurs colonne, j'utilise la première colonne pour supprimer les doublons (et je ne peux pas en utiliser d'autres) sauf qu'à la fin de cette liste j'ai une multitude de lignes vides qui contiennent des formules (elles me sont utiles lorsque j'actualise la liste). J'aimerai que ces lignes vides ne se suppriment pas quand je supprime les doublons.
La longueur de ma liste est variable alors je ne peux pas fixer un numéro de ligne.
Le probleme vient aussi du fait que lorsqu'on supprime des doublons jusqu'à une ligne precise, les lignes qui sont en dessous ne remontent pas jusqu'a la fin de la liste.
J'avais pensé à une formule de ce style :
Cells.Select
ActiveSheet.Range("A65536").End(xlUp).RemoveDuplicates Columns:=1, Header:= _
xlYes
Mais cela ne fonctionne pas.
Je ne sais pas si j'ai été claire, je vous joins un fichier largement simplifié.