Macro lente

bONJOUR Le FORUM

jai une enorme base de données à exploiter

Le code ci dessous supprime toutes les lignes ne contenant pas le mot MUAC dans la colonne 20

Ce code fonctionne mais le soucis c'est que l'execution est hyper lente ( plus de quatre min)

Application.ScreenUpdating = False

Sheets("A").Select

Dim i As Long

For i = ActiveSheet.UsedRange.Rows.Count To 2 Step -1

If Not Cells(i, 20) Like "*MUAC*" Then Rows(i).Delete

Next

Application.ScreenUpdating = True

j'aimerais savoir si cette lenteur est au volume de données ou si c'est mon code qui n'est pas adéquat , dans ce cas pouvez vous m'en proposer ?

Salut KTM,

J'ai eu le même problème qui a été solutionner par Jean-Eric au lien ci-dessous :

https://forum.excel-pratique.com/viewtopic.php?f=2&t=117775&hilit=criteria

cf. le message du 10 décembre 2018 à 15:52

Si tu n'arrive pas à adapter ce code à ton cas, fais nous un retour et nous t'aiderons

A dispo!

merci c'est ok

Bonjour toutes et tous

je ne comprend pas la début de ce code est-il nécessaire ?

Sheets("A").Select ?

crdlt,

André