Supprimer les lignes doubles toutes entiere
bonjour
on a une base de donnée qui contient des lignes doubles et on désire de supprimer toutes les lignes doubles .
merci coordialement
Hello,
Tu sélectionnes toute ta plage y compris les entêtes puis :
@+
Premièrement un grand merci pour votre intervention.
dans notre exemple on veut supprimer entièrement de manière automatique les lignes qui contiennent les mêmes données.
comme les lignes 2 3 4 5 6 8 9 10 et 11
bonjour
avec la formule
=UNIQUE(A2:B11;;VRAI)bonjour imfami, patidavi, Baroute78,
vous ajoutez 2 colonnes avec des formules, puis vous triez l'ensemble avec la colonne D "ascendant", comme-ça, tous les "1" se trouvent en haut et puis vous supprimer toutes les lignes >1
Bonjour
Ajouter une colonne avec la formule
=SOMMEPROD(($A$2:$B$11=A2:B2)*1)/2Filtrer ce qui est >1 et supprimer ces lignes puis défiltrer
Sinon VBA dans le module de la feuille
Sub Menage()
Dim Plage As Range
Set Plage = UsedRange
Y = Plage.Rows.Count
X = Plage.Columns.Count + 1
For I = 1 To Y
If Application.CountIfs(Plage.Columns(1), Plage.Cells(I, 1), Plage.Columns(2), Plage.Cells(I, 2)) > 1 Then Plage.Cells(I, X) = "K"
Next I
For I = Y To 1 Step -1
If Plage.Cells(I, X) = "K" Then Plage.Rows(I).EntireRow.Delete
Next I
End SubPS : en retard ! Mais solutions différentes...