Macro à 3 conditions

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:

---

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.

Bonjour,
si je me réfère à ton énoncé, cette condition n'est pas prévue

Code:

---

If range("A" & N) <> ""...

---

donc je traduis

Code:

---

1 2 3 4 5 6 7

Dim Dernligne As Long Dernligne = ActiveSheet.Range("A" & Rows.Count).End(xlUp).Row For N = Dernligne To 1 Step -1 If Range("I" & N) = "AVR-16" And Range("AG" & N) = "Y" And Range("AJ" & N) = "" Then Rows(N ).Delete Shift:=xlUp End If Next N

---

Bonjour,

Je voulais dire au début de la macro que tant qu'il y a quelque chose d'écrit dans la colonne A fait moi supprimer les lignes qui remplissent les trois conditions seulement soit:


Supprimer toutes les lignes qui remplissent ses trois conditions soit:

Dans la colonne I c'est inscrit "AVR-16"
Dans la colonne AG c'est inscrit "Y"
et dans la colonne AJ "il n'y a rien d'inscrit".

Mon code ne fonctionne pas. Je ne suis peut-être pas obliger de dire tant qu'il y a quelque chose d'inscrit dans la colonne A.

Je voudrais seulement que l'on supprime toutes les lignes qui ont les trois conditions et ce même si mon tableau varie du nombre de lignes.
C'est jamais pareil d'un mois a l'autre.
J'ai essayé le code que tu as inscrit mais j'ai une erreur sur le For N qui dit variable non défini.

Merci beaucoup de votre aide.

Citation:

---

J'ai essayé le code que tu as inscrit mais j'ai une erreur sur le For N qui dit variable non défini.

---

Bien sur, il faut penser à déclarer les variables, en début de code

Code:

---

Dim N as Long'ou Integer selon...

---

quand tu écris

Code:

---

Dernligne = ActiveSheet.Range("A" & Rows.Count).End(xlUp).Row

---

donc tu n'es pas obligé de mettre

Code:

---

If range("A" & N) <> ""...

---

à moins que dans la plage certaines cellules en A sont vides