Formule ou macro pour supprimer les doublons (attention c pas aussi simple)

T

tapha20

XLDnaute Occasionnel

• 26 Juin 2012

• #16

Re : Formule ou macro pour supprimer les doublons (attention c pas aussi simple)

qui supprime tout???? non je pense pas

il y en a deux: la première importe les données de deux autres fichiers et la deuxième supprime les lignes vides( celle que tu m'a suggeré hier)

il me manque la macro qui supprime les ligne dans lesquelle le numéro de dossier (colonne A) se reprète plus d'une fois

Exemple: la ligne qui contient ce numéro: D323/067996 (elle se repète2 voire 3 fois) je voudrai que toutes lignes qui contiennent ce numéro dans leur colonne A disparraissent

il restera que les ligne ou il y a un seul numéro qui apparait.

le but de tous ça (c'est de comparer ldes dossiers classés sansuite d'ou DSS)je compare le fichier de S et S-1, je met les données en un seul fichier et je supprime les dossiers qui étaient en S-1 et qui sont tjrs dans S. à la fin j'aurai les dossier classés sans suite DSS par les agent (CE/IR) dans la semaine S.

Voilà...la théorie, elle y est mais passer à la pratique c plus délicat

 

Vote positif 0 Vote négatif

E

eddy51

XLDnaute Occasionnel

• 26 Juin 2012

• #17

Re : Formule ou macro pour supprimer les doublons (attention c pas aussi simple)

Bonjour,

Tu doit faire erreur j'ai rien suggéré hier , et dans ton dernier fichier quand on clique sur le bouton sa supprime tout

 

Vote positif 0 Vote négatif

T

tapha20

XLDnaute Occasionnel

• 26 Juin 2012

• #18

Re : Formule ou macro pour supprimer les doublons (attention c pas aussi simple)

ha je pensais que c'était toi

oui car j'ai supprimé les deux feuilles excel dans les quelles la macro va chercher les données.

je pensait que ce n'était pas utile et ça prend bcp de kilo octs au final je peux pas mette le fichier sur ce site (trop chargé)

mais je pense que t'en a pas besoin,

 

Vote positif 0 Vote négatif

E

eddy51

XLDnaute Occasionnel

• 26 Juin 2012

• #19

Re : Formule ou macro pour supprimer les doublons (attention c pas aussi simple)

Tant qu'on est dans les Ko sa va quand tu commence a entré dans les 3 4 Mo sa commence a etre un bon programme

 

Vote positif 0 Vote négatif

Efgé

XLDnaute Barbatruc

• 26 Juin 2012

• #20

Re : Formule ou macro pour supprimer les doublons (attention c pas aussi simple)

Re J'ai testé ma proposition sur ton dernier exemple, sans rien changé. On passe de 894 lignes à 442. Je ne vois pas ce qui ne fonctionne pas. Il suffit de lancer la macro, c'est tout. Cordialement

 

Vote positif 0 Vote négatif

T

tapha20

XLDnaute Occasionnel

• 26 Juin 2012

• #21

Re : Formule ou macro pour supprimer les doublons (attention c pas aussi simple)

réponse à Efgé

Exactement ça passe bien de 894 à 442, cela veut dire que ça supprime la ligne en une fois (donc juste son doublon) ce que je cherche c'est de supprimer completement la ligne qui se répète (donc autant de fois qu'elle il y est )

si elle est en deux foi, beh on supprime lesdeux et si elleest en 3 fois on la spprime en 3.

à la fin il restera que les ligne dans lequel le numéro d'affaire apparait q'une seule fois.

 

Vote positif 0 Vote négatif

T

tapha20

XLDnaute Occasionnel

• 26 Juin 2012

• #22

Re : Formule ou macro pour supprimer les doublons (attention c pas aussi simple)

réponse à eddy51

j'avais essyer de mettre le dichier tel qu'il est ça n'a pas marché c'est la raison pour la quelle j'ai supprimer les deux feuille à l'interieur du fichier

 

Vote positif 0 Vote négatif

E

eddy51

XLDnaute Occasionnel

• 26 Juin 2012

• #23

Re : Formule ou macro pour supprimer les doublons (attention c pas aussi simple)

Envoi le moi par Mail je vais réduire la taille tout en gardant toute les infos et je le balancerais sur le FOFO

 

Vote positif 0 Vote négatif

T

tapha20

XLDnaute Occasionnel

• 26 Juin 2012

• #24

Re : Formule ou macro pour supprimer les doublons (attention c pas aussi simple)

c 'est fait

Merci

 

Vote positif 0 Vote négatif

Efgé

XLDnaute Barbatruc

• 26 Juin 2012

• #25

Re : Formule ou macro pour supprimer les doublons (attention c pas aussi simple)

Re, Pour mon dernier passage. Dans ton exemple il y a 893 lignes qui représentent 667 numéros uniques. Sur ces 667 numéros, 441 n'apparaisssent qu'une foi. Mon code te renvoi ces 441 numéros. Cordialement

 

Vote positif 0 Vote négatif

T

tapha20

XLDnaute Occasionnel

• 26 Juin 2012

• #26

Re : Formule ou macro pour supprimer les doublons (attention c pas aussi simple)

ok

je vais voir, ou est le problème parce qu'il est impossible qu'il y est 400 dossier classés sans suite dans la semaine.

merci bien pour votre aide

 

Vote positif 0 Vote négatif

ROGER2327

XLDnaute Barbatruc

• 26 Juin 2012

• #27

Re : Formule ou macro pour supprimer les doublons (attention c pas aussi simple)

Bonjour à tous

Efgé à dit:

Re, Pour mon dernier passage. Dans ton exemple il y a 893 lignes qui représentent 667 numéros uniques. Sur ces 667 numéros, 441 n'apparaisssent qu'une foi. Mon code te renvoi ces 441 numéros. Cordialement

Cliquez pour agrandir...

Résultat confirmé par cette procédure sommaire mais efficace :​

VB:

Sub nettoie()
Dim i&, Lst As New Dictionary
    With Application: .ScreenUpdating = 0: .EnableEvents = 0: .Calculation = -4135: End With
    For i = Cells(Rows.Count, 1).End(xlUp).Row To 1 Step -1
        If Lst.Exists(CStr(Cells(i, 1))) Then Lst(CStr(Cells(i, 1))) = Lst(CStr(Cells(i, 1))) + 1 Else Lst.Add CStr(Cells(i, 1)), 1&
    Next
    For i = Cells(Rows.Count, 1).End(xlUp).Row To 1 Step -1
        If Lst(CStr(Cells(i, 1))) > 1 Then Rows(i).EntireRow.Delete
    Next
    With Application: .Calculation = -4105: .EnableEvents = 1: .ScreenUpdating = 1: End With
End Sub

ROGER2327
#6010

Jeudi 12 Gidouille 139 (Sainte Confiture, dévote et Sainte Cliche, donatrice - fête Suprême Quarte)
8 Messidor An CCXX, 4,1560h - échalote
2012-W26-2T09:58:28Z

 

Vote positif 0 Vote négatif