Supression des lignes en double

Le
romeo59181
Ce message est composé et au format MIME.

=_NextPart_000_00BA_01C8F25E.37B956C0
Content-Type: text/plain;
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable

Bonjour,

Tout est dans le titre

Je recherche une macro qui me supprimeras toutes les lignes 100% =
identiques,

@+

Romeo59181
=_NextPart_000_00BA_01C8F25E.37B956C0
Content-Type: text/html;
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META http-equiv=Content-Type =
content=text/html;charset=iso-8859-1>
<META content="MSHTML 6.00.6000.16681" name=GENERATOR></HEAD>
<BODY id=MailContainerBody
style="PADDING-RIGHT: 10px; PADDING-LEFT: 10px; PADDING-TOP: 15px"
bgColor=#ffffff leftMargin=0 topMargin=0 CanvasTabStop="true"
name="Compose message area">
<DIV><FONT face=Arial size=2>Bonjour, </FONT></DIV>
<DIV><FONT face=Arial size=2></FONT>&nbsp;</DIV>
<DIV><FONT face=Arial size=2>Tout est dans le titre </FONT></DIV>
<DIV><FONT face=Arial size=2></FONT>&nbsp;</DIV>
<DIV><FONT face=Arial size=2>Je recherche une macro qui me =
supprimeras toutes
les lignes 100% identiques,</FONT></DIV>
<DIV><FONT face=Arial size=2></FONT>&nbsp;</DIV>
<DIV><FONT face=Arial size=2>@+</FONT></DIV>
<DIV><FONT face=Arial size=2></FONT>&nbsp;</DIV>
<DIV><FONT face=Arial size=2>Romeo59181</FONT></DIV></BODY></HTML>

=_NextPart_000_00BA_01C8F25E.37B956C0--
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses Page 1 / 3
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
JB
Le #16441521
Bonjour,

Utiliser le filtre élaboré:

http://boisgontierjacques.free.fr/pages_site/FiltreElabore.htm#DoublonsPlus ieursColonnes

JB
http://boisgontierjacques.free.fr/

On 30 juil, 16:06, "romeo59181"
Bonjour,

Tout est dans le titre ...

Je recherche une macro qui me supprimeras toutes les lignes 100% identiqu es,

@+

Romeo59181


romeo59181
Le #16441661
Impeccable cela fonctionne avec la macro suivante :

Sub sup_Doublons()
[A1].Sort Key1:=[A2], Order1:=xlAscending, Key2:=[B2] _
, Order2:=xlAscending, Key3:=[E2], Order3:=xlDescending,
Header:=xlGuess

[G:G].Insert Shift:=xlToRight
[G2].Formula = "=AND(A1¢,B1²)"
[A1:E1000].AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:=[G1:G2]
If MsgBox("Etes vous sûr?", vbYesNo) = vbYes Then
Range("_FilterDataBase").Offset(1,
0).Resize(Range("_FilterDataBase"). _
Rows.Count - 1).SpecialCells(xlCellTypeVisible).Delete Shift:=xlUp
Else
MsgBox "Annulé"
End If
ActiveSheet.ShowAllData
[G:G].Delete Shift:=xlToLeft
End Sub

@+

Romeo59181

"JB" discussion :

Bonjour,

Utiliser le filtre élaboré:

http://boisgontierjacques.free.fr/pages_site/FiltreElabore.htm#DoublonsPlusieursColonnes

JB
http://boisgontierjacques.free.fr/

On 30 juil, 16:06, "romeo59181"
Bonjour,

Tout est dans le titre ...

Je recherche une macro qui me supprimeras toutes les lignes 100%
identiques,

@+

Romeo59181





romeo59181
Le #16441651
Bonjour,

Rectification,

Cela ne fonctionne pas comme je le souhaite ...

En effet la macro contrôle la cellule a1 et a2

Or

Il faudrait que se soit a2 & a3

Que faut il modifier ?

@+

Romeo59181

"romeo59181" discussion : Ocg73#
Impeccable cela fonctionne avec la macro suivante :

Sub sup_Doublons()
[A1].Sort Key1:=[A2], Order1:=xlAscending, Key2:=[B2] _
, Order2:=xlAscending, Key3:=[E2], Order3:=xlDescending,
Header:=xlGuess

[G:G].Insert Shift:=xlToRight
[G2].Formula = "=AND(A1¢,B1²)"
[A1:E1000].AdvancedFilter Action:=xlFilterInPlace,
CriteriaRange:=[G1:G2]
If MsgBox("Etes vous sûr?", vbYesNo) = vbYes Then
Range("_FilterDataBase").Offset(1,
0).Resize(Range("_FilterDataBase"). _
Rows.Count - 1).SpecialCells(xlCellTypeVisible).Delete Shift:=xlUp
Else
MsgBox "Annulé"
End If
ActiveSheet.ShowAllData
[G:G].Delete Shift:=xlToLeft
End Sub

@+

Romeo59181

"JB" discussion :

Bonjour,

Utiliser le filtre élaboré:

http://boisgontierjacques.free.fr/pages_site/FiltreElabore.htm#DoublonsPlusieursColonnes

JB
http://boisgontierjacques.free.fr/

On 30 juil, 16:06, "romeo59181"
Bonjour,

Tout est dans le titre ...

Je recherche une macro qui me supprimeras toutes les lignes 100%
identiques,

@+

Romeo59181







romeo59181
Le #16441771
Bonjour,

Je voulait dire la colonne b & c et non pas a & b comme à l'origine ...

@+

Romeo59181

"romeo59181" discussion :
Bonjour,

Rectification,

Cela ne fonctionne pas comme je le souhaite ...

En effet la macro contrôle la cellule a1 et a2

Or

Il faudrait que se soit a2 & a3

Que faut il modifier ?

@+

Romeo59181

"romeo59181" discussion : Ocg73#
Impeccable cela fonctionne avec la macro suivante :

Sub sup_Doublons()
[A1].Sort Key1:=[A2], Order1:=xlAscending, Key2:=[B2] _
, Order2:=xlAscending, Key3:=[E2], Order3:=xlDescending,
Header:=xlGuess

[G:G].Insert Shift:=xlToRight
[G2].Formula = "=AND(A1¢,B1²)"
[A1:E1000].AdvancedFilter Action:=xlFilterInPlace,
CriteriaRange:=[G1:G2]
If MsgBox("Etes vous sûr?", vbYesNo) = vbYes Then
Range("_FilterDataBase").Offset(1,
0).Resize(Range("_FilterDataBase"). _
Rows.Count - 1).SpecialCells(xlCellTypeVisible).Delete Shift:=xlUp
Else
MsgBox "Annulé"
End If
ActiveSheet.ShowAllData
[G:G].Delete Shift:=xlToLeft
End Sub

@+

Romeo59181

"JB" discussion :

Bonjour,

Utiliser le filtre élaboré:

http://boisgontierjacques.free.fr/pages_site/FiltreElabore.htm#DoublonsPlusieursColonnes

JB
http://boisgontierjacques.free.fr/

On 30 juil, 16:06, "romeo59181"
Bonjour,

Tout est dans le titre ...

Je recherche une macro qui me supprimeras toutes les lignes 100%
identiques,

@+

Romeo59181









FFO
Le #16441881
Salut à toi

Ce code fonctionne mais peut avoir un traitement long en fonction du nombre
de lignes à traiter et du nombre de doublons (pour 20000 lignes toutes en
doublon 1m30s) :

Range("A" & Range("A2").SpecialCells(xlCellTypeLastCell).Row).Activate
Do While ActiveCell.Offset(-i, 0).Row > 1
For j = 1 To 255
If Cells(ActiveCell.Offset(-i, 0).Row, j) <> Cells(ActiveCell.Offset(-i,
0).Row - 1, j) Then
Divergence = 1
Exit For
End If
Next
If Divergence <> 1 Then
ActiveCell.Offset(-i, 0).EntireRow.Clear
End If
Divergence = ""
i = i + 1
Loop
Range("A2", "A" &
Range("A2").SpecialCells(xlCellTypeLastCell).Row).EntireRow.Sort
Key1:=Range("A2"), Order1:=xlAscending, Header:=xlNo, _
OrderCustom:=1, MatchCase:úlse, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal

Fais des essais et dis moi !!!!
romeo59181
Le #16441871
Bonjour,

Voici le message délivré :

Instruction incorrecte à intérieur d'une procédure

@+

Romeo59181

"FFO" discussion :
Salut à toi

Ce code fonctionne mais peut avoir un traitement long en fonction du
nombre
de lignes à traiter et du nombre de doublons (pour 20000 lignes toutes en
doublon 1m30s) :

Range("A" & Range("A2").SpecialCells(xlCellTypeLastCell).Row).Activate
Do While ActiveCell.Offset(-i, 0).Row > 1
For j = 1 To 255
If Cells(ActiveCell.Offset(-i, 0).Row, j) <> Cells(ActiveCell.Offset(-i,
0).Row - 1, j) Then
Divergence = 1
Exit For
End If
Next
If Divergence <> 1 Then
ActiveCell.Offset(-i, 0).EntireRow.Clear
End If
Divergence = ""
i = i + 1
Loop
Range("A2", "A" &
Range("A2").SpecialCells(xlCellTypeLastCell).Row).EntireRow.Sort
Key1:=Range("A2"), Order1:=xlAscending, Header:=xlNo, _
OrderCustom:=1, MatchCase:úlse, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal

Fais des essais et dis moi !!!!



FFO
Le #16441991
Rebonjours à toi

Je pense que tu as mal recopié le code
Des lignes d'instructions ont été scindées à la recopie
Il faut les remettre sur une seule ligne

Avec ce lien tu peux récupérer un exemple
Actives la macro "Traitement" et vérifies le résultat

Donnes moi ton avis

http://www.cijoint.fr/cjlink.php?file=cj200807/cijbXLYSke.xls
romeo59181
Le #16442551
Bonjour,

Je ne parviens pas à le faire fonctionner :

Voici mon fichier pour exemple :

http://www.cijoint.fr/cjlink.php?file=cj200807/cijRIt6taz.xls

@+

Romeo59181

Ps : Peut tu jeter un œil sur le fil de discussion : Classement des lignes

Merci

"FFO" discussion :
Rebonjours à toi

Je pense que tu as mal recopié le code
Des lignes d'instructions ont été scindées à la recopie
Il faut les remettre sur une seule ligne

Avec ce lien tu peux récupérer un exemple
Actives la macro "Traitement" et vérifies le résultat

Donnes moi ton avis

http://www.cijoint.fr/cjlink.php?file=cj200807/cijbXLYSke.xls



FFO
Le #16445301
Rebonjour à toi

As tu essayé mon exemple ????
Qu'a t'il donné ????

Je ne peux ouvrir ton fichier (bug Excel)
Peux tu m'en transmettre un nouveau

Merci
FFO
Le #16445341
Rebonjours à toi

Sur le Fil "Classement des lignes" je t'ai plusieurs fois répondu !!!!!
Mais tu ne semble pas t'en rendre compte

Reconsultes le tu doit trouver mes réponses
Publicité
Poster une réponse
Anonyme