Discussion :

[harisman87]

Bonjour,

J'ai un problème, je n'arrive pas à supprimer rapidement mes lignes dans excel et je ne peux pas utiliser le filtrage car mon tableau se finira plus tard.
En fin de compte je cherche à supprimer des lignes qui ont seulement le mot #N/A sur certains champs, le faire à chaque fois est embêtant vu que j'ai plus de 2000 lignes.
Est-ce qu'il y a une Macro qui peut me permettre de tous les effacer en même temps et sans perdre trop de temps.

Merci d'avance

[mayekeul]

bonjour,

une méthode dans le style devrait fonctionner

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub deleteROW()
Dim c As Range
Dim R As Long, I As Long
 
Set c = Range("a1")         'la premiere cellule de la colonne à tester
R = c.End(xlDown).Row   'la dernière ligne
 
For I = R To 1 Step -1
    c.Offset(I, 0).Select
    If Application.WorksheetFunction.IsNA(c.Offset(I, 0)) Then c.Offset(I, 0).EntireRow.Delete
Next I
 
End Sub

[harisman87]

Je ne connais pas très bien VBA donc je n'ai pas très bien compris le code, peut-tu me l'expliquer pour que je puisse l'appliquer correctement.

Merci

[mayekeul]

voilà, j'ai un peu changer le code et mis les annotations pour que tu puisse mieux comprendre

n'hésites pas au besoin!

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
Sub deleteROW()
Dim c As Range
Dim R As Long, I As Long
 
Set c = Range("a1")         'la premiere cellule de la colonne à tester
R = c.End(xlDown).Row   'la dernière ligne de la colonne à tester
 
'on démarre de la dernière cellule à cause du décalage lorsque l'on va supprimer la ligne
'on lui donne aussi un incrément de -1
For I = R To 1 Step -1  
    'ici on lui demande si le résultat de la cellule est "#NA" 
    'je fait appel à la function excel isna pour cela
    'comme argument, je lui donne la première cellule de la colonne à tester 
    'avec un décalage correspondant à la ligne courante dans le test (valeur de I) 
    If Application.WorksheetFunction.IsNA(c.Offset(I, 0)) Then 
            'si c'est bien le cas on supprime la ligne
            c.Offset(I, 0).EntireRow.Delete 
    End If
   'ici, on boucle jusqu'a arriver à la première cellule
Next I
 
End Sub

[harisman87]

merci pour ton aide