Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Supression des lignes en double

Supression des lignes en double

24 réponses
Avatar
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,=20

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=3DContent-Type =
content=3Dtext/html;charset=3Diso-8859-1>
<META content=3D"MSHTML 6.00.6000.16681" name=3DGENERATOR></HEAD>
<BODY id=3DMailContainerBody=20
style=3D"PADDING-RIGHT: 10px; PADDING-LEFT: 10px; PADDING-TOP: 15px"=20
bgColor=3D#ffffff leftMargin=3D0 topMargin=3D0 CanvasTabStop=3D"true"=20
name=3D"Compose message area">
<DIV><FONT face=3DArial size=3D2>Bonjour, </FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>&nbsp;</DIV>
<DIV><FONT face=3DArial size=3D2>Tout est dans le titre ...</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>&nbsp;</DIV>
<DIV><FONT face=3DArial size=3D2>Je recherche une macro qui me =
supprimeras toutes=20
les lignes 100% identiques,</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>&nbsp;</DIV>
<DIV><FONT face=3DArial size=3D2>@+</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>&nbsp;</DIV>
<DIV><FONT face=3DArial size=3D2>Romeo59181</FONT></DIV></BODY></HTML>

------=_NextPart_000_00BA_01C8F25E.37B956C0--
Signaler un problème avec ce contenu

10 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
1 2 3
Avatar
JB
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" wrote:
Bonjour,

Tout est dans le titre ...

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

@+

Romeo59181


Avatar
romeo59181
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" a écrit dans le message de groupe de
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" wrote:
Bonjour,

Tout est dans le titre ...

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

@+

Romeo59181





Avatar
romeo59181
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" a écrit dans le message de groupe de
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" a écrit dans le message de groupe de
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" wrote:
Bonjour,

Tout est dans le titre ...

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

@+

Romeo59181







Avatar
romeo59181
Bonjour,

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

@+

Romeo59181

"romeo59181" a écrit dans le message de groupe de
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" a écrit dans le message de groupe de
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" a écrit dans le message de groupe de
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" wrote:
Bonjour,

Tout est dans le titre ...

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

@+

Romeo59181









Avatar
FFO
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 !!!!
Avatar
romeo59181
Bonjour,

Voici le message délivré :

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

@+

Romeo59181

"FFO" a écrit dans le message de groupe de
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 !!!!



Avatar
FFO
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
Avatar
romeo59181
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" a écrit dans le message de groupe de
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



Avatar
FFO
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
Avatar
FFO
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
1 2 3