Resolu:boucle qui s arrete

[djdmd14]

bonjour
j ai cette boucle

Sub test()
For Each cellule In Selection
If cellule.Value = "Thumbs.db" Then cellule.EntireRow.Delete
If InStr(1, cellule.Value, "$") Then cellule.EntireRow.Delete
Next cellule
End Sub

je ne comprends pas pourquoi elle s arrete des la premiere iteration trouvee
merci para avance

 

[Pierrot93]

Re : boucle qui s arrete

Bonjour,

quand tu supprimes des lignes, préférable de commence par la fin.... A noter que ton test n'est pas complet...

bonne journée
@+

 

[Pierrot93]

Re : boucle qui s arrete

Re,

un exemple ci dessous qui traite la colonne A:

Option Explicit
Sub test()
Dim i As Long
For i = Range("A65536").End(xlUp).Row To 2 Step -1
    If InStr(1, Cells(i, 1), "$") > 0 Then Rows(i).Delete
Next i
End Sub

 

[djdmd14]

Re : boucle qui s arrete

c est parfait merci beaucoup