Supprimer les lignes qui contiennent la meme valeur

Bonjour à tous

je ne parvient pas à trouver la solution pour suppriemr les ligens dans une feuille, qui contiennent la meme valeur 3 fois et plus

exemple

POMME

POMME

POMME

CERISE

CERISE

POIRE

dans ce cas les 3 premières lignes doivent être supprimées

merci de votre aide

Bonjour

pour un usage ponctuel, une possibilité est de définir une mise en forme conditionnelle pour identifier les valeurs présentes en triple ou plus

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

puis de filtrer par couleur pour supprimer les lignes concernées

Stéphane

Bonjour à tous,

Attention je ne suis pas sûr que le filtre récupère toujours la dernière ligne par couleur ?

Que faire si l'on a une liste comme POMME, POMME, CERISE, POMME : on supprime les 2 premiers "pomme" ?

VBA ok ? si oui, merci de joindre une feuille d'exemple représentative car besoin de savoir où sont vos données dans la feuille (exactement).

Bonjour à tous,

Cliquer sur le bouton Hop! qui lance la macro Suppr3etPlus située dans le module associé à la feuille Feuil1.

Sub Suppr3etPlus()
Dim der&, t, u, i&, n&, k&
   der = Cells(Rows.Count, 1).End(xlUp).Row + 1 ' N° dernière ligne coll A (+1)
   t = Cells(1, 1).Resize(der, 1): Set u = Cells(1, 1).Resize(der): k = 1  ' t tableau des valeurs; u plage des valeurs
   For i = 2 To der - 1    ' boucle sur les valeurs
      ' si la valeur apparait 2 fois ou moins, on la conserve et on l'empile dans t
      If Application.CountIf(u, t(i, 1)) < 3 Then k = k + 1: t(k, 1) = t(i, 1)
   Next i
   For i = k + 1 To der: t(i, 1) = Empty: Next  ' raz des valeurs après la dernière valeur conservée dans t
   Cells(1, 1).Resize(der) = t                  ' affichage du résultat
End Sub

rem : on supprime les lignes concernées uniquement sur la colonne A (il n'est pas précisé si c'est toute la ligne qui doit être supprimée) - ce n'est pas la méthode la plus rapide mais comme on n'a aucune idée du volume de données ...

Bonjour à tous,

gkhan a écrit :

Bonjour à tous
dans ce cas les 3 premières lignes doivent être supprimées

merci de votre aide

et on en fait quoi ?

- des lignes vides?

- les autres remontent à la place des supprimées?

Crdlmt

bonsoir

une petite contribution

cordialement

Bonjour Gkhan, Le Fil,

Un petit fichier exemple avec un tableau structuré et quelques Notes.

Sub SupLig()
' Ligne d'Entête Tableau, cachée pour éviter sa suppression
Rows("1").Hidden = True
ActiveSheet.ListObjects("Tableau1").Range.AutoFilter Field:=5, Criteria1:="VRAI"
' Sélection des lignes visibles pour les effacer (lignes = "VRAI" en colonne 5)
ActiveSheet.ListObjects("Tableau1").Range.SpecialCells(xlCellTypeVisible).Select
' Désactive les messages d'alerte de l'application (Facultatif, si on souhaite contrôler et annuler éventuellement l'opération). Avant suppression des lignes sélectionnées
Application.DisplayAlerts = False: Selection.Delete
' Réaffichage ligne d'Entête Tableau et lignes cachées (lignes = "FAUX", colonne 5)
Rows("1").Hidden = False: Range("A1").Select
ActiveSheet.ListObjects("Tableau1").Range.AutoFilter Field:=5
' Réactive les messages d'alerte de l'application (Facultatif).
Application.DisplayAlerts = True
End Sub