Fonction non valide ( exécution fonction excel vba)

Version imprimable

Bonjour à tous, j'ai fais une petite fonction VBA qui à chaque fois qu'elle trouve le mot "Immediat" dans la 3eme colonne , vas chercher la valeur qui se trouve dans 12 colonnes à droite. Et puis je fais la somme de toutes ces valeurs.

Alors mon problème c'est que quand je fais un Message Box classique , j'obtiens bien le bon chiffre (et donc que ma fonction fonctionne) mais ça ne marche pas quand j'essaie d’appeler ma fonction dans Excel (j'obtiens un "fonction non valide") ou que j'essaie de l'appeler dans mon code de cette façon (en voulant afficher mon résultat dans une cellule)

ActiveCell.Offset(1, 1).Value = Resultat()

Voici ma fonction :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 Public Function Resultat() As Double Sheets("Valo RBC Dexia").Select Dim Result As Double Result = 0 Cells(1, 3).Activate Do While ActiveCell.Value <> "IMMEDIATE" ActiveCell.Offset(1, 0).Select Loop Do While ActiveCell.Value = "IMMEDIATE" Result = ActiveCell.Offset(0, 12).Value + Result ActiveCell.Offset(1, 0).Select Loop Resultat = Result MsgBox Result End Function
Est ce que quelqu'un arrive à voir pourquoi ça ne marche pas?
Je vous remercie d'avance

14/02/2012, 10h18
jfontaine

Bonjour,

Retrouves tu ta fonction dans la liste des fonctions personnalisées ?
As tu mis cette fonction dans un module ?

Bonjour,

Comme JFontaine le souligne, je doute que la fonction fasse partie d'un module (ligne 6 ne compilerait pas).

Avec le code ci-dessous, ça devrait fonctionner même dans un module, est sans faire de sélection ...

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Option Explicit
 
Function Resultatv2() As Double
    Dim c As Range
    Dim isImmediate As Boolean
    Resultatv2 = 0
    isImmediate = False
 
    For Each c In Worksheets("Valo RBC Dexia").Range("C1:C" & Worksheets("Valo RBC Dexia").[C65000].End(xlUp).Row)
 
        If c.Value = "IMMEDIATE" Then
            isImmediate = True
            Resultatv2 = Resultatv2 + c.Offset(0, 12).Value
        ElseIf isImmediate Then
            Exit For
        End If
 
    Next c
End Function

14/02/2012, 10h49
Sawzaaren

Déjà merci à vous pour vos réponses.

Alors oui ma fonction était déjà dans le Module 1 et Excel reconnaissait ma fonction.

Sinon j'ai testé la 2eme fonction elle renvois zéro...

EDIT : Alors j'ai oublié de changer "Feuil1" en "Valo RBC Dexia" (j'avais fais un copier coller direct)
Alors maintenant ça marche, sous excel j'ai bien le bon résultat.

Par contre si je voulais afficher cela en VBA , il faudrait faire ceci ?

Code:

Cells(8, 5).Value = Resultatv2()

Parce que ça ne marche pas :(

Merci encore
14/02/2012, 12h27
BlueMonkey

Re.

Citation:

Par contre si je voulais afficher cela en VBA , il faudrait faire ceci ?
Cells(8, 5).Value = Resultatv2()

C'est bien ça effectivement.

Citation:

Parce que ça ne marche pas

Quel est le symptôme de l'erreur ?
~~Lorsqu'on écrit Cells(<ligne>,<col>) on doit se trouver dans le code d'une feuille.(pas dans un module).~~
Pour afficher le résultat dans la feuille "Mafeuille" depuis un module, il faudrait écrire :

Code:

Worksheets("Mafeuille").Cells(8, 5).Value = Resultatv2()
14/02/2012, 13h05
jfontaine

Salut BlueMonkey,

Je vais te contredire, mais Cells(<ligne>,<col>) fonctionne dans un module.
Seulement, on fait référence à la feuille active, même si elle se trouve sur un autre classeur de l'instance d'application. :P
14/02/2012, 14h08
BlueMonkey

Bonjour JFontaine,

:oops: Effectivement j'ai dis une sottise sur les Cells appelé depuis un module.

A ma décharge, ça reste toute de même une bonne habitude de faire référence au classeur à ce niveau là.
14/02/2012, 14h34
jfontaine

Citation:

A ma décharge, ça reste toute de même une bonne habitude de faire référence au classeur à ce niveau là.

Bien d'accord avec toi