Discussion :

[Frogg12]

Bonjour,

Je cherche à faire une macro qui supprime les lignes qui ont #N/A dans la colonne G, j'ai donc fait le programme ci-dessous:

Code vba :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Sub supprimer_les_NA()
Sheets("Feuil1").Select
Dim compteur As Integer
    'Balayage du tableau
    For compteur = 2 To Range("G2").End(xlDown).Row
    'Condition
     If Range("G" & compteur) = "#N/A" Then
        'Action sur la cellule cible
         Rows(compteur).Delete
    End If
Next compteur
End Sub

Malheureusement, je n'arrive pas à supprimer la ligne en question. Le compteur augment quand il n'y pas d'action à faire mais lorsque l'on croise un #N/A dans mon tableau Excel, j'ai une erreur 13 sur la ligne en gras et une erreur 2042 au borne de cette fonction "Range("G" & compteur)".
Pour info le #N/A n'est pas une fonction mais juste du texte dans une cellule qui est récupérer grâce à une autre macro.

Est-ce que vous pouvez me dire où est mon erreur ? et comment on peut régler ça ?

Cordialement,
Frogg12

[Menhir]

Code :

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

1
2
3
4
5
6
7
Sub supprimer_les_NA()
    Dim compteur As Long
    Sheets("Feuil1").Select
    For compteur = Cells(Rows.Count, "G").End(xlDown).Row To 2 Step -1
        If Range("G" & compteur).Text = "#N/A" Then Rows(compteur).Delete
    Next compteur
End Sub

[Kimy_Ire]

Bonjour Frogg12,

La WorksheetFunction.IsNA te permet de faire le test si une valeur est "#N/A".

Petit exemple :

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
Option Explicit
 
Sub RechercheErr()
Dim oRng As Range
Dim i As Integer
 
Set oRng = Worksheets("Feuil1").Range("B1")
 
For i = 0 To Worksheets("Feuil1").Cells(Rows.Count, 2).End(xlUp).Row - 1
    If WorksheetFunction.IsNA(oRng.Offset(i, 0)) Then
        MsgBox "Est NA"
    End If
Next i
 
End Sub

Je te laisse adapter et revenir vers le forum si nécessaire !

Kimy

[MarcelG]

Bonjour à vous, Bonjour au Forum,

Code :

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

xlErrors

pouvant être considérée comme 2ème argument de la méthode

Code :

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

SpecialCells

alors en 1 ligne sans balayage

Code :

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

 Worksheets("Feuil2").Range("B3:B7").SpecialCells(xlCellTypeFormulas, xlErrors).EntireRow.Delete

(à adapter)

[Frogg12]

Merci, cela marche nickel chrome