Discussion :

[mirmoleboss]

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 :

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

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.

[oOVaveOo]

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 :

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

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

[jfontaine]

Bonjour,

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

Code :

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

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

[mirmoleboss]

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.

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

Code :

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

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

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

Bonjour,

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

Code :

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

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 :

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

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

[oOVaveOo]

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

[LouiMz]

Bonjour,

Remplacer Columns.Count par Rows.Count ^^

[mercatog]

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

J'ai enlevé le Activate

Code :

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

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 :

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

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

[mirmoleboss]

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

J'ai enlevé le Activate

Code :

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

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.

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 :

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

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.

[mercatog]

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?...)

[mirmoleboss]

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

[mercatog]

Ta feuille est protégée?

[mirmoleboss]

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