pb code vba pour supprimer plusieurs lignes

Bonjour,

Je souhaite créer une macro qui me permettra de supprimer toutes les lignes de la colonne I ("I2:I2960") dont la valeur de la cellule est comprise entre 0 et 249.
j’ai rédigé un code , mail il ne marche pas.

Pouvez –vous me trouver une solution svp ?

Code:

---

1 2 3 4 5 6 7

Sub cheh3() Dim mycount As Range Dim I As Integer For Each mycount In Range("I2:I2960") If mycount.Value < 250 Then Rows(I).Delete Next mycount End Sub

---

Bonjour,

merci d'utiliser l'icône # dévolue au code !

Citation:

---

Envoyé par worfabs75

j’ai rédigé un code , mail il ne marche pas.

---

? Mais encore ?!

Bonjour,
essayes comme ça :

Code:

---

1 2 3 4 5

With Sheets("Feuil1") 'à adapter For I = 2960 To 2 Step -1 If .Range("I" & I) < 250 Then .Rows(I).Delete Next I End With

---

Citation:

---

Envoyé par casefayere

Bonjour,
essayes comme ça :

Code:

---

1 2 3 4 5

With Sheets("Feuil1") 'à adapter For I = 2960 To 2 Step -1 If .Range("I" & I) < 250 Then .Rows(I).Delete Next I End With

---

---

merci

La clef de la solution de casefayere, c'est de partir par la fin. Tout simplement parceque quand une boucle fait des suppressions(ou insertions), le compteur de lignes n'est pas fiable si on part du début.

Exemple : en ligne 8, je dois supprimer.

Si je pars du début, je supprime la ligne 8, et mon compteur est alors à 9.Mais en ligne 9 se trouve alors l'ancienne ligne 10. Si la ligne 9 était à supprimer, je suis chocolat.

Si je pars de la fin, je trouve la ligne 9 à supprimer, je la dézingue, ça décale tout ce qu'il ya derrière, mais c'est pas grave : c'est déjà traité. Puis, je règle son compte à la ligne 8.


Faire des delete sur un for each, c'est encore plus casse-gueule : on a même pas de compteur pour savoir ou on en est. Modifier le périmètre en cours de for each, c'est, euh, risqué. Très risqué.

Bonjour à tou(te)s, worfabs75, el_slapper

A el_slapper : + 1 (:plusser:)pour les explications données à worfabs75 mais il avait certainement compris vu son dernier post #4

merci pour toutes ces réponses