Suppression doublons

[sigma]

Bonjour à tous,

J'aimerai supprimer les lignes de mon fichier en fonction des doublons sur la colonne B.
Si des données sont identiques dans la colonne B (qui ne sont d'ailleurs pas forcément contigues) je souhaiterai ne garder que la première ligne et supprimer les autres.

J'ai cherché dans les forums et trouvé une myriade de discussion équivalente mais je n'arrive pas à les adapter à mon sujet.

Je joins un fichier en PJ.

Merci à celles et ceux qui voudront m'aider à me "dépatouiller" de se souci.

Bonne journée.

 

[JofK]

Re : Suppression doublons

Bonjour Sigma
Est ce le résultat attendu ?
J’ai supprimé les doublons de la colonne B ce qui interagit sur les autres lignes.
Dans la version 2007 de Excel tu as dans l’onglet « Données » une icône supprimer les doublons.
Par contre dans la version 2003, la solution est de passer par un TCD qui supprimera automatiquement les doublons

Bien à toi

 

[sigma]

Re : Suppression doublons

bonjour jofK,
autant pour moi, ce n'est pas 2007 mais 2003...
et sur le principe j'aurai aimé avoir une méthode en vba.

A+

 

[piga25]

Re : Suppression doublons

Bonjour,

Code à mettre dans dans la feuille :

'le code est de PARITEC
Sub doublons()
 With Feuil1
 a = InputBox("Quelle colonne à traiter?", "Choisir la colonne")
 fin = .Range(a & "65000").End(xlUp).Row
 If fin = 1 Then MsgBox "Votre colonne est vide": Exit Sub
 For i = fin To 1 Step -1
 For x = i - 1 To 1 Step -1
 If Cells(i, a) = Cells(x, a) Or Cells(x, a) = "" Then Rows(x).Delete Shift:=xlUp
 Next x
 Next i
 End With
 End Sub

 

[sigma]

Re : Suppression doublons

salut Piga25,
parfait, merci à toi et à tous ceux d'entres vous aui ont réfléchi sur le sujet.

A+

 

[sigma]

Re : Suppression doublons

re,
juste une question supplémentaire,
j'ai une ligne de titre sur mon véritable fichier, la macro proposée me met mes données sur la ligne 1, comment faire pour choisir la ligne ?

merci
A+

 

[piga25]

Re : Suppression doublons

Re,

Est-ce que ton titre figure également dans la colonne (doublon)?

 

[sigma]

Re : Suppression doublons

non tu as raison, ça marche.
j'ai pas tout compris du code mais ça fonctionne.
merci encore.
A+

 

[piga25]

Re : Suppression doublons

Re

Ce code permet de choisir la colonne et supprime la ligne si dans cette colonne il y a des doublons et des cellules vides.

 

[sigma]

Re : Suppression doublons

re, et si par hasard je ne voulais pas oter les cellules vides mais unquement les doublons, que faudrait il changer à la macro ?

 

[piga25]

Re : Suppression doublons

Re

Remplace cette ligne :

If Cells(i, a) = Cells(x, a) Or Cells(x, a) = "" Then Rows(x).Delete Shift:=xlUp

par celle ci :

If Cells(i, a) = Cells(x, a) Then Rows(x).Delete Shift:=xlUp

 

[sigma]

Re : Suppression doublons

re,
tout fonctionne parfaitement avec la macro sur le fichier test mais sur mon véritable fichier de 25000 lignes et une vingtaine de colonnes, la macro tourne sans arrêt.
Je présume que le poids du fichier (12Mo) doit complexifier sa tache.
y aurait il une solution simple ?

merci beaucoup

A+