OVH Cloud OVH Cloud

re-doublon

3 réponses
Avatar
Yansec
Bonsoir
Toujours pour ma macro
je cherche l'instruction qui me permette de supprimer les lignes doublon
(contenu de la colonne B ET contenu de la colonne C identique)
merci

3 réponses

Avatar
FdeCourt
Bonsoir,

Il faut que sa supprime la ligne (entière ?) si dans les colonne B et
C, mais sur la même ligne, les éléments sont identiques ?
Ou faut-il s'assurer que dans la colonne B il n'y ai pas d'élément
contenu dans la colonne C, ou l'inverse ?
Il peut y avoir d'autre cas de figure.....



Bonsoir
Toujours pour ma macro
je cherche l'instruction qui me permette de supprimer les lignes doublon
(contenu de la colonne B ET contenu de la colonne C identique)
merci


Avatar
FdeCourt
Je n'avais pas vu ton message précédent...

Serait-ce une solution qui fonctionne :

Dim x, i, j As Integer
x = Cells(65536, 2).End(xlUp).Row
For i = x To 1 Step -1
For j = Cells(65536, 1).End(xlUp).Row To 1 Step -1
If j <> i Then If Cells(i, 2) = Cells(j, 2) And Cells(i, 3) = Cells(j,
3) _
Then Cells(i, 2).EntireRow.Delete
Next
Next


Bonsoir,

Il faut que sa supprime la ligne (entière ?) si dans les colonne B et
C, mais sur la même ligne, les éléments sont identiques ?
Ou faut-il s'assurer que dans la colonne B il n'y ai pas d'élément
contenu dans la colonne C, ou l'inverse ?
Il peut y avoir d'autre cas de figure.....



Bonsoir
Toujours pour ma macro
je cherche l'instruction qui me permette de supprimer les lignes doublon
(contenu de la colonne B ET contenu de la colonne C identique)
merci




Avatar
Yansec
Bonjour,

c'est vrai que l'énoncé de mon probleme n'etait pas tres bien posé, mais tu
l'as parfaitement compris puique ta solution fonctionne à merveille
en fait , il s'agit simplement de supprimer les lignes en double sur une
feuille à 3 colonnes
encore MERCI
bon week end

"FdeCourt" a écrit dans le message de news:

Je n'avais pas vu ton message précédent...

Serait-ce une solution qui fonctionne :

Dim x, i, j As Integer
x = Cells(65536, 2).End(xlUp).Row
For i = x To 1 Step -1
For j = Cells(65536, 1).End(xlUp).Row To 1 Step -1
If j <> i Then If Cells(i, 2) = Cells(j, 2) And Cells(i, 3) = Cells(j,
3) _
Then Cells(i, 2).EntireRow.Delete
Next
Next


Bonsoir,

Il faut que sa supprime la ligne (entière ?) si dans les colonne B et
C, mais sur la même ligne, les éléments sont identiques ?
Ou faut-il s'assurer que dans la colonne B il n'y ai pas d'élément
contenu dans la colonne C, ou l'inverse ?
Il peut y avoir d'autre cas de figure.....



Bonsoir
Toujours pour ma macro
je cherche l'instruction qui me permette de supprimer les lignes doublon
(contenu de la colonne B ET contenu de la colonne C identique)
merci