Discussion :

[Maxnihilist]

Bonjour à tous,
Quelqu'un pourrait-il m'expliquer pourquoi excel m'affiche "l'erreur 1004 : erreur définie par l'application ou par l'objet " ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Sub test()
 
ThisWorkbook.Worksheets("feuil1").Activate
Range("D4").Select
Set Plage_ZC = Range(Selection, Selection.End(x1down)).Offset(0, 1)
Plage_ZC.Formula = "=A3"
 
 
End Sub

D'avance merci

[mercatog]

XLDOWN et non X1DOWN

Sinon, sans les Select/Activate/Selection (déconseillés)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Sub test()
 
With ThisWorkbook.Worksheets("Feuil1")
    .Cells(.Rows.Count, "D").End(xlUp)(1, 2).Formula = "=A3"
End With
End Sub

[Maxnihilist]

Très bien merci !