Probleme De Suppression

Bonjour,

J'ai un problème dans la suppressions de plusieurs lignes en même temp, en fait ça me suprime une ligne sur deux.
Voici mon code :

Code:

---

1 2 3 4 5 6 7 8 9

With Feuil2 For Each vente In .Range("A2:I" & .Range("A65536").End(xlUp).Row) If vente.Offset(0, 8) = UserForm1.ComboBox2.Text Then Feuil2.Select vente.EntireRow.Select Selection.EntireRow.Delete End If Next End With

---

Merci d'acance pour votre aide

trouve une boucle qui travaille a l'envers
quand tu suprime la ligne 2, la ligne trois devient la ligne 2 et la boucle en passant a la ligne 3 analyse la ligne qui en fait était la ligne 4 avant que tu supprime la ligne 2, donc la ligne 3 n'est pas analysée
:D tu me suis là ? :D
d'autre part

Code:

---

1 2 3

Feuil2.Select vente.EntireRow.Select Selection.EntireRow.Delete

---

est égal à

Code:

---

Feuil2.EntireRow.Delete

---

ce qui fait gagner bien du temps et épargne les yeux
et donc

Code:

---

1 2 3 4 5 6 7 8 9 10

With Feuil2 For Each vente In .Range("A2:I" & .Range("A65536").End(xlUp).Row) If vente.Offset(0, 8) = UserForm1.ComboBox2.Text Then Feuil2.Select vente.EntireRow.Select Selection.EntireRow.Delete End If Next End With

---

pourrais devenir

Code:

---

1 2 3 4 5 6 7

With Feuil2 For Each vente In .Range("A2:I" & .Range("A65536").End(xlUp).Row) If vente.Offset(0, 8) = UserForm1.ComboBox2.Text Then _ .vente.EntireRow.Delete Next vente End With

---

mais j'ai pas testé, c'est inutile puisqu'il faut que tu change ta boucle
bon courage

Voici le code :

Code:

---

1 2 3 4 5 6 7

Feuil2.Select DerLig = Range("A65536").End(xlUp).Row For i = DerLig to 2 step -1 If cells(i, 9) = UserForm1.ComboBox2.Text Then cells(i,1).EntireRow.EntireRow.Delete End If Next i

---

Merci

GREG