supprimer lignes identiques

[jean]

bonjour a tous

j'ai un petit probleme avec une macro que l'on ma donné
je n'arrive pas a jouer sur les variables
si vous voulez bien m'aider ci joint le fichier qui me pose probleme

merci d'avance [file name=jean_20050613164530.zip size=6767]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/jean_20050613164530.zip[/file]

 

[jean]

bonjour au forum

je relance ce message en esperant une reponse

merci a vous

 

[pat1545.]

Salut,
pourquoi réinventer la roue ?

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


Patrick

 

[Hervé]

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]

 

[Chris]

Merci

 

[Hervé]

re

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

es-tu jean ???



Salut

 

[ThomasR]

Bonsoir le forum,

Hervé, dis moi ?

c'est pas toi qui a fais ce debut de 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: )