supprimer lignes identiques

J

jean

Guest

• 13 Juin 2005

• #2

bonjour au forum

je relance ce message en esperant une reponse

merci a vous

 

Vote positif 0 Vote négatif

P

pat1545.

XLDnaute Accro

• 13 Juin 2005

• #3

Salut,
pourquoi réinventer la roue ?

un filtre élaboré avec extraction sans doublon et l'affaire est faite


Patrick

 

Vote positif 0 Vote négatif

Hervé

XLDnaute Barbatruc

• 13 Juin 2005

• #4

Bonsoir jean , pat1545, le forum

Par pur plaisir de réinventer la roue 🙂

Une proposition en pièce jointe.

Salut

[file name=jean2.zip size=14845]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/jean2.zip[/file]

 

Pièces jointes

• jean2.zip

  14.5 KB · Affichages: 58
• jean2.zip

  14.5 KB · Affichages: 55
• jean2.zip

  14.5 KB · Affichages: 53

Vote positif 0 Vote négatif

C

Chris

Guest

• 13 Juin 2005

• #5

Merci 😉

 

Vote positif 0 Vote négatif

Hervé

XLDnaute Barbatruc

• 13 Juin 2005

• #6

re

euh....de rien chris !!!!

es-tu jean ???

😱

Salut

 

Vote positif 0 Vote négatif

T

ThomasR

XLDnaute Occasionnel

• 14 Juin 2005

• #7

Bonsoir le forum,

Hervé, dis moi ?

c'est pas toi qui a fais ce debut de code

Code:

Sub jean()
Dim u As Integer

Sheets('feuil4').Select
    Cells.Select
    Selection.Copy
    Sheets('feuil5').Select
    Cells(1, 1).Select
    ActiveSheet.Paste
    
For i = 1 To Sheets(1).Range('A65000').End(xlUp).Row
For u = 1 To Sheets(2).Range('A65000').End(xlUp).Row
If Sheets(1).Range('A' & i) = Sheets(2).Range('A' & u) And Sheets(1).Range('B' & i) = Sheets(2).Range('B' & u) And Sheets(1).Range('C' & i) = Sheets(2).Range('C' & u) And Sheets(1).Range('D' & i) = Sheets(2).Range('D' & u) Then
Sheets(2).Range('A' & u).Select
ActiveCell.EntireRow.Delete
End If
Next u
Next i

car j'ai fait un truck comme ca la semaine derniere et je me suis même dit que c'etait pas terrible 😱 .

si c'est toi je serais fier d'avoir fait comme toi (mais si c'est pas toi se serai mon 1er morceau de code que je voix dans le forum B) )

🙂 Je suis un padawan il faut comprendre (lol)

@+
Thomas®

(ceci dit le reste de la macro n'est pas encore à ma porté car les tableau je sais les modif mais pas encore les créer 😛inch: )

 

Vote positif 0 Vote négatif