Quand j'execute ma macro j'ai erreur 1004 je comprends pas pourquoi

**bpo2018** · 22/06/2018, 10h49

j'ai écrit une macro en vba qui consiste à supprimer une ligne lorsque les données sont sup à 7 dans la colonne BF c'est à dire la 58 mais je reçois un message d'erreur "1004" sur la ligne (Rows(I).Delete) je comprends pas pourquoi j'ai besoin de votre aide merci! le code est le suivant merci

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
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
Sub es()
 
 Dim i As Long
 
' COPIE DES LIGNES DESIREES DANS LES FEUILLES DE CALCUL DEDIEES
Dim BoEcran As Boolean, BoBarre As Boolean, BoEvent As Boolean, BoSaut As Boolean
Dim iCalcul As Integer
 
 
' on conserve d'abord les configurations existantes
 
BoEcran = Application.ScreenUpdating
BoBarre = Application.DisplayStatusBar
iCalcul = Application.EnableEvents
BoSaut = ActiveSheet.DisplayPageBreaks
 
' on force les configurations
 
Application.ScreenUpdating = False
Application.DisplayStatusBar = False
Application.Calculation = xlManual
Application.EnableEvents = False
ActiveSheet.DisplayPageBreaks = False
 
 
For i = Range("i500000").End(xlUp).Row To 1 Step -1
 If Cells(i, 58) > "7" Then
 Rows(i).Delete
 End If
 
Next i
 
'les configurations sont restaurées
 
Application.ScreenUpdating = BoEcran
Application.DisplayStatusBar = BoBarre
Application.Calculation = iCalcul
Application.EnableEvents = BoEvent
ActiveSheet.DisplayPageBreaks = BoSaut
 
 
End Sub

**Menhir** · 22/06/2018, 11h37

Déjà, commence par enlever les guillemets qui entourent ton 7 si tu veux que l'inégalité fonctionne.

Ensuite, regarde la valeur de i (fenêtre de variables locales) quand l'exécution bugue.

**bpo2018** · 22/06/2018, 11h50

Menhir oui j'ai retire les guillemets et le message d'erreur est "erreur d'execution 1004 la methode delete de la classe range a échoué" et j'ai ce problem uniquement avec les valeurs de la colonne BF (58) je comprends pas

**Menhir** · 22/06/2018, 12h07

On fait une seconde tentative :

Envoyé par Menhir

regarde la valeur de i (fenêtre de variables locales) quand l'exécution bugue.

**bpo2018** · 22/06/2018, 13h21

Envoyé par Menhir

On fait une seconde tentative :

la variable i a pour valuer 1 de type Long; le problème est que la macro supprime effectivement les lignes mais j'ai toujours le message d'erreur

**Finndelle74** · 22/06/2018, 13h35

Pourquoi partir de la cellule i500000 ?
Il vaudrait mieux utiliser Sheets("MaFeuille").Cells(1, 1).CurrentRegion.Rows.Count

Peut-être que dans la colonne "I", il y a des cellules vides à la fin, et qu'on ne démarre pas du bas du tableau ?

J'ai mis les valeurs supérieures à 7 en colonne 3, et testé le code suivant, ça marche nickel...

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub test()
 
For i = Cells(1, 1).CurrentRegion.Rows.Count To 1 Step -1
 If Cells(i, 3) > 7 Then
 Rows(i).Delete
 End If
 
Next i
 
End Sub

**bpo2018** · 22/06/2018, 13h44

Envoyé par Finndelle74

Pourquoi partir de la cellule i500000 ?
Il vaudrait mieux utiliser Sheets("MaFeuille").Cells(1, 1).CurrentRegion.Rows.Count

Peut-être que dans la colonne "I", il y a des cellules vides à la fin, et qu'on ne démarre pas du bas du tableau ?

J'ai mis les valeurs supérieures à 7 en colonne 3, et testé le code suivant, ça marche nickel...

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub test()
 
For i = Cells(1, 1).CurrentRegion.Rows.Count To 1 Step -1
 If Cells(i, 3) > 7 Then
 Rows(i).Delete
 End If
 
Next i
 
End Sub

Ouais comme je t'ai dit ça fonctionne bien j'ai aussi essayé avec ton code ça supprime normalement mais à la fin j'ai toujours ce message d'erreur le même

**Finndelle74** · 22/06/2018, 14h12

Essaie de jeter un oeil à cette discussion :
https://www.developpez.net/forums/d1...-classe-range/

Tu exécutes la macro depuis la feuille sur laquelle tes lignes doivent être supprimées ?

Sinon envoie ton fichier pour voir.

**bpo2018** · 22/06/2018, 14h41

Envoyé par Finndelle74

Essaie de jeter un oeil à cette discussion :
https://www.developpez.net/forums/d1...-classe-range/

Tu exécutes la macro depuis la feuille sur laquelle tes lignes doivent être supprimées ?

Sinon envoie ton fichier pour voir.

oui j'insére la macro dans un module et j'execute sur la feuille où je supprime et le fichier est trop lourd j'arrive pas à le joindre

**Pierre Fauconnier** · 22/06/2018, 14h45

Salut.

Perso, je n'aime pas le CurrentRegion. Je préfère partir du bas de la feuille.

Code :

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

1
2
3
4
5
6
7
Sub DelRows()
  Dim i As Long
 
  For i = Range("i1048576").End(xlUp).Row To 1 Step -1
    If Cells(i, 58) = 7 Then Rows(i).Delete
  Next i
End Sub

Tu dis que lorsque tu as l'erreur, i vaut 1. Quelle est la valeur de BF1 (celle qui est comparée à 7 sur la ligne qui pose problème?

Autre idée: Ta feuille ne serait pas protégée sur la ligne 1, par hasard?

**MarcelG** · 22/06/2018, 14h45

Bonjour,

Au lieu de partir de la dernière cellule, essaie de commencer tes occurrences à la ligne qui pose problème.
D'où l'intérêt, soit dit en passant, de la fenêtre des variables locales mentionnée par Menhir.

Attention, Findelle. La propriété CurrentRegion ne gère pas les lignes vides.
Pour ma part, je préfère partir de la dernière ligne de la feuille active.

Code :

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

1
2
3
4
5
Dim derlign As Integer, i As Integer ' à adapter
 
With Worksheets(1)
      derlign = .Cells(.Rows.Count, 1).End(xlUp).Row
      For i = derlign To 1 Step -1

**Finndelle74** · 22/06/2018, 14h53

Envoyé par MarcelG

Attention, Findelle. La propriété CurrentRegion ne gère pas les lignes vides.
Pour ma part, je préfère partir de la dernière ligne de la feuille active.

Oui j'en suis bien consciente. En général, ma première colonne contient ma clé, donc elle est remplie jusqu'en bas de mon tableau.
Sinon j'utilise en effet .Cells(.Rows.Count, 1).End(xlUp).Row

C'était juste le "i500000" qui me chiffonnait ! ;)

**Pierre Fauconnier** · 22/06/2018, 14h57

Histoire que l'on soit certain de ton code, peux-tu remettre le code du bloc For... Next actuel?

**bpo2018** · 22/06/2018, 15h07

Envoyé par Pierre Fauconnier

Salut.

Perso, je n'aime pas le CurrentRegion. Je préfère partir du bas de la feuille.

Code :

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

1
2
3
4
5
6
7
Sub DelRows()
  Dim i As Long
 
  For i = Range("i1048576").End(xlUp).Row To 1 Step -1
    If Cells(i, 58) = 7 Then Rows(i).Delete
  Next i
End Sub

Tu dis que lorsque tu as l'erreur, i vaut 1. Quelle est la valeur de BF1 (celle qui est comparée à 7 sur la ligne qui pose problème?

Autre idée: Ta feuille ne serait pas protégée sur la ligne 1, par hasard?

la igne 1 BF1 c'est le nom de la colonne ; elle est nommé couverture

**Pierre Fauconnier** · 22/06/2018, 15h10

Ok.

Pourquoi aller jusque la ligne 1 puisqu'elle contient l'intitulé de ta colonne? Ta boucle For doit aller jusqu'à 2. ( For i = ... to 2 step -1)

Tu utilises, je suppose, un tableau structuré et tu ne peux pas supprimer la ligne d'entête dudit tableau.

J'aurais dû y penser, en fait ^^

**MarcelG** · 22/06/2018, 15h14

Et c'est d'ailleurs ce qui crée sans doute l'erreur : comparaison d'un libellé avec un nombre.

P.S. Ne vous fiez pas à la photo, il a l'air cruel et féroce, mais Pierre est gentil (salut à toi, cela faisait un bail

)

**bpo2018** · 25/06/2018, 08h51

Envoyé par Pierre Fauconnier

Ok.

Pourquoi aller jusque la ligne puisqu'elle contient l'intitulé de ta colonne? Ta boucle For doit aller jusqu'à 2. ( For i = ... to 2 step -1)

Tu utilises, je suppose, un tableau structuré et tu ne peux pas supprimer la ligne d'entête dudit tableau.

J'aurais dû y penser, en fait ^^

Merci c'est tt bon c'était ça le problème

Quand j'execute ma macro j'ai erreur 1004 je comprends pas pourquoi [XL-2013]

Macros et VBA Excel

Discussions similaires

Partager

Partager