supprimer lignes comportant doublons avec cdt

IsabelleC · 17 Avril 2007

bonjour,

je cherche à supprimer les lignes qd il y a des doublons dans une colonne et si une valeur est présente dans une autre colonne

j'avais trouvé sur le forum un code pour supprimer les lignes mais je n'arrive pas à rajouter une condition

With Sheets("feuil1")
Set Plage = .Range("C2:C" & .Range("C32767").End(xlUp).Row)
For i = Plage.Rows.Count To 2 Step -1
If Application.CountIf(Plage, Plage(i, 1)) > 1 And Plage.Offset(i, -2) = "903" Then
Rows(i).Delete
End If
Next i
End With

merci d'avance pour vos réponses

isabelle

pierrejean · 17 Avril 2007

Re : supprimer lignes comportant doublons avec cdt

bonsoir IsabelleC

a tester:

Code:

With Sheets("feuil1")
Set Plage = .Range("C2:C" & .Range("C32767").End(xlUp).Row)
For i = Plage.Rows.Count To 2 Step -1
If Application.CountIf(Plage, Plage(i, 1)) > 1 [COLOR=red]Or [/COLOR]Plage.Offset(i, -2) = "903" Then
Rows(i).Delete
End If
Next i
End With

IsabelleC · 17 Avril 2007

Re : supprimer lignes comportant doublons avec cdt

bonsoir Pierre Jean,

la macro ne fonctionne pas non plus

merci néanmoins

isabelle

SergiO · 17 Avril 2007

Re : supprimer lignes comportant doublons avec cdt

Bonsoir IsabelleC,Pierre Jean,

Peut-être que j'ai mal interprété mais voici ce que j'ai compris :

Doublon en Colonne C et Valeur 903 en Colonne A

Cela donnerait ceci :

Code:

With Sheets("feuil1")
Set Plage = .Range("C2:C" & .Range("C32767").End(xlUp).Row)
For i = Plage.Rows.Count To 2 Step -1
If Application.CountIf(Plage, Cells(i, 3)) > 1 And Cells(i, 1) = "903" Then
Rows(i).Delete
End If
Next i
End With

Bone soirée

IsabelleC · 17 Avril 2007

Re : supprimer lignes comportant doublons avec cdt

bonsoir Sergio, Le forum,

je te remercie cela fonctionne

isabelle

supprimer lignes comportant doublons avec cdt

IsabelleC

XLDnaute Junior

pierrejean

XLDnaute Barbatruc

IsabelleC

XLDnaute Junior

SergiO

XLDnaute Accro

IsabelleC

XLDnaute Junior

Discussions similaires

supprimer lignes comportant doublons avec cdt

IsabelleC

XLDnaute Junior

pierrejean

XLDnaute Barbatruc

IsabelleC

XLDnaute Junior

SergiO

XLDnaute Accro

IsabelleC

XLDnaute Junior

Discussions similaires

Privacy & Transparency

Privacy & Transparency