si l'erreur et vlookup dans les macros vba

De mon devoir d'écrire une formule qui comprend si, iferror et Recherchev

J'ai besoin d'appliquer la formule jusqu'à la fin de la dernière ligne qui contient des valeurs .

si recherchev jette NA , alors la cellule doit être vide , autrement la valeur doit être remplacé par la Valeur numérique "1"

mais lorsqu'on l'a essayé la formule mais c'est donnant erreur

Sub testt()

Dim l As Long

l = Sheets(1).Range("A1:A" & Sheets(1).Cells(Sheets(1).Rows.Count, "A").End(xlUp).Row).Count
    With Sheets("Sheet1")
        .Range("d1").Formula = "=IF(iferror(vlookup(c2,$D:$D,1,false),""),"",1)"
        .Range("d1").AutoFill Destination:=Range("d1:d" & l), Type:=xlFillDefault

    End With

End Sub
  • Il y a quelques choses qui ne font pas de sens à partir de votre exemple. Pour commencer, votre calcul pour la dernière ligne utilise les Feuilles(3) et des Feuilles(1) de la même formule, puis Sheets("Feuil3") est utilisé avec le résultat. Aussi, votre déclaration " if " dans la formule n'a pas une valeur conditionnelle. Vous devriez essayer de votre formule dans la feuille de calcul en premier.
  • j'ai changé la formule . Espérons maintenant u pour mieux la comprendre
InformationsquelleAutor PASUMPON V N | 2012-12-29