Méthode Delete Classe Range échoué

Bonjour à tous,

Je rencontre un problème avec le code Excel suivant :

Code:

---

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

Sub Critere_rejet()   Dim DerniereLigne As Long Dim i As Long DerniereLigne = Range("B" & Rows.Count).End(xlUp).Row 'On cherche le numéro de la dernière ligne   For i = 5 To DerniereLigne While Cells(i, 12).Value > 0.9 Cells(i, 12).EntireRow.Delete Wend Cells(1, 13).Value = (DerniereLigne) Cells(1, 12) = i Next i   [L1:M1].ClearContents   End Sub

---

L'idée est de supprimer les lignes pour lesquelles la valeur est supérieur à 0,9. Ce programme fonctione très bien lorque je l'éxécute avec des tableaux qui font 1000 lignes. Dès que je l'utilise avec des tableaux qui font 5 000 ou 10 000 (j'aimerai aller jusqu'à 40 000) cela ne fonctionne pas et Excel me dit : "Erreur d'éxécution '1004' : La méthode Delete de la classe Range a échoué"

J'ai déjà chercher sur internet mais je ne trouve rien de similaire (qui fonctionne pour certaines valeurs et pas d'autres)

Merci d'avance pour votre aide !

Bonjour,

Code:

---

1 2 3 4 5

For i = DerniereLigne To 5 step -1 if val(replace("" & Cells(2, 12).Value,",",".")) > 0.9 then Cells(i, 12).EntireRow.Delete end if Next i

---

Merci pour ta réponse rapide.

J'ai tapé le code que tu m'as donné, je lance le programme, il balaie toute les lignes sans soucis mais il n'en supprime aucune. Je ne comprend pas le Step -1 et Val(Replace("" & Cells(2, 12).Value, ",", ".")).

Peux-tu m'éclairer ?

Merci !

désolé, pour mes test javais remplacé i par 2!

Code:

---

1 2 3

if val(replace("" & Cells(i, 12).Value,",",".")) > 0.9 then Cells(i, 12).EntireRow.Delete

---

Je rencontre le même problème que tout à l'heure, mais avec tous les fichiers. C'est-à-dire que le code ne fonctionne pas même avec 500 ou 1000 lignes...

Et lorsque je clique sur débogage, l'erreur est ici : Cells(i, 12).EntireRow.Delete.

Bonjour,
Explications pour le Step -1: https://www.developpez.net/forums/d1...e/#post9204035
Le Replace sert à remplacer les virgules par des points. En effet, Excel (en français) utilise la virgule comme séparateur des décimales, alors que VBA (en anglais) utilise le pont. Donc si tu as écrit 0,9 dans ton classeur Excel, i lne le reconnaître pas comme étant égal à 0.9.
Plutôt que

Code:

---

Cells(i, 12).EntireRow.Delete

---

Tu peux peut-être essayer

Code:

---

Rows(i).Delete

---

Plutôt que de faire une boucle pour trouver les valeurs > 0,9 et effacer les lignes correspondantes, tu ferais mieux d'utiliser les filtres automatiques, surtout si tu as un grand nombre de lignes --> Range.AutoFilter
Tu filtres et tu supprimes les lignes résultantes du filtre, puis tu enlève le filtre.

J'ai réussi et ça fonctionne ! Merci beaucoup pour votre aide !