Bonjour,

Je veux faire une macro qui supprimera les lignes à la condition que cela remplissent les trois conditions suivantes:

Si dans la colonne I il y d'écrit "AVR-16" et
Si dans la colonne AG il y a d'écrit un "Y" et
S'il n'y a rien d'écrit dans la colonne AJ et seulement les lignes qui remplissent ces trois conditions.

Mon problème c'est que d'un mois a l'autre je n'ai jamais le même nombre de ligne.

J'ai fait cette macro MAIS elle ne n'exécute pas la troisième condition car j'ai toujours les lignes qui n'ont rien d'écrit dans la colonne AJ qui ont un Y a AG et qui sont AVR-16 en colonne I.
pourriez-vous s.v.p me dire ce qui ne fonctionne pas dans ma macro?

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
Dim Dernligne As Long
Dernligne = ActiveSheet.range("A" & Rows.Count).End(xlUp).Row
For N = Dernligne To 1 Step -1
If range("A" & N) <> "" And range("I" & N) = "AVR-16" And range("AG" & N) = "Y" And range("AJ" & N) = "" Then
Rows(N & ":" & N).Select
Selection.Delete Shift:=xlUp
End If
Next N
peut-être ce serai mieux avec un filtre??? Je suis qu'une débutante en macro. J'avais déjà fait cette macro mais seulement avec les deux premières conditions.

Je vous remercie beaucoup de votre aide c'est grandement appréciée.