Echec de la méthode "Range"

Bonjour,

Pour supprimer certaines lignes dans un grand tableau, j'ai pondu cette macro :

Code:

---

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

Sub SupprimerI() Windows("tab_factures_avec_petitavoir.xlsx").Activate Sheets("Feuil2").Activate Application.ScreenUpdating = False Dim k As Integer For k = 1 To 5000 If Range("F:" & k).Value = "I" And Range("E:" & k).Value <> Range("E:" & k + 1).Value Then Rows("k:k").Delete Shift:=xlUp End If Next k End Sub

---

La macro est censée supprimer les lignes qui contiennent "I" dans la colonne F seulement si la ligne du dessous ne concerne pas la même commande (la colonne E contient les numéros de commandes et n'est constituée que de nombres)

Seulement, à l'exécution de la macro, j'ai une erreur de la méthoede Range dans l'objet _Global, avec la ligne en gras surlignée.

J'ai tenté en supprimant des "Value", en mettant "Text" et "Content" à la place, etc, toujours le même bug.

Quelqu'un a une idée ?

Merci d'avance. :)

Bonjour

Le signe : est de trop, là et plus loin sur la même ligne

Code:

---

Range("F" & k).Value

---

Je vois une autre erreur. Lorsque tu supprimes des lignes par itération, tu dois commencer par le bas du tableau et remonter avec un Step - 1, sinon, tu louperas systématiquement la ligne qui suit une ligne supprimée, et lorsque tu supprimes des colonnes par itération, tu dois commencer par la droite de ton tableau.

Bonjour,

D'autre part je pense que cette ligne :

Code:

---

Rows("k:k").Delete Shift:=xlUp

---

devrait être remplacée par :

Code:

---

Rows(k & ":" & k).Delete Shift:=xlUp

---

k est une variable.

Effectivement, je suis tête en l'air. Et merci pour le conseil sur le Step -1 :)

Code:

---

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

Sub SupprimerI()   Windows("tab_factures_avec_petitavoir.xlsx").Activate Sheets("Feuil2").Activate Application.ScreenUpdating = False Dim k As Integer For k = 2660 To 1 Step -1 If Range("F" & k).Value = "I" And Range("E" & k).Value <> Range("E" & k + 1).Value Then Rows(k & ":" & k).Delete Shift:=xlUp End If Next k   End Sub

---

Perfect.
Thank you guys :ccool:

Peut-être encore une précision, à la fin de la procédure il vaut mieux ajouter :

Code:

---

Application.ScreenUpdating = True

---

à moins que vous ne l'ayez indiqué dans une procédure suivante.