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).
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 Subrem : 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