comment supprimer lignes identi

T

ThomasR

XLDnaute Occasionnel

• 14 Juin 2005

• #2

Bonjour Jean,

Je pense qu'il est plus que temps pour toi de lire la charte car cela fait

3 fois en 2 jours que je vois ta demande

Hier j'ai même vu dans une de tes demande une macro que je t'avais fais.

si elle ne te convient pas ou presente des defaul il ne faut pas ouvrir un nouveau poste mais repondre en precisant ce qui ne va pas.

je te rejoint la reponse que j'avais fait dans l'ancien poste.
tu me diras ce qui ne va pas

Thomas® [file name=1_20050614091635.zip size=10430]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/1_20050614091635.zip[/file]

 

Pièces jointes

• 1_20050614091635.zip

  10.2 KB · Affichages: 109

Vote positif 0 Vote négatif

J

jean

Guest

• 14 Juin 2005

• #3

merci thomas

en fait je n'arrive pas a adapter ton code pour les autres pages de mon classeur. je voudrais savoir sur quelle variable jouer.
je voudrais reutiliser le code pour les pages 4,5,6 et ainsi de suite

peux tu m'aider?

merci

 

Vote positif 0 Vote négatif

T

ThomasR

XLDnaute Occasionnel

• 14 Juin 2005

• #4

re,

peux tu être plus claire ?

comparer quelle feuille vers ou ?

Courage
Thomas®

 

Vote positif 0 Vote négatif

T

ThomasR

XLDnaute Occasionnel

• 14 Juin 2005

• #5

re,

peut il y avoir des doublons dans une des feuilles avant le tri ?

tu souhaites comparer combien de feuille à la foi ?

2 et 3 puis 3 et ...?

 

Vote positif 0 Vote négatif

J

jean

Guest

• 14 Juin 2005

• #6

salut thomas

je ne comprend pas cette partie du code, que designe sheets(1) et sheets(2), que veut dire for i=1 et for u=1
si je veux supprimmer les lignes qui se repetent sur feuille 3 et 4 et coller ce qui reste feuille 5 il faut changer quoi?

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

 

Vote positif 0 Vote négatif

T

ThomasR

XLDnaute Occasionnel

• 14 Juin 2005

• #7

re,

j'ai une question.

si j'ai des infos dans feuille 3 qui ne sont pas dans feuille 4 faut il les ajouter à la feuille 5? ou ce contenter de sup de la feuille 4 les info presente dans la feuille 3

 

Vote positif 0 Vote négatif

J

jean

Guest

• 14 Juin 2005

• #8

re,
il faut ce concentrer de sup de la feuille 4 les infos presente ds la feuille 3

merci thomas

 

Vote positif 0 Vote négatif

T

ThomasR

XLDnaute Occasionnel

• 14 Juin 2005

• #9

re,

voici un 1er exemple

mais ceci ma rappelé que mon ami Hellboy m'a appris une technique plus souple de cell au lieu de range ce qui permet de boucler sur les colonne avec moins de code (et ausi la possibilité de choisir combien de colonne a comparer)

@+
Thomas® [file name=1v2.zip size=14599]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/1v2.zip[/file]

 

Pièces jointes

• 1v2.zip

  14.3 KB · Affichages: 119

Vote positif 0 Vote négatif

T

ThomasR

XLDnaute Occasionnel

• 14 Juin 2005

• #10

jean,

pour repondre à ta question de tout à l'heure

Sheets(1) est la feuille 1 si tu mets 2 ce sera la feuille 2 ainsi de suite

sinon tu peux les nommer

Sheets('Feuil1')

pour ce qui est de i = 1 et u = 1

c'est une boucle for to

donc je lui dit tu commence à un (tu peux mettre autre choses selon l'endroit ou ce trouve le tableau) jusque ... pour i j'ai dit

Sheets(1).Range('A65000').End(xlUp).Row

ce qui signifi la derniere cellule non vide de la feuille 1 collone A

donc pour for i il va faire i = 1 puis 2 ,3..... jusqu'a la derniere cellule non vide

idem pour u

de là je commence les condition .

 

Vote positif 0 Vote négatif

J

jean

Guest

• 14 Juin 2005

• #11

merci pour la reponse thomas c'est super sympa
ciao

 

Vote positif 0 Vote négatif

T

ThomasR

XLDnaute Occasionnel

• 14 Juin 2005

• #12

Bonjour le forum,

Je poste une mise à jour avec la selection du nombre de colonne à comparer.

@+
Thomas® [file name=Doublon.zip size=16603]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Doublon.zip[/file]

 

Pièces jointes

• Doublon.zip

  1.5 KB · Affichages: 122
• Doublon.zip

  1.5 KB · Affichages: 130
• Doublon.zip

  1.5 KB · Affichages: 131

Vote positif 0 Vote négatif

T

thotmes

Guest

• 28 Août 2008

• #13

Re : comment supprimer lignes identi

Salut ThomasR,

j'ai un tri similaire à celui de jean à réaliser.
j'ai essayé ton code et il marche très bien sur les petites listes...
mais les listes que je veux comparer comportent toutes les deux aux alentours de 13000 entrées...
Avec ton système, il y aurait donc dans mon cas environ 169000000 de comparaisons à effectuer... ca fait un peu beaucoup!
j'ai quand meme essayé de lancer la macro. Comme prévu, elle fonctionne mais est très longue à s'effectuer et je l'ai coupée avant la fin.

est-ce qu'il y aurait une autre manière de supprimer les doublons rapidement??

merci d'avance

 

Vote positif 0 Vote négatif