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 : Sélectionner tout - Visualiser dans une fenêtre à part
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