Macro avec condition date pour suppression de lignes
Bonjour,
J'ai trouvé une macro sur un forum, et après quelques modifications, elle répond entièrement à ce que je veux dans le sens ou elle fait le job
Cependant, vu la quantité de données que j'ai à traiter, elle devient très lente..
Quelqu'un aurait-il une meilleur idée ? svp
La macro ouvre un éditeur, je rentre la date que je veux supprimer au format XX/XX/XXXX et elle supprime toutes les lignes avec la date (colonne A) en question. Mais bon, c'est lent, je traite un peu près 5000 lignes à la fois.
Quand il y a moins de 500 lignes, c'est quasiment instantané mais après ça devient long.
J'ai trouvé une autre macro avec un filtre mais pas moyen de comprendre comme cela marche.
Voici le code de la macro actuelle :
Sub Suitesupprediteur()
Dim I As Integer
Dim Editeur As String
Editeur = InputBox("Veuillez entrer la date à supprimer ?", "TEST", "XX/XX/XXXX")
With ThisWorkbook.Sheets("FEUILLEMACRO")
For I = .Range("A" & .Rows.Count).End(xlUp).Row To 1 Step -1
If .Range("A" & I).Value = Editeur Then
Rows(I).Delete
End If
Next I
End With
End SubVoilà, si vous avez une petite idée pour accélérer, ça m’intéresse très fortement
Merci,
Bonne soirée
Repi17
Merci, parfait !