doomaster66
XLDnaute Nouveau
Bonjour à tous,
j'utilise les lignes de code ci-dessous (trouvées sur ce forum) pour supprimer des lignes dans 6 feuilles en fonction d'une entrée InputBox (Editeur).
Tout ceci fonctionne parfaitement, mais le traitement prend plus de 5'. Connaissez vous une procédure plus rapide?
Merci.
With ThisWorkbook.Sheets("2016")
For i = .Range("D" & .Rows.Count).End(xlUp).Row To 4 Step -1
If .Range("D" & i).Value <> Editeur Then
.Rows(i).Delete
End If
Next i
End With
PS: Impossible de joindre le fichier, il fait plus de 2Mo.
j'utilise les lignes de code ci-dessous (trouvées sur ce forum) pour supprimer des lignes dans 6 feuilles en fonction d'une entrée InputBox (Editeur).
Tout ceci fonctionne parfaitement, mais le traitement prend plus de 5'. Connaissez vous une procédure plus rapide?
Merci.
With ThisWorkbook.Sheets("2016")
For i = .Range("D" & .Rows.Count).End(xlUp).Row To 4 Step -1
If .Range("D" & i).Value <> Editeur Then
.Rows(i).Delete
End If
Next i
End With
PS: Impossible de joindre le fichier, il fait plus de 2Mo.
