Erreur de code

[pierrof]

Bonjour

Voila j'ai réaliser ce code pour supprimer les ligne qui contienne dans les cellule de colonne A la valeur #N/A, mais ça ne marche pas, je ne comprend pas.

Merci de votre aide

Dim o As Long
'effacer ligne #N/A
For o = 1 To Range("B10000").End(xlUp).Row
If Cells(o, 1).Value = "#N/A" Then
Cells(o, 1).EntireRow.Delete
o = o - 1
End If
Next

 

[Pierrot93]

Re : Erreur de code

Bonjour Pierrof

essaye peut être ainsi, attention lorsque tu supprimes des lignes, il est préférable de commencer par la fin et remonter au cas ou plusieurs cellules répondent au test...

Dim o As Long
'effacer ligne #N/A
For o = Range("B10000").End(xlUp).Row To 1 Step -1
    If IsError(Cells(o, 2)) Then Rows(o).Delete
Next o

bon après midi
@+

 

[Hulk]

Re : Erreur de code

Hello,

Remplace Value par Text

Cdt, Hulk.

EDIT : Slt Pierrot !

 

[lioneldu47]

Re : Erreur de code

slt pierrof,

Vous pourriez pas envoyé un fichier exemple.Ca serait plus simple pour vous aider...

Merci😀

 

[pierrof]

Re : Erreur de code

Bonjour à tous
Merci de vos réponse encore une fois rapide et clair
A+