probleme de for next

Bonjour,

dans le code ci dessous, il ne prend qu'une ligne sur 2. Pourquoi?

Code:

---

1 2 3 4 5 6 7 8 9 10

For i = 1 To Range("A65536").End(xlUp).Row   If Range("A" & i).Value = 3 Then   Range("A" & i).EntireRow.Copy Sheets("feuil2").Cells(Rows.Count, 1).End(xlUp)(2) Range("A" & i).EntireRow.Delete   End If   Next i

---

Bonjour,

Il existe de nombreux exemples pour ce problème récurrent.

Lorsque l'on fait un delete il faut parcourir les lignes du bas vers le haut

Code:

---

1 2 3

For i =Range("A65536").End(xlUp).Row to 1 step -1 '... Next i

---

Bonjour,
Il ne prends qu'une ligne sur 2 car à chaque itération de ta boucle tu supprimes une ligne :

Code:

---

Range("A" & i).EntireRow.Delete

---

Code:

---

1 2 3

For i = 1 To 10 Range("A" & i).EntireRow.Delete Next

---

Lors de la suppression de la ligne 1 (i=1), la ligne 2 devient la ligne 1, la ligne 3 devient la ligne 2.
La boucle continue, i = 2 traite la ligne 2 (qui était en fait la ligne 3 au départ)...

Pour contourner ce souci, la boucle doit commencer à la fin et boucler avec Step -1 :

Code:

---

1 2 3

For i = 10 To 1 Step - 1 Range("A" & i).EntireRow.Delete Next

---

Bonjour,

Si tu supprimes des lignes, excel décalera les lignes vers le haut.
Il faut donc a chaque suppression reculer de 1 la variable i

Code:

---

1 2 3 4 5 6 7 8 9 10

For i = 1 To Range("A65536").End(xlUp).Row   If Range("A" & i).Value = 3 Then   Range("A" & i).EntireRow.Copy Sheets("feuil2").Cells(Rows.Count, 1).End(xlUp)(2) Range("A" & i).EntireRow.Delete i=i-1 End If   Next i

---

Bonjour,

Oui c'est clair maintenant. De plus j'avais déja eu le cas que je suis bête.

Merci à tous.