VBA Supprimer lignes sous condition

salut essaye cela :

Dim i As Integer

    Dim f As Worksheet

    Set f = Worksheets(1)

 
    For i = f.Cells(f.Rows.Count, 1) .end(xlup)To 1 Step -1

        If Cells(i, 19).Text <> "N/A" Then

            f.Rows(i).Delete

    End If

    Next

Salut,

Merci d'indenter correctement ton code. Pour 10 lignes, on pourrait s'en foutre. Spa une raison. Fais-le par principe.

Bien vu le Step -1  

Tu remontes jusqu'à 1. Alors pourquoi ce S2 ? Imagine que la cellule S1 soit vide. Ton nombre de lignes ne correspondra pas à l'adresse de la dernière ligne de ta zone. Le code à adopter est un peu plus lourd :

Dim zone      As Range
Dim der_ligne As Long
Set zone = Range("S2" ).CurrentRegion
der_ligne = zone.Rows(zone.Rows.Count).Row

Ton code :

Cells(i, 19).EntireRow

Le mien :

Rows(i)

 

A la ligne 6, tu compares une cellule et un texte. Ce n'est pas la cellule qu'il faut prendre en considération, mais sa valeur. Donc il faut écrire :

Cells(i, 19).Value

.

"#N/A" signifie Not applicable, et ce n'est pas du texte. Mais une erreur xlErrNA, qu'il faut comparer à celle de la cellule.

ah ok merci  

Merci pour vos réponses, j'ai modifié le code qui ne marche toujours pas, cela bloque toujours à la ligne 7  

Dim zone      As Range

    Dim der_ligne As Long

    Set zone = Range("S2").CurrentRegion

    der_ligne = zone.Rows(zone.Rows.Count).Row

 
    For i = der_ligne To 1 Step -1

    If Not Cells(i, 19).Value = "xlErrNA" Then

    Cells(i, 19).EntireRow.Delete

 
    End If

    Next i

Sachant que mon #N/A n'est pas une formule mais bien une valeur. J'ai en effet copié dans ma colonne S les résultats donnés par une formule d'une autre colonne.

xlErrNA est une constante...

salut,

eh salvation, on viens de te dire plus haut que n/a n'est pas du texte... pk tu met entre ".." ?
si c'est une valeur que prend la cellule et bien enleve les guillemets . !!

Mon nouveau code bloque toujours à la ligne 7

Dim zone      As Range

    Dim der_ligne As Long

    Set zone = Range("S2").CurrentRegion

    der_ligne = zone.Rows(zone.Rows.Count).Row

 
    For i = der_ligne To 1 Step -1

    If Not Cells(i, 19).Value = xlErrNA Then

    Rows(i).Delete

 
    End If

    Next i

Je suis un vrai débutant, je ne comprends pas en quoi le fait que cele soit une constante diffère...

J'ai réussi ! Pour info le code :

Dim zone      As Range

    Dim der_ligne As Long

    Set zone = Range("S2").CurrentRegion

    der_ligne = zone.Rows(zone.Rows.Count).Row

 
    For i = der_ligne To 1 Step -1

    If Not Cells(i, 19).Text = "#N/A" Then

    Rows(i).Delete

 
    End If

    Next i

INDENTATION DU CODE. DERNIERE SOMMATION.


-----------------------------------

Oups, à faire tout de tête, j'ai oublié un tout petit détail :honte:
Merci de relire mon message précédent.

If faut écrire

If Cells(i, 19).Value <> CVErr(xlErrNA) Then

-----------------------------------

Pour connaître la différence entre xlErrNA et "xlErrDiv0", merci d'étudier le code suivant :

MsgBox xlErrNA
MsgBox "xlErrNa"