boucle sous vba avec condition

Bonjour les ami(es),
je reviens vers vous pour pb de boucle sous vba.
je voulais supprimer les lignes dont au moins une des cellules affiche "NA". Je vous joint un fichier pour que l'idée soit plus claire.

Merci d'avance

Montre la partie ton code entre balises de codes : [code] [/code]


--------------------------------------------------------
Fichier joint dans vos discussions

salut,

je me suis permis de te faire un ptit truc. Il teste les valeurs de chaque cellule et si y'en a une qui est égale à "NA", il supprime toute la ligne

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Sub ons1402()   For i = Range("A1").End(xlDown).Row To 1 Step -1   For j = Range("A1").End(xlToRight).Column To 1 Step -1   If Cells(i, j).Value = "NA" Then Cells(i, j).EntireRow.Delete   Next j   Next i   End Sub

---

Bonjour,

Ne s'agirait-il pas de l'erreur #N/A ?
Si c'est le cas, on peut retrouver les cellules contenant cette valeur comme ceci :

Code:

---

1 2 3 4 5 6 7 8 9 10

Sub test() Dim Cel As Range   For Each Cel In Sheets(1).UsedRange If Application.WorksheetFunction.IsNA(Cel) Then Cel.EntireRow.Delete End If Next   End Sub

---

Merci Nchal:), ton code répond bien à mes attentes:). Et merci aussi pour tous ceux qui ont fait l'effort pour m'aider.

A bientôt