Resolu:boucle qui s arrete

djdmd14 · 7 Mars 2013

bonjour
j ai cette boucle

Code:

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 · 7 Mars 2013

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 · 7 Mars 2013

Re : boucle qui s arrete

Re,

un exemple ci dessous qui traite la colonne A:

Code:

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 · 7 Mars 2013

Re : boucle qui s arrete

c est parfait merci beaucoup

Resolu:boucle qui s arrete

djdmd14

Guest

Pierrot93

XLDnaute Barbatruc

Pierrot93

XLDnaute Barbatruc

djdmd14

Guest

Discussions similaires

Resolu:boucle qui s arrete

djdmd14

Guest

Pierrot93

XLDnaute Barbatruc

Pierrot93

XLDnaute Barbatruc

djdmd14

Guest

Discussions similaires

Privacy & Transparency

Privacy & Transparency