Itération marche dans un cas, pas dans un autre !

[Sebast]

Bonjour,

qui peut me dire (et me corriger) pourquoi le code suivant fonctionne pour un calcul mais pas pour supprimer des lignes ?

1) Fonctionne (pour info, donc RAS)
dim i as long
dim unit as string
' on démarre à 2 car ligne 1=en-tête
for i=2 to activesheet.usedrange.rows.count
unit=cells(i,10).value
select case unit
case "C"
cells(i,12).value=cells(i,8).value*cells(i,9).value
case else
cells(i,12).value=0
end select
next i
end sub

2) Ne fonctionne pas : semble ne pas balayer le fichier, alors que la structure for i = 2 to ... next i est pourtant la même


Sub supprimer_ligne()
' but du code = supprimer les lignes qd on trouve le mot "SIEMENS"

Dim i As Long

For i = 2 To ActiveSheet.UsedRange.Rows.Count
If Cells(i, 5) = "SIEMENS" Then Rows(i).Delete
Next i
End Sub
_______________________________________
je m'arrache les cheveux car je trouve très pratique de rendre dynamique le comptage des lignes grâce à activesheet.usedrange.rows.count
Je cherche une solution très simple et surtout lisible pour le novice que je suis !
Merci d'avance à tous

Sebast

 

[Pierrot93]

Re : Itération marche dans un cas, pas dans un autre !

Bonjour,

quand tu supprimes des lignes, il est préférable de commencer par la fin et de remonter :

For i = ActiveSheet.UsedRange.Rows.Count To 2 Step -1
If Cells(i, 5) = "SIEMENS" Then Rows(i).Delete
Next i

bonne journée
@+

 

[Sebast]

Re : Itération marche dans un cas, pas dans un autre !

Merci beaucoup pour cette réponse, ta solution marche parfaitement mais je reste toujours perplexe sur les raisons du non-fonctionnement de mon bout de code !
Bonne journée