[VBA] Erreur 1004 - Delete Classe range

Bonjour,

J'ai un petit problème avec l'utilisation d'une formule de suppression j'obtiens une erreur 1004: La méthode Delete de la classe range à échoué

Code:

---

1 2 3 4 5 6 7

Sheets("4-Dependencies").Activate ' Activation de la feuille 4-Dependencies   For n = ActiveSheet.Range("C" & Columns.Count).End(xlUp).Row To 1 Step -1   If ActiveSheet.Range("C" & n).Value = ID Then ActiveSheet.Rows(n).Delete   Next n

---

C'est l'expression "ActiveSheet.Rows(n).Delete"qui est surlignée en jaune.
Ce que je ne comprends pas trop c'est que lorsque je fais appel à cette instruction sur des données déjà existantes ca marche mais si je l'utilise après avoir utilisé ma fonction d'ajout de donnée ca ne marche pas.

Est-ce quelqu'un peut m'aider?
Merci.

Bonjour,
Je ne vois pas ce qui cloche avec ce code ??
Tu as bien déclaré tes variables ?

Peux-tu essayer ça et voir si ça marche ?:

Code:

---

...Then ActiveSheet.Range("C" & n).EntireRow.Delete

---

Bonjour,

En utilisant ce code (légèrement différent) par d'erreurs

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Dim i As Integer Dim iFin As Long   iFin = Range("A:A").End(xlDown).Row   For i = 1 To iFin If Range("A" & i).Value <> "" Then Range("A" & i).Delete i = i - 1 End If Next i

---

Citation:

---

Envoyé par oOVaveOo

Bonjour,
Je ne vois pas ce qui cloche avec ce code ??
Tu as bien déclaré tes variables ?

---

Je ne vois pas non plus, comment dois-je déclarer mes variables car c'est peut être sur cette partie là que je ne fais pas ce qu'il faut.

Citation:

---

Envoyé par oOVaveOo

Peux-tu essayer ça et voir si ça marche ?:

Code:

---

...Then ActiveSheet.Range("C" & n).EntireRow.Delete

---

---

J'avais déjà essayé ce code même erreur.

Citation:

---

Envoyé par jfontaine

Bonjour,

En utilisant ce code (légèrement différent) par d'erreurs

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Dim i As Integer Dim iFin As Long   iFin = Range("A:A").End(xlDown).Row   For i = 1 To iFin If Range("A" & i).Value <> "" Then Range("A" & i).Delete i = i - 1 End If Next i

---

---

J'ai adapté ton code à mon exemple mais j'ai un soucis cela ne supprime rien

Code:

---

1 2 3 4 5 6 7 8

iFin = Range("C:C").End(xlDown).Row   For i = 1 To iFin If Range("C" & i).Value = ID Then Range("C" & i).Delete i = i - 1 End If Next i

---

"A:A" Ca fait toute la colonne A?
Si on est sur un xlDown pourquoi faire i = i -1?

Merci à vous

Tu peux mettre la fonction complète ou c'est trop long ?

Bonjour,

Remplacer Columns.Count par Rows.Count ^^

Ton code initial est bon à condition de remplacer columns.count par rows.count

J'ai enlevé le Activate

Code:

---

1 2 3 4 5 6 7 8

Dim N As Long   Application.ScreenUpdating = False With Sheets("4-Dependencies") For N = .Range("C" & .Rows.Count).End(xlUp).Row To 1 Step -1 If .Range("C" & N).Value = ID Then .Rows(N).Delete Next N End With

---

Sinon, sans passer par une boucle, tu peux utiliser un filtre automatique sur la colonne C (avec ID comme critère) et supprimer en uns seule fois les lignes visibles
Exemple avec filtre automatique (pour éviter les boucles):

Code:

---

1 2 3 4 5 6 7 8 9 10

Dim N As Long   Application.ScreenUpdating = False With Sheets("4-Dependencies") .AutoFilterMode = False N = .Range("C" & .Rows.Count).End(xlUp).Row .Range("C1:C" & N).AutoFilter field:=1, Criteria1:=ID If .Range("C1:C" & N).SpecialCells(xlCellTypeVisible).Count > 1 Then .Range("C2:C" & N).SpecialCells(xlCellTypeVisible).EntireRow.Delete .AutoFilterMode = False End With

---

EDIT
Bien vu LouiMz

Citation:

---

Envoyé par mercatog

Ton code initial est bon à condition de remplacer columns.count par rows.count

J'ai enlevé le Activate

Code:

---

1 2 3 4 5 6 7 8

Dim N As Long   Application.ScreenUpdating = False With Sheets("4-Dependencies") For N = .Range("C" & .Rows.Count).End(xlUp).Row To 1 Step -1 If .Range("C" & N).Value = ID Then .Rows(N).Delete Next N End With

---

---

Cela ne marche pas.

Citation:

---

Envoyé par mercatog

Sinon, sans passer par une boucle, tu peux utiliser un filtre automatique sur la colonne C (avec ID comme critère) et supprimer en uns seule fois les lignes visibles
Exemple avec filtre automatique (pour éviter les boucles):

Code:

---

1 2 3 4 5 6 7 8 9 10

Dim N As Long   Application.ScreenUpdating = False With Sheets("4-Dependencies") .AutoFilterMode = False N = .Range("C" & .Rows.Count).End(xlUp).Row .Range("C1:C" & N).AutoFilter field:=1, Criteria1:=ID If .Range("C1:C" & N).SpecialCells(xlCellTypeVisible).Count > 1 Then .Range("C2:C" & N).SpecialCells(xlCellTypeVisible).EntireRow.Delete .AutoFilterMode = False End With

---

---

Cette solution fonctionne je vais donc la retenir mais quelqu'un a-t-il une idée du pourquoi du comment l'autre solution ne fonctionne pas?

Pour le .Row j'avais vu et oublié de le modifier après.

merci à vous tous pour votre précieuse aide.

Citation:

---

quelqu'un a t'il une idée du pourquoi du comment l'autre solution ne fonctionne pas?

---

"Ne fonctionne pas" ne veut rien dire (message d'erreur? lequel? ne supprime rien? supprime au mauvais endroit?...)

Toujours le même message et ne supprime que partiellement.

Ta feuille est protégée?

Elle l'était mais ne l'est plus depuis que j'ai repris la charge du projet.