Supprimer les valeurs uniques dans une colonne

[blord]

Bonjour à tous,

Supposons dans la colonne A :

Projet 1
Projet 1
Projet 1
Projet 2
Projet 3
Projet 4
Projet 5
Projet 5

Comment puis-je supprimer les lignes contenant Projet 2 - Projet 3 - Projet 4... Afin de ne conserver que les lignes en doubles

Évidemment, le terme projet est un exemple, le type de données peut-être variable ainsi que le nombre de données de la colonne A...

J'ai essayé ceci :

Dim CelluleCourante1 As Range
Dim CelluleSuivante1 As Range
Set CelluleCourante1 = Sheets("abc").Range("A2")
        
Do Until CelluleCourante1.Value = ""
Set CelluleSuivante1 = CelluleCourante1.Offset(1, 0)
If CelluleCourante1.Value <> CelluleCourante1.Offset(-1, 0) Then CelluleCourante1.EntireRow.Delete
Set CelluleCourante1 = CelluleSuivante1
Loop

Le problème est que ce code supprime toutes mes lignes sauf les deux premières et que ce type de boucle est généralement longue à exécuter...

Alors, j'ai définitivement besoin de votre aide... !

Merci ....

Benoit Lord

 

[Staple1600]

Re : Supprimer les valeurs uniques dans une colonne

Bonjour blord, le fil, le forum

Une solution simple avec le filtre élaboré et une formule comme critère :

=NB.SI(A2;$A$2:$A$9)>0

Voir avec ton exemple ci-dessous ( la formule est à saisir en B2 et B1 doit rester vide)


PS: Évidemment cette solution peut être utiliser par le biais de VBA.

 

[blord]

Re : Supprimer les valeurs uniques dans une colonne

Bonjour Staple1600,

Merci pour ta solution.....

Blord

 

[Christopheh]

Bonjour, je suis novice dans Excel et je ne comprends pas comment Stape 1600 passe de l'avant à l'apres. Quelqu'un peu me détailler son opération
Merci d'avance

 

[JHA]

Bonjour à tous,

Il s'agit d'un filtre élaboré.

JHA

 

[Christopheh]

Merci pour cette réponse rapide