Discussion :

[bpo2018]

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]

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]

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]

On fait une seconde tentative :

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

[bpo2018]

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]

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]

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

[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?

[bpo2018]

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]

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

[Pierre Fauconnier]

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]

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]

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