pb code vba pour supprimer plusieurs lignes

**worfabs75** · 16/10/2013, 11h42

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

**Marc-L** · 16/10/2013, 11h53

Bonjour,

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

Envoyé par worfabs75

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

? Mais encore ?!

**casefayere** · 17/10/2013, 11h17

Bonjour,
essayes comme ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

**worfabs75** · 18/10/2013, 10h30

Envoyé par casefayere

Bonjour,
essayes comme ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

**el_slapper** · 18/10/2013, 11h46

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é.