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