Discussion :

[6kroo]

Bonjour à tous,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 !

[Invité]

Bonjour,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[6kroo]

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 !

[Invité]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[6kroo]

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.

[riaolle]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

Cells(i, 12).EntireRow.Delete

Tu peux peut-être essayer

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[6kroo]

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