Supprimer des lignes avec condition (VBA)

Bonjour,

J'ai un problème avec la suppression de lignes avec VBA selon une condition. Je vous joins mon fichier de test.

Le but :

Dans l'onglet "IMPORT_DONNEES", Une formule toute bête calcule le mois et l'année de deux types de fichiers (définitif et provisoire).

Ce que je souhaite faire :

Chercher les lignes dans l'onglet "DATA_BASE" qui contiennent à la fois l'année et le mois calculé en cellules J4 et K4 de la première feuille. Et, une fois trouvées, les supprimer

J'ai trouvé ce code sur le site, que j'ai adapté à mon besoin. Quand je lance la macro, aucune erreur... Mais aucun résultat non plus

Option Explicit 'Oblige la déclaration des Variables

Sub Sup_Lig()
Dim DLig As Long, i As Long ' Declare la variable Dlig
Application.ScreenUpdating = False 'Empeche le rafraichissement de l'écran
DLig = Sheets("DATA_BASE").Range("A" & Rows.Count).End(xlUp).Row
For i = DLig To 2 Step -1

If Cells(i, 4) = Sheets("IMPORT_DONNEES").Range("J4") And Cells(i, 4) = Sheets("IMPORT_DONNEES").Range("K4") Then Rows(i).EntireRow.Delete
 Next i 'Prochaine Ligne
Application.ScreenUpdating = True
End Sub

Par avance, merci pour votre aide !

46test-suppr.xlsm (22.06 Ko)

Bonjour

If Cells(i, 3) = Sheets("IMPORT_DONNEES").Range("J4") And Cells(i, 4) = Sheets("IMPORT_DONNEES").Range("K4") Then Rows(i).EntireRow.Delete

Cordialement

Bon, j'me sens nouille sur le coup.

Merci beaucoup de ton aide ! Ca fonctionne

Rechercher des sujets similaires à "supprimer lignes condition vba"