dédoublonner 18000 lignes

B

Brigitte

Guest

• 29 Septembre 2004

• #2

Bonjour nicolas,

Une piste qui vaut ce qu'elle vaut : on l'a testée l'autre jour sur 46000 entrées (au moins de mémoire) ; il s'agit du Filtrage avec extraction de doublons...

Bon courage.

Brigitte

 

Vote positif 0 Vote négatif

L

loki22

Guest

• 29 Septembre 2004

• #3

salut nicolas
essaye cela je l'utilise regulierement

Sub Comparaison_click()
Dim Plage As Range, i&, Cell As Range, Rng As Range
On Error Resume Next
Set Plage = Application.InputBox("Plage à examiner", Type:=8)
If IsEmpty(Plage) Then Exit Sub
Application.ScreenUpdating = False
For Each Cell In Plage
For i = 1 To Plage.Count
Set Rng = Cell.Offset(i)
If Rng <> "" And Rng = Cell Then
Cell.Interior.ColorIndex = 43
Rng.Interior.ColorIndex = 43
Exit For
End If
Next i
Next Cell
End Sub

 

Vote positif 0 Vote négatif

N

nicolas

Guest

• 29 Septembre 2004

• #4

Merci beaucoup déjà pour vos réponses plus que rapides,

Brigitte, j'avais entre-temps utilisé ta technique et effectivement ça a permis de nettoyer pas mal d'un coup.

Loki ta technique est bien pratique pour mettre en avant les doublons diffusés sur plusieurs colonnes, même si sur 18000 lignes il m'aurait plutôt fallu le code pour que ça supprime la ligne-doublon incriminée plutôt que la mettre en couleur avec le ColorIndex. Je suis nul en programmation je le répète héhé 🙂

 

Vote positif 0 Vote négatif

S

Sergio

Guest

• 29 Septembre 2004

• #5

Bonjour, J'ai un petit problème lol !

Qd je colle cela ds Macro ds Excel et je compile, excel me trouve une erreur sur "Cell" et je n'arrive pas a la récrifier.
Est-ce ke kelkun pourrai m'aider ?

Par avance, merci bcp !

 

Vote positif 0 Vote négatif

S

Sergio

Guest

• 29 Septembre 2004

• #6

G oublié de préciser que dans ma liste, les noms sont tous rangés par ordre alphabétique et donc je me demandais si la macro ne pouvais pas faire toute la liste d'un coup et de ne pas avoir a la demarrer a chake fois pour chake nom !

Merci

 

Vote positif 0 Vote négatif

M

myDearFriend

Guest

• 29 Septembre 2004

• #7

Bonsoir tout le monde,

Nicolas, Sergio, peut-être pouvez-vous essayer avec la macro complémentaire que j'avais mise à disposition dans ce fil : Lien supprimé

Nicolas, je viens de tester avec 25000 lignes, ça semble tenir le coup !

1/ Tu lances la macro XLA.
2/ Tu ouvres ton fichier et active la feuille à analyser.
3/ Tu cliques sur le bouton "Doublons" dans la barre d'outils Excel.
4/ Tu sélectionnes dans la liste la "colonne B".
5/ Tu cliques sur "Supprimer Doublons" et.... tu patientes !

Une MsgBox te demande de confirmer la suppression des lignes Doublons, tu valides par OK.


Cordialement,
Didier_mDF

 

Vote positif 0 Vote négatif

N

nicolas

Guest

• 24 Novembre 2004

• #8

merci mydearfriend pour ce bel outil (qui me sauve la vie, ou du moins la mise).

 

Vote positif 0 Vote négatif