Suprimer ligne suivant valeur d'une cellule

[iStarOSX]

Bonsoir a tous.

Je cherche a supprimer les lignes d'une feuille si dans la cellule "Y" de la même ligne, la cellule est vide ou comporte "#N/A".

J'ai bien testé un code trouvé sur ce poste :
https://www.excel-downloads.com/threads/suprimmer-ligne-selon-contenu-de-la-cellule.85893/

en modifiant "C" par "Y" ce qui me donne :

Sub ligne()

For i = Range("Y" & Application.Rows.Count).End(xlUp).Row To 4 Step -1
    If Range("Y" & r) = "#N/A" Or _
    Range("Y" & r).Value = "" Then
            Rows(r).Delete
    End If
Next
End Sub

mais cela ne fonctionne pas, excel me renvoi un message :
Erreur d'execution '1004' :
La méthode 'Range' de l'objet'_Global' a échoué

Je ne vois pas ce qu'il ne lui va pas !!! (J'utilise XL2010 et 2003)

 

[RENAUDER]

Re : Suprimer ligne suivant valeur d'une cellule

Bonjour,
Considérant que je traite la colonne A
Essaies ce code

Sub ligne()
    LgnFin = Range("A65536").End(xlUp).Row
    For i = LgnFin To 1 Step -1
        If Range("A" & i) = "#N/A" Or Range("A" & i).Value = "" Then
            Rows(i).Delete
        End If
    Next
End Sub

 

[iStarOSX]

Re : Suprimer ligne suivant valeur d'une cellule

Bonsoir RENAUDER et merci du coup de main.

J'ai testé ton code, mais excel (2003 et 2010) me renvoi un autre message :
Erreur d’exécution '13' :
Incompatibilité de type

Cordialement

 

[RENAUDER]

Re : Suprimer ligne suivant valeur d'une cellule

Bonjour,

Sans exemple je ne sais que répondre.

 

[pierrejean]

Re : Suprimer ligne suivant valeur d'une cellule

Bonjour à tous

Pas sur que ce soit le meilleur code mais il fonctionne

Sub ligne()
For i = Range("A" & Application.Rows.Count).End(xlUp).Row To 4 Step -1
On Error Resume Next
x = Range("A" & i).Value
If IsError(x) Or x = "" Then Rows(i).Delete
On Error GoTo 0
Next
End Sub

 

[klin89]

Re : Suprimer ligne suivant valeur d'une cellule

Bonsoir le forum,

Dans la macro de RENAUDER, remplaces :

If Range("A" & i) = "#N/A" Or Range("A" & i).Value = "" Then

Par ceci :

If Range("A" & i).Text="#N/A" Or Range("A" & i).Value = "" Then

Klin89

 

[TempusFugit]

Re : Suprimer ligne suivant valeur d'une cellule

Bonjour

@iStarOSX
Dans ta macro, c'est i qu'on devrait lire à la place de r

Sub ligne()
For i = Range("Y" & Application.Rows.Count).End(xlUp).Row To 4 Step -1
    If Range("Y" & r) = "#N/A" Or _
    Range("Y" & r).Value = "" Then
            Rows(r).Delete
    End If
Next
End Sub

Ce qui devrait donner

Sub ligne()
For i = Range("Y" & Application.Rows.Count).End(xlUp).Row To 4 Step -1
    If Range("Y" & i) = "#N/A" Or _
    Range("Y" & i).Value = "" Then
            Rows(i).Delete
    End If
Next
End Sub

 

[pierrejean]

Re : Suprimer ligne suivant valeur d'une cellule

Re

Si le "#N/A" signale une erreur (issue d'un RECHERCHEV par exemple ) il y a bug sur Range("Y" & i)

Il faut donc:

For i = Range("A" & Application.Rows.Count).End(xlUp).Row To 4 Step -1
    If Range("A" & i).Text = "#N/A" Or _
    Range("A" & i).Text = "" Then
            Rows(i).Delete
    End If
Next