Macro pour supprimer les lignes avec #N/A

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:

---

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

Code:

---

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

---

Bonjour Frogg12,

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

Petit exemple :

Code:

---

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 ! :ccool:

Kimy

Bonjour à vous, Bonjour au Forum,

Code:

---

xlErrors

---

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

Code:

---

SpecialCells

---

alors en 1 ligne sans balayage

Code:

---

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

---

(à adapter)

Merci, cela marche nickel chrome