Discussion :

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

Code :

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

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

[alsimbad]

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
tu me suis là ?
d'autre part

Code :

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

1
2
3
Feuil2.Select
vente.EntireRow.Select
Selection.EntireRow.Delete

est égal à

Code :

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

Feuil2.EntireRow.Delete

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

Code :

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

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 :

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

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

[greg06500]

Voici le code :

Code :

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

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