bonjour

je sus novice en vba, je suis entrain de faire une macro pour automatiser des calculs mais j'ai l'erreur d'incompatibilité

le code est le suivant:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Subsolartime1()
Set myrange= Range("Feuil1!B:J")
Dim i, j As Integer
Dim v As Variant
i = 5
 
 v = "= c[-1]"
 ActiveCell.FormulaR1C1 = v +Application.WorksheetFunction.VLookup(i, myrange, 5, 0) / 60
Selection.AutoFillDestination:=ActiveCell.Range("A1:A25")
 ActiveCell.Range("A1:A25").Select
 ActiveWindow.SmallScroll Down:=21
 activeCell.Offset(29,0).Range("A1").Select
 ActiveWindow.SmallScroll Down:=-27
End Sub