Appel d'une fonction avec cellules en arguments

Bonjour le forum

Je bloque sur un problème de syntaxe. Si quelqu'un pouvait m'aider...

J'ai créé une fonction F1 qui utilise 3 valeurs en arguments:

Code:

---

1 2 3 4

Function F1(Cell1 As Range, Cell2 As Range, Cell3 As Range) As Double ... End Function

---

Lorsque je l'utilise directement dans une feuille de calcul en référençant les cellules, tout fonctionne bien.
Par exemple si je saisis =F1(A4;B4;C4) dans la cellule D4.

Mais j'ai besoin d'appeler cette fonction à partir d'une procédure.
J'ai saisi le code suivant:

Code:

---

1 2 3 4 5 6

Sub S1() ... X = F1(Range(A4), Range(B4), Range(C4)) ... End Sub

---

Et j'obtiens une erreur d'exécution 1004 sur la méthode Range.

Comment puis-je appeler ma fonction F1 sur les cellules A4, B4 et C4 au sein de ma procédure?

Bonjour Alexandre,

Astuce que j'utilise souvent

Depuis la feuille de travail, enregistrer la fonction par l'enregistreur de macro.
Utiliser le code obtenu dans une procédure plus globale.
Coller la valeur à la formule

Code:

---

1 2 3 4 5 6 7 8 9 10

Public Function lafonction(x As Double, y As Double) As Double lafonction = (x * 2) + (y * 3) End Function   Public Sub laprocédure() With Worksheets(1).Range("C9") .FormulaR1C1 = "=lafonction(RC[-2],RC[-1])" .Value = .Value End With End Sub

---

Mais bizarre en effet.
A titre d'information, tutoriel de référence
les fonctions par Silkyroad

Au demeurant, pourrais-tu nous retourner le code intégral de ta fonction et celui de son appel.

Bonjour,

L'erreur ne serait-elle pas là? (manque les guillemets)

Code:

---

X = F1(Range("A4"), Range("B4"), Range("C4"))

---

Cdlt

Citation:

---

Envoyé par Alexandre_P

J'ai saisi le code suivant:

Code:

---

1 2 3 4 5

Sub S1() ... X = F1(Range(A4), Range(B4), Range(C4)) ... End Sub

---

Et j'obtiens une erreur d'exécution 1004 sur la méthode Range.

---

L'argument d'un Range est une chaine de caractère.
Ton code, tel qu'il est écrit, demande (par exemple) le Range dont l'adresse est dans la variable A4.
Comme je suppose que A4 n'existe pas en tant que variable, tu demandes le Range de l'adresse... rien.
Normal que VBA n'apprécie pas.

Mets un Option Explicit avant ton code, ça t'obligera à déclarer tes variables et ça t'évitera ce type d'erreur.

Pas vu. (Fin de journée pour Marcel!)

Pour compléter, tu peux rendre cette déclaration obligatoire dans tous tes modules de par les options de ton VBE.
Ce que personnellement je conseille fortement.

Merci à tous
J'ai ajouté l'Option Explicit et surtout les guillemets et ça fonctionne

Bonjour à vous, bonjour au Forum,

J'insiste.
Il est utile de rendre obligatoire la déclaration de variables à tous les modules.
Une fois pour toutes.
Pour ce faire, dans l'éditeur VBE, Outils\Options Cocher la "déclaration des variables obligatoire"