Discussion :

[aresassociated]

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

[Menhir]

j'ai l'erreur d'incompatibilité

Sur quelle ligne ?

La variable v devrait être de type String.

Avant la ligne de ton ActiveCell.FormulaR1C1 met :

Code :

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

Debug.Print v +Application.WorksheetFunction.VLookup(i, myrange, 5, 0) / 60

Et regarde dans la fenêtre d'exécution si ce qui s'affiche ressemble à une formule Excel.