Discussion :

[ons1402]

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

[SfJ5Rpw8]

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


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

[nchal]

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 :

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

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

[fring]

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 :

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

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

[ons1402]

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