Discussion :

[Sawzaaren]

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

[jfontaine]

Bonjour,

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

[BlueMonkey]

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 :

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
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

[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 :

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

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

Parce que ça ne marche pas

Merci encore

[BlueMonkey]

Re.

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

C'est bien ça effectivement.

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 :

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

Worksheets("Mafeuille").Cells(8, 5).Value = Resultatv2()

[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.

[BlueMonkey]

Bonjour JFontaine,

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à.

[jfontaine]

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