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 SubPar avance, merci pour votre aide !
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
Merci beaucoup de ton aide ! Ca fonctionne