[VBA] copié vers une autre feuille avec condition

[Anamiya]

Bonjour à tous,

Me voilà bloqué sur le code suivant avec une erreur 13 lors de l'exécution (1ère ligne d' "If")

Le but de la macro est de copié les lignes dans une autres feuilles seulement si la colonne B de la ligne est en "#N/B" soit une erreur de formule recherchev (oui, excel en néerlandais, ça aide pas).

Sub Copy_condition()

Dim s As Integer
    s = Sheets("Spiral").Range("B2").End(xlDown).Row

Sheets("New").Select
Range("A2", Range("P" & s)).Select
Selection.ClearContents

Sheets("Spiral").Select

Dim a As Range
For Each a In Range("D2", [D65555].End(xlUp))
    If a Like "#N/B" Then
        Rows(a).Copy
        Sheets("New").Rows(a).Paste
    End If
Next

Sheets("New").Select
    On Error Resume Next
    [A:A].SpecialCells(xlCellTypeBlanks).EntireRow.Delete

End Sub

 

[Dranreb]

Re : [VBA] copié vers une autre feuille avec condition

Bonjour.
Essayez comme ça :

Sub Copy_condition()
Dim Cel As Range, L As Long
Blad2.[2:65000].ClearContents
L = 1
For Each Cel In Blad1.Range(Blad1.[D2], Blad1.[D65000].End(xlUp))
    If IsError(Cel.Value) Then L = L + 1: Cel.EntireRow.Copy Blad2.Rows(L)
    Next Cel
End Sub

 

[Anamiya]

Re : [VBA] copié vers une autre feuille avec condition

Bonjour Dranreb,

Ça marche. Merci beaucoup pour l'aide.