[VBA] Erreur 1004 - Delete Classe range
mirmoleboss
Messages postés
303
Date d'inscription
Statut
Membre
Dernière intervention
-
Copyright -
Copyright -
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é
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.
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é
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.
A voir également:
- La méthode delete de la classe range a échoué
- Hiberfil.sys delete - Guide
- Juste delete me - Guide
- Ajoutez à la liste de contacts ana le goff, inscrite le 27 novembre 2015, dans la catégorie i. puis triez les contacts en les classant : par ordre alphabétique de leur nom de famille (critère principal), puis par date du plus récent au plus ancien (critère secondaire). quel mot apparaît à la verticale dans la colonne "catégorie" entre les lignes 200 et 209 (en-tête compris) ? ✓ - Forum Word
- Input signal out of range - Forum Ecran
- Dans le code de la page, modifiez la couleur de fond de la classe .pix. un code de 4 chiffres doit apparaître dans la grille. lequel ? - Forum Réseaux sociaux
2 réponses
La solution étant la suivante:
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
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
