supprimer lignes comportant doublons avec cdt

[IsabelleC]

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]

Re : supprimer lignes comportant doublons avec cdt

bonsoir IsabelleC

a tester:

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]

Re : supprimer lignes comportant doublons avec cdt

bonsoir Pierre Jean,

la macro ne fonctionne pas non plus

merci néanmoins

isabelle

 

[SergiO]

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 :

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]

Re : supprimer lignes comportant doublons avec cdt

bonsoir Sergio, Le forum,

je te remercie cela fonctionne

isabelle