supp cellules identiques

[mary1]

bonjour,
j'ai un petit oubli
je souhaite supprimer les lignes où les données sont identiques.
par exemple:

colonne A
petit
petit
petit
grand
long
long

-->sur une nouvelle feuille du classeur, je désire qu'il m'affiche

colonne A
petit
grand
long

merci d'avance
mary1

 

[Staple1600]

Re : supp cellules identiques

Bonjour



C'est la suite de ce fil ?
https://www.excel-downloads.com/threads/suppression-de-lignes.100318/

 

[JHA]

Re : supp cellules identiques

Bonjour Mary1, le forum,

Ci joint un exemple, bon courage.

JHA

 

[mary1]

Re : supp cellules identiques

bonjour Staple1600 et JHA,

Staple1600 --> non ce que je demande est pour tout autre chose

JHA --> merci du coup de pouce

bonne journée
mary1

 

[Staple1600]

Re : supp cellules identiques

Re



Ca avait pourtant un peu à voir

(la solution à ton problème s'y trouvait ...)

Sub Macro2()
Sheets(1).Range("A1").EntireRow.Insert
Sheets(1).Range("A1") = "RESULTATS DU FILTRE"
Sheets(1).Range("A1:A" & [A65536].End(xlUp).Row).[B]AdvancedFilter [/B]Action:=[B]xlFilterCopy[/B], CopyToRange:=Sheets(2).Range("A1" _
), Unique:=True
Sheets(1).Range("A1").Delete Shift:=xlUp
End Sub

 

[mary1]

Re : supp cellules identiques

encore merci du coup de main
mary1