Supprimer certaines lignes dans un fichier en respectant certains critères

[thh]

Bonjour.

Pour une association dont je suis membre, j'ai créé un fichier permettant de gérer la location des articles.
Cela fonctionne à merveille.

Dans ce même fichier j'ai un onglet "Historique des prêts" que j'aimerai dépoluer en VBA.

Dans le fichier joint, il y a des doublons avec dans la colonne D des cellules vides
Je veux supprimer la ligne complete (exemple ligne 7, 9, 15, 18, 20) QUE si le numero de licence (dans la ligne en dessous) est identique à celui-ci, et QUE si le "Scan" (colonne C) est aussi identique.

Voilà:
Problème exposé.

 

[phlaurent55]

Re : Supprimer certaines lignes dans un fichier en respectant certains critères

Bonjour thh,

voir fichier joint

Sub Bouton1_Clic()
For i = Range("A65535").End(xlUp).Row To 5 Step -1
    If Cells(i, 1) = Cells(i - 1, 1) And Cells(i, 3) = Cells(i - 1, 3) Then Rows(i - 1).Delete
Next i
End Sub

à+
Philippe

 

[thh]

Re : Supprimer certaines lignes dans un fichier en respectant certains critères

Merci Philippe.

Mon niveau ne me permettait pas de résoudre ce problème, je suis autodidacte.

A grand merci

Thh