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
Pour éviter la suppression 1 ligne sur 2, il est préférable de partir du bas:
Voici ton code modifié à tester :
Code:
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