Discussion :

[Alexandre_P]

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 :

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

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 :

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

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?

[MarcelG]

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 :

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

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.

[ARTURO83]

Bonjour,

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

Code :

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

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

Cdlt

[Menhir]

J'ai saisi le code suivant:

Code :

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

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.

[MarcelG]

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.

[Alexandre_P]

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

[MarcelG]

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"