Supprimer lignes #VALEUR!

Bonjour,

J'aimerais supprimer les lignes dans lesquelles se trouvent des cellules
renvoyant une valeur d'erreur #VALEUR!

J'ai ceci qui ne fonctionne pas :

Sub zzz()
derL = [A65536].End(3).Row
[A:A].AutoFilter Field:=1, Criteria1:="#VALEUR!"
Application.DisplayAlerts = False
Range("A2:A40" & derL).SpecialCells(xlCellTypeVisible).Delete
Application.DisplayAlerts = True
[C1].AutoFilter
End Sub

Merci pour votre aide

D. SCHILS

J'ai ceci qui ne fonctionne pas :
Sub zzz()
derL = [A65536].End(3).Row
[A:A].AutoFilter Field:=1, Criteria1:="#VALEUR!"
Application.DisplayAlerts = False
Range("A2:A40" & derL).SpecialCells(xlCellTypeVisible).Delete
Application.DisplayAlerts = True
[C1].AutoFilter
End Sub

Bonjour Daniel
Ca devait le faire
Sub zzz()
For k = [A65536].End(xlUp).Row To 2 Step -1
If IsError(Cells(k, 1)) Then Rows(k).Delete
Next
End Sub

Bruno

Daniel Schils <daniel.schils@pointbleu.be(nospam)> a écrit dans le message :
49095807-7AF1-4065-B71F-E4C2DC50474F@microsoft.com...

Bonjour,

J'aimerais supprimer les lignes dans lesquelles se trouvent des cellules
renvoyant une valeur d'erreur #VALEUR!

J'ai ceci qui ne fonctionne pas :

Sub zzz()
derL = [A65536].End(3).Row
[A:A].AutoFilter Field:=1, Criteria1:="#VALEUR!"
Application.DisplayAlerts = False
Range("A2:A40" & derL).SpecialCells(xlCellTypeVisible).Delete
Application.DisplayAlerts = True
[C1].AutoFilter
End Sub

Merci pour votre aide

D. SCHILS

Si ça ne fonctionne pas c'est que tu as modifié (mal) en copiant le code !
Range("A2:A" & derL).et non Range("A2:A40" & derL).!

AV (auteur de qques Sub zzz ;-)

Incompris (je l'ai déjà dit). ;-)
Daniel M. (qui s'attend au moins à une onomatopée bien sentie)