Discussion :

[derouteu]

Bonjour le forum,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 ,

[fring]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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"

[le_dilem]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[derouteu]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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