fonction a plusieurs arguments.

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":bug:

Voici la fonction ::roll:

Code:

---

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:

---

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 :mouarf:
Merci par avance.

M.A.S

j'ai testé de mon côté, et ça marche avec les changements suivants:

Code:

---

1 2 3 4 5 6 7 8 9

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   End Sub

---

(j'ai sorti la variable i de la chaine de caractères qui constitue la formule)

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

Private Sub CommandButton1_Click() 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   Module1.f x, i, k Module1.f y, i, k Module1.f z, i, k   End Sub

---

Bon, pour le coup j'ai mis dans un Module1 la Sub de départ, mais ça change rien si elle n'y est pas, faudra juste enlever "Module1."
Par contre, j'ai supprimé les parenthèses pour les arguments

:king: it works !

Merci c'est génial ca marche à 90%
J'ai des questions:
1- J'ai tout mis dans ma "feuil3", quel serait la différence si je mettais la fonction dans le "module1" ?
2- Une question toute bête pourquoi enlevé les "()" lors de l'appel de la fonction?
3- En quoi sortir la variable "i" fait la différence?
4- Excel VBA est très bizarre j'ai écrit sans faire exprès :

Code:

---

Sheets("feuil3").Cells(q + 1, a).FormulaR1C1 = " = " & i & "-SUM(....

---

en mettant des espaces avant et après le 2ème symbole "=" et il m'affiche le résultat dans ma cellule avec un "=" devant le résultat.... bizarre non ? (en enlevant ces espaces ça fonctionne bien...)
5- En fait le corps de mon appel plusieurs fois la fonction :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

Private Sub CommandButton1_Click() 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

---

et là l'exécution s'arrête au premier appel de fonction il ne fait pas

Code:

---

1 2	f y, i, k f z, i, k

---

Y a t il quelque chose à rajouter?

Ouf voilà pour les question :mouarf:

Merci encore pour vos réponses!

M.A.S

Citation:

---

1- J'ai tout mis dans ma "feuil3", quel serait la différence si je mettais la fonction dans le "module1" ?

---

C'est ce qui est fait par commodore, d'ou la notation

Code:

---

1 2 3 4

Module1.f x, i, k Module1.f y, i, k Module1.f z, i, k

---

Citation:

---

3- En quoi sortir la variable "i" fait la différence?

---

Si tu le laisses dans le String, il est pris comme texte ("i") tandis que si tu fais string + i + string tu as sa valeur.

Citation:

---

4- Excel VBA est très bizarre j'ai écrit sans faire exprès :
Code :
Sheets("feuil3").Cells(q + 1, a).FormulaR1C1 = " = " & i & "-SUM(....
en mettant des espaces avant et après le 2ème symbole "=" et il m'affiche le résultat dans ma cellule avec un "=" devant le résultat.... bizarre non ? (en enlevant ces espaces ça fonctionne bien...)

---

C'est logique car une formule ne commence pas par une espace mais plutot par = ou +. Si cela commence par un espace, il traite en string.

Citation:

---

et là l'exécution s'arrête au premier appel de fonction il ne fait pas
Code :
f y, i, k
f z, i, k

---

Qu'est ce qui te fait dire cela ? Il plante ou tu penses que... ?:?

Citation:

---

Citation:
1- J'ai tout mis dans ma "feuil3", quelle serait la différence si je mettais la fonction dans le "module1" ?
C'est ce qui est fait par commodore, d'ou la notation

---

J'ai bien vu que c'était ce qu'avait fait commodore... seulement je me demandais si cela avait un avantage de la faire dans module plutôt que dans la feuille ? :(

Citation:

---

2- Une question toute bête pourquoi enlever les "()" lors de l'appel de la fonction?

---

Dans quel cas mettons les "'()" pour un appel de fonction dans quel autre ne les mettons pas ?
La question tient toujours ;)

Code:

---

1 2 3 4

Citation: 3- En quoi sortir la variable "i" fait la différence? Si tu le laisses dans le String, il est pris comme texte ("i") tandis que si tu fais string + i + string tu as sa valeur.

---

Oki merci :king:

Code:

---

1 2 3 4 5 6 7

Citation: 4- Excel VBA est très bizarre j'ai écrit sans faire exprès : Code : Sheets("feuil3").Cells(q + 1, a).FormulaR1C1 = " = " & i & "-SUM(.... en mettant des espaces avant et après le 2ème symbole "=" et il m'affiche le résultat dans ma cellule avec un "=" devant le résultat.... bizarre non ? (en enlevant ces espaces ça fonctionne bien...) C'est logique car une formule ne commence pas par une espace mais plutot par = ou +. Si cela commence par un espace, il traite en string.

---

Ce n'est pas ce que je voulais dire, il fait l'opération et affiche le résultat mais il rajoute un "=" devant. ex: pour une somme de la cellule A1=1 et B1=2, il va noter dans C1 non pas" =SUM(A1;B1)" mais "=3" ... ma question était jute de la curiosité mais elle tient toujours :P

Pour ma question 5 j'allais éditer pour la supprimer, c'est moi qui avait craqué :oops: :aie:

En tout cas merci de vos efforts pour m'expliquer :mouarf:

M.A.S

1- J'ai tout mis dans ma "feuil3", quel serait la différence si je mettais la fonction dans le "module1" ? c'est une question de propreté de code, mais pas obligatoire. Certains mettront tout dans la procédure évènementielle, et c'est respectable, d'autres, comme moi, feront apparitre l'algo au travers des noms des fonctions et procédures appelées.

2- Une question toute bête pourquoi enlevé les "()" lors de l'appel de la fonction?
Les mystères syntaxiques de VBA :mouarf:

Citation:

---

Envoyé par Commodore

2- Une question toute bête pourquoi enlevé les "()" lors de l'appel de la fonction?
Les mystères syntaxiques de VBA :mouarf:

---

Pourquoi ?
Ah...
Tout simplement parce que ce qui est qualifié ici de fonction n'est finalement qu'une routine :lol: (à remplacer avantageusement par une Sub)... puisqu'aucune valeur n'est retournée ...
les () servent précisément à indiquer qu'on se réfère à la valeur retournée (absente ici !) ...;)

Ok tout s'éclaire !

Merci à tous pour votre aide :king:

M.A.S