Probleme Out of Memory Run time error 7 sur macro

Hello,

je viens vers vous car je ne comprends pas d'où vient le souci sur cette macro tout simple, je souhaite delete toutes les lignes qui ont une valeur égale à VMOB sur un certain range d'une colonne.

Le fichier est conséquent avec environ 20 à 30 mille lignes.

Ci dessous le code, qui me semble bon :

Code:

---

1 2 3 4 5 6

Sub TEST() For Each Cell In Worksheets(1).Range("I2:I30000") If Cells.Value = "VMOB" Then Cells.Rows.Delete Next   End Sub

---

Mais dés que je tourne ma macro et que j'arrive sur la ligne pour delete les lignes, Excel s'arrête et me met : Run Time Error 7 / Out of memory, ça me semble bizarre, ce n'est pourtant pas une macro qui demande énormément de ressources et mon range est défini.

Je fais sûrement une erreur que je ne vois pas mais je ne vois pas. Si vous avez des idées je suis preneur :)

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Sub TEST() Application.ScreenUpdating = False Application.EnableEvents = False With Worksheets(1).Range("I1:I30000") For i = .Rows.Count To 2 Step -1 If .Cells(i, 1).Value = "VMOB" Then .Cells(i, 1).EntireRow.Delete Next End With Application.ScreenUpdating = True Application.EnableEvents = True MsgBox "Fin" End Sub

---

Hello,

ça marche top, merci beaucoup, juste pour pousser et pour apprendre, quelle a été mon erreur ?

On est obligé de passer par un For i pour ce genre de macros ? J'aimerais juste comprendre cette ligne qui me fait défaut, si jamais tu as le temps, merci pour l'aide en tout cas.

Code:

---

For i = .Rows.Count To 2 Step -1

---

Pourquoi la boucle a l'envers?
C'est très simple.
Admettons que tes lignes 3 et 4 contiennent "VMOB"
si tu boucles normalement, tu supprime la ligne 3, puis la ligne 4, sauf que entre tes deux suppression la ligne 4 a été déplacé, ce que ta boucle ne voit pas, donc elle l'ignore.
Si je ne suis pas assez clair test sur un exemple en mode pas à pas (f8)

Code:

---

If Cells.Value = "VMOB"Then Cells.Rows.Delete

---

Cells c'est toute la feuille! tu évalues If ToutesLesCellules = "VMOB"Then ToutesLesCellules.ToutesLesLignes.Delete

il faut déboiser arbre par arbre pas la forêt à l’expulsif!

Peux être es tu Cors ça expliquerait!

Je vous fais une réponse globale c'est plus simple,

je comprends ce que tu as voulu dire Halaster, c'est justement avec le pas à pas que j'ai vu cette erreur, et je comprends du coup la logique.
Par contre ça ne m'explique pas l'utilité du For i

@ Dysortographie, je n'ai pas compris la dernière phrase mais ayant délimité mon scope avec un range sur cette même worksheet, je pensais que mon code allait seulement vérifier dans ce range ("I2:I30000") l'existence ou non de ma valeur et delete la ligne le cas échéant si elle était présente. Mais mon raisonnement n'était pas le bon à ce que je vois.

ne confonds pas Cell (ForEach Cell) qui correspond à une cellule de la plage .Range("I1:I30000") et Cells qui correspond à toutes les cellules de ta feuille!

note également que si tu supprime la ligne 1, la ligne deux passe en ligne 1 ; donc si tu débuté en ligne 1 que tu la supprime ton ForEach saute la ligne 2 puisqu'elle est remonté d'un cran!

il faut commencer à la dernière ligne de ta feuille! (.Range("I1:I30000").Rows.Count ) For i = .Rows.Count To2Step-1

Citation:

---

Envoyé par Aiyolia

Par contre ça ne m'explique pas l'utilité du For i

---

Il n'y a pas de step dans un for each, et c'est le step qui permet de boucler a l'envers

Citation:

---

@ Dysortographie, je n'ai pas compris la dernière phrase mais ayant délimité mon scope avec un range sur cette même worksheet, je pensais que mon code allait seulement vérifier dans ce range ("I2:I30000") l'existence ou non de ma valeur et delete la ligne le cas échéant si elle était présente. Mais mon raisonnement n'était pas le bon à ce que je vois.

---

ton code:

Code:

---

Cells.Value = "VMOB" Then Cells.Rows.Delete

---

cells représente TOUTES les cellules de la feuilles
Que tu test et supprime toutes en même temps.
Le sien:

Code:

---

.Cells(i, 1).Value = "VMOB" Then .Cells(i, 1).EntireRow.Delete

---

Cells(i, 1) représente LA cellule (i,1)
donc la le travail se fait bien cellule par celullue (donc supression ligne par ligne)

D'accord, merci beaucoup, j'ai compris mon erreur et vos réponses respectives !

Merci pour votre temps et vos explications.