Probleme de suppression

[greg06500]

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 :

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

 

[SergiO]

Re : Probleme de suppression

Bonjour greg,

Pour éviter la suppression 1 ligne sur 2, il est préférable de partir du bas:

Voici ton code modifié à tester :

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

@+

 

[greg06500]

Re : Probleme de suppression

Un grand merci pour ton aide, ça marche impec.

@+
greg