Discussion :

[DiesIrae]

Bonjour,

Pour supprimer certaines lignes dans un grand tableau, j'ai pondu cette macro :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub SupprimerI()

Windows("tab_factures_avec_petitavoir.xlsx").Activate
Sheets("Feuil2").Activate
Application.ScreenUpdating = False
Dim k As Integer
For k = 1 To 5000
    If Range("F:" & k).Value = "I" And Range("E:" & k).Value <> Range("E:" & k + 1).Value Then
    Rows("k:k").Delete Shift:=xlUp
    End If
Next k

End Sub

La macro est censée supprimer les lignes qui contiennent "I" dans la colonne F seulement si la ligne du dessous ne concerne pas la même commande (la colonne E contient les numéros de commandes et n'est constituée que de nombres)

Seulement, à l'exécution de la macro, j'ai une erreur de la méthoede Range dans l'objet _Global, avec la ligne en gras surlignée.

J'ai tenté en supprimant des "Value", en mettant "Text" et "Content" à la place, etc, toujours le même bug.

Quelqu'un a une idée ?

Merci d'avance.

[Pierre Fauconnier]

Bonjour

Le signe : est de trop, là et plus loin sur la même ligne

Code :

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

Range("F" & k).Value

Je vois une autre erreur. Lorsque tu supprimes des lignes par itération, tu dois commencer par le bas du tableau et remonter avec un Step - 1, sinon, tu louperas systématiquement la ligne qui suit une ligne supprimée, et lorsque tu supprimes des colonnes par itération, tu dois commencer par la droite de ton tableau.

[Invité]

Bonjour,

D'autre part je pense que cette ligne :

Code :

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

Rows("k:k").Delete Shift:=xlUp

devrait être remplacée par :

Code :

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

Rows(k & ":" & k).Delete Shift:=xlUp

k est une variable.

[DiesIrae]

Effectivement, je suis tête en l'air. Et merci pour le conseil sur le Step -1

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub SupprimerI()
 
Windows("tab_factures_avec_petitavoir.xlsx").Activate
Sheets("Feuil2").Activate
Application.ScreenUpdating = False
Dim k As Integer
For k = 2660 To 1 Step -1
    If Range("F" & k).Value = "I" And Range("E" & k).Value <> Range("E" & k + 1).Value Then
    Rows(k & ":" & k).Delete Shift:=xlUp
    End If
Next k
 
End Sub

Perfect.
Thank you guys

[Invité]

Peut-être encore une précision, à la fin de la procédure il vaut mieux ajouter :

Code :

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

Application.ScreenUpdating = True

à moins que vous ne l'ayez indiqué dans une procédure suivante.