supprimer lignes en doublons...

[gwad063]

Bonjour à tous,

Je me permets de solliciter encore votre aide parce que j'ai un peu de mal à mettre sur pied une macro toute simple qui va balayer un tableau ligne par ligne et, lorsque elle trouve en ligne i+1 les mêmes valeurs que sur la ligne i (pour les colonnes de A à E), elle va supprimer la ligne avant de passer à la suivante...
Voilà ce que donne mon code :

Sub SuppressionDoublons()
Dim i, j as long
Dim NomFeuille as String
Dim LigPrem as long
Dim Original, Doublons as range

LigPrem = 2
NomFeuille="Spécifiques sur BPR standard"

For i = LigPrem to Sheets(NomFeuille).Range("A" & "65536").End(xlup).row
For j= LigPrem +1 to Sheets(NomFeuille).Range("A" & "65536").End(xlup).row + 1

Set Original = sheets(NomFeuille).Range("A", i & sheets(NomFeuille).range("E", i))Set Doublons = sheets(NomFeuille).Range("A", j & sheets(NomFeuille).range("E",j))

If Original = Doublons Then
Rows(j).Delete
End If

Next j
Next i

End If

J'ai une erreur à partir du morceau de code en rouge...
Si le problème était de comparer une ligne à une autre, je pense que ce serait bon, mais j'ai un peu de difficulté pour comparer une plage de cellule(des colonnes A à E) à une autre...
Si quelqu'un a quelques conseils à me donner.
Merci beaucoup par avance.

Gwad.

 

[fanfan38]

Re : supprimer lignes en doublons...

Bonjour
Tu compliques trop ton appli...
For i = 2 to Sheets(NomFeuille).Range("A" & "65536").End(xlup).row
if cells(i,5).value=cells(i+1,5).value then cells(i,5).entirerow.delete
next

A+ François

 

[gwad063]

Re : supprimer lignes en doublons...

Bonjour François,

Je vais tester...

Un grand merci, bonne après-midi.

Gwad.

 

[gwad063]

Re : supprimer lignes en doublons...

attends...en fait, à vue de nez, ça va pas...
parce que même si la valeur en colonne E est identique, il faut pas forcément supprimer la ligne...(à partir du moment où les valeurs dans les autres colonnes sont différentes)
Pour suprimer la ligne, il faut que toutes les valeurs (des colonnes A à E) soient identiques...

 

[papapaul]

Re : supprimer lignes en doublons...

Salut,
Ca devrait aller.
Ca compare toutes les cellules de la colonne E vers la A
M = 5
pour créer le tableau cible.
A tester.
Bon courage.

 

[gwad063]

Re : supprimer lignes en doublons...

Bonjour papapaul,

Un grand merci également...
Je regarde ça de suite.

Bon aprem.

Gwad.

PS: décidément, qu'est-ce que je ferai sans ce site...

 

[papapaul]

Re : supprimer lignes en doublons...

Re salut,

J'ai été trop vite. Une fois de plus
Essaye en remettant M = 1

Si c'est bien que les doublons de ligne sur les
5 premieres colonnes.

Il faut mettre
For j = 1 To 4 au lieu de 1 to 6

Cette fois ca doit être bon

Excuses.

 

[papapaul]

Re : supprimer lignes en doublons...

Re gwad063

pourquoi for j = 1 to 4 ???

5 colonnes ca doit être 1 to 5 , non ?

Pas concentré moi !!

@+

 

[ChTi160]

Re : supprimer lignes en doublons...

Salut gwad063
bonjour le Fil

Une autre version pourquoi pas !!! lol

Le Fichier :Regarde la pièce jointe supprlignes_si5ccolonnes_doublonsV2.zip

Bonne fin de journée