Bonjour à tous ,

j'ai créé une fonction qui permet d'insérer une formule dans une cellule dont la position est déterminée par une variable et dont la plage de calcul dépend aussi de variables.
Mais j'ai un soucis: "Erreur de compilation:erreur de syntaxe"

Voici la fonction :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
Sub f(q As Integer, i As Integer, k As Integer)
a=2
While Sheets("feuil3").Cells(q, a).Value <> ""
Sheets("feuil3").Cells(q + 1, a).FormulaR1C1 = "=i-SUM(R" & q + 2 & "C" & a &_
":R" & q + 3 + k & "C" & a & ")"
a=a+1
wend
Ensuite j'appelle cette fonction dans le corps de mon programme comme suit:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Sub calcul_effectif()
 
Dim i As Integer 
Dim k As Integer 
Dim x As Integer 
Dim y As Integer 
Dim z As Integer 
 
i = 9
k = 14
x = 7
y = 37
z = 66
 
f (x,i,k)
f (y,i,k)
f (z,i,k)
 
end sub
Les variables i,k,x,y,z seront fixes pour l'exemple mais a terme elles seront renseignées par une user forme dont les valeurs seront modifiables.

En fait ma fonction ne renvoie pas de valeur a proprement parlé donc je me demande si je n'ai pas tout faux?!

Si vous avez une idée c'est avec plaisir
Merci par avance.

M.A.S