exécution de seconde condition

Bonjour le forum,

J'ai écrit un script avec 2 conditions mais seul la 1ère se réalise:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33

Sub trial_second_step()   Range("G1").Select Selection.Cut Range("M1").Select ActiveSheet.Paste Columns("G:L").Select Selection.Delete Shift:=xlToLeft   Dim Cell As Range   Dim LastLig As Long, i As Long   LastLig = Cells(Rows.Count, 1).End(xlUp).Row DerLig = 2 For i = 2 To LastLig   For Each Cell In Range("A1:A" & Range("A65536").End(xlUp).Row) If Cells(i, 1) = "DEBUT" Then Rows(i).Delete   End If   If Cells(i, 1) = "FIN" Then Rows(i).Delete     End If   Next Next   End Sub

---

J'ai dans mon fichier excel dans la colonne A, une cellule qui comporte le texte "DEBUT" et dans une autre cellulle de la colonne A le texte "FIN". Je désire supprimer ces deux lignes.

Mon script supprime uniquement la ligne qui contient "DEBUT" mais pas celle qui contient "FIN".

Comment modifier le script pour que ces 2 lignes disparaissent?


Merci ,

Bonjour,

Lorsqu'on veut supprimer ou masquer des lignes via une boucle, il faut toujours que cette boucle se fasse de bas en haut

Essaye comme ceci :

Code:

---

1 2 3

For i = LastLig To 2 Step -1 If (Cells(i, 1) = "DEBUT") Or (Cells(i, 1) = "FIN") Then Rows(i).Delete Next i

---

Tu peux supprimer ta seconde boucle "For Each" ;)

Code:

---

1 2 3 4

If Cells(i, 1).Value = "DEBUT" Or Cells(i, 1).Value = "FIN" Then   Rows(i).Delete

---

Excellent!

Merci fring et le_dilem!

J'ai intégré "Or" et ça marche comme sur des roulettes que la feuille contienne seulement "DEBUT", seulement "FIN" ou les deux à la fois.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32

Sub trial_second_step()   Range("G1").Select Selection.Cut Range("M1").Select ActiveSheet.Paste Columns("G:L").Select Selection.Delete Shift:=xlToLeft   Dim Cell As Range   Dim LastLig As Long, i As Long   LastLig = Cells(Rows.Count, 1).End(xlUp).Row DerLig = 2 For i = LastLig To 2 Step -1       For Each Cell In Range("A1:A" & Range("A65536").End(xlUp).Row) If Cells(i, 1) = "DEBUT" Or Cells(i, 1) = "FIN" Then   Rows(i).Delete     End If   Next Next     End Sub

---