problème création fonction excel

Bonjour,

Je débute en Visual Basic et je rencontre un problème pour créer une fonction sous excel.
J'ai rédigé le code ci-dessous dans un module VBA, la procédure (sub) s'execute très bien et me donne la valeur souhaitée, en revanche quand j'utilise ma fonction directement dans excel, cela inscrit simplement #VALUE! en lieu et place de la valeur qui s'affiche dans ma messagebox.

Merci beaucoup par avance,

Code:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28

Dim Plage As Ranges   Function TotalRefacturable(Plage) Dim compteur As Integer, cellule As Range   resultat = 0   For Each cellule In Range(Plage)   Select Case cellule.Offset(0, 1).Value Case "Y" resultat = resultat + cellule.Value   Case "N" 'Test Case Else 'Test End Select Next   TotalRefacturable = resultat   End Function     Sub test() MsgBox (TotalRefacturable("C9:C17")) End Sub

---

Bonjour,

Plusieurs remarques

1 -

Code:

---

Range

---

en VBA ne prend jamais d'"S".

2 - Tu dois déclarer le type de ta variable à l'intérieur de l'argument déclaré

Exemple à adapter.

Code:

---

Function BlaBla (Plage as Range) as String

---

Salut à toi,
Je te conseille de bien déclarer les types de tes variables ainsi que ce que renvoie ta fonction.
Je ne sais pas ce que contiennent tes cellules mais je suppose que ce sont des nombres, donc par précaution j'utiliserais CInt (ou CLng) pour m'assurer que VBA les considère bien comme tel. Comme tu n'as pas déclaré resultat, il pourrait aussi s'agir d'un String, et dans ce cas le + serait interprété comme un caractère de concaténation. A mon avis comme tu n'utilises pas la variable compteur, tu as inversé compteur et resultat dans la déclaration.
Je ne suis pas certain que le problème vienne de là, mais ton code sera moins ouvert aux erreurs :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28

Dim Plage As Range   Function TotalRefacturable(Plage As String) As Integer Dim resultat As Integer, cellule As Range   resultat = 0   For Each cellule In Range(Plage)   Select Case cellule.Offset(0, 1).Value Case "Y" resultat = resultat + CInt(cellule.Value)   Case "N" 'Test Case Else 'Test End Select Next   TotalRefacturable = resultat   End Function     Sub test() MsgBox (TotalRefacturable("C9:C17")) End Sub

---

Cela t'aide-t-il ?

De meme défini tes objets et leur type dans la fonction

Code:

---

Function TotalRefacturable(Plage as Range)

---

Comme ta fonction ne revoie rien utilise Sub et essaye de spécifié Public ou Private selon tes besoins!

Code:

---

Private Sub TotalRefacturable(Plage as Range)

---

Essaye comme cela. Pour le value sa peut etre due au format de tes celulles aussi a voir

Bastien

Bonjour à tous,

Le résultat de la procédure établie par notre ami est bien une valeur.

Il faut donc déclarer une fonction plutôt qu'une procédure.

Quant à l'argument, si j'ai bien compris, il s'agit d'un objet Range.

En complément,

Pour être appelée à l'intérieur d'une procédure, la fonction doit être codée

Code:

---

1 2 3

Sub test() MsgBox TotalRefacturable(Range("A1:A7")) End Sub

---

(à adapter)

Enfin, et peut-être surtout,le résultat peut très bien être retourné par la fonction "Sommeprod", du moins pour le cas "Y"

Exemple

Citation:

---

=SOMMEPROD((B1:B7="Y")*(A1:A7))

---

La fonction SOMME.SI d'Excel n'est elle pas suffisante?

Sinon, la traduction:

Code:

---

1 2 3 4

Function TotalRefacturable(Plage As Range) As Double   TotalRefacturable = Application.SumIf(Plage.Offset(0, 1), "Y", Plage) End Function

---

Merci à tous pour votre aide.

Mon code marche si on remplace For Each cellule In Range(Plage)
par For Each cellule In Plage.

En revanche, je ne comprends pas pourquoi j'arrivais à obtenir le résultat désiré dans une messagebox et qu'une erreur était générée dans mon fichier excel...

Je n'avais pas non plus pensé à la fonction sumif, c'est beaucoup plus pratique ^^

Les fonctions créées est à mettre dans un module public pour que tu puisse les appeler à partir de la feuille.

En revanche, je constate que le résultat de ma fonction ne s'actualise pas automatiquemnet quand je change des données dans la feuille. Il faut que je sélectionne la cellule dans laquelle j'ai entré mon résultat et que j'appuie sur entrée pour l'actualiser.
Y aurait il un moyen d'actualiser automatiquement les résultats de mes cellules ?

Merci par avance

Utilise directement SOMME.SI c'est mieux meilleur et direct
Sinon,

Code:

---

1 2 3 4 5

Function TotalRefacturable(Plage As Range) As Double   Application.Volatile TotalRefacturable = Application.SumIf(Plage.Offset(0, 1), "Y", Plage) End Function

---