Enregistrer la valeur de la cellule dans la variable

Question

J'essaie de stocker la valeur d'une cellule dans une variable à l'aide de vba. Mon code renvoie une erreur, que dois-je changer pour que la valeur de la cellule soit stockée dans ma variable?

Dim total As Long 
total = ActiveSheet.Cells(Rows.Count, "D").End(xlUp).End.Value 
Debug.Print (total) 

L'erreur que je reçois est

nombre incorrect d'arguments ou propriété non valide attribué

Answer 1

Dim total As Long 
Dim wk as worksheet 

Set wk = activesheet 

total = wk.Range("D" & wk.Cells(wk.Rows.Count, "D").End(xlUp).Row).value 
Debug.Print (total)