macro trop lente

L'aide dit surtout que FindNext(After), After étant facultatif et effectivement dans le cas présent pas le choix, puisque la dernière cellule pointé est détruite par la macro.

Pour veux tu travailler sur les colonnes de A à F? Sauf erreur de ma part ça n'est pas ce qui est demandé par l'auteur de la question.

Pour xllastcell, pourquoi pas, ou une structure avec End(xlup). Vu que je n'avais pas les données, je me suis dit que peut-être sur l'ensemble des cellules certaines n'avaient pas de formule.

bon ca y est

en fait meme avec un find/find next bien conçu on aurais jamais eu un résultat
déjà avec "#N/A"(erreur 2042)
quand on fait cel.value on est déjà dans le jaune

et comme find cherche par la valeur c'est walouh
alors on va rester simple

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Sub SuppSiErr() 'On bloque le rafraichissement (gain de temps) Application.ScreenUpdating = False 'On pointe la feuille With Feuil1 For Each cel In .UsedRange.Columns("AF").Cells 'on ne prend que le usedrange de la colonne AF If IsError(cel) Then cel.EntireRow.Delete 'If cel.Value = ""#N/A"" Then 'cette ligne plante pour la raison que j'ai cité plus haut Next End With Application.ScreenUpdating = True End Sub

---

autant pour moi pour "AF"
voila testerdans xp et off 2003 w7 et off 2007

Citation:

---

Envoyé par ilissnmiden92

Bonjour j'ai besoin de votre aide,

J'utilise une macro qui suite à une recherche V, me vire toutes lignes ou ya des #N/A, mais là étant donné qu'elle doit virer 7000 lignes, elle met bcp de temps à finir.
Est ce qu'il y a pas une astuce, un code à intégrer pour qu'elle devienne rapide meme en cas d'un nombre important de lignes

voici le code utilisé:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Sub suppressionLigne_SiErreur_NA() Dim x As Long   For x = 65536 To 1 Step -1   If WorksheetFunction.IsError(Range("AF" & x)) = True Then If CVErr(xlErrNA) = Range("AF" & x) Then _ Rows(x).EntireRow.Delete End If Next x   End Sub

---

Merci pour votre aide

---

Afin d'accélérer pas mal la macro, tu pourrais, sinon, tout mémoriser puis tout supprimer d'un coup, au lieu de supprimer ligne par ligne.

Par exemple

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Dim rngASuppr As Range Dim cell As Range   For Each cell In Range("AF1", Range("AF" & rows.Count).End(xlUp)) If cell.Text Like "*N/A*" Then 'ou peu importe ta façon de vérifier, iserror ou comme tu le souhaites If rngASuppr Is Nothing Then Set rngASuppr = cell.EntireRow 'Si rngASuppr est encore vide, alors on ne peut pas utiliser Union(Nothing,cell.EntireRow) donc on l'initialise en disant que ça vaut toute la ligne Else Set rngASuppr = Union(rngASuppr, cell.EntireRow) 'Sinon, on y ajoute la nouvelle ligne trouvée End If End If Next cell   '(Tu pourrais également utiliser find ou ce que tu veux, mais franchement pour quelques milliers de lignes, Excel va analyser extrêmement vite) rngASuppr.Delete 'Et tu supprimes tout à la fin :)

---

Ce n'est pas forcément la meilleure méthode, je la propose juste comme ça...

Quentin