[VBA-E] Problème d'éxecution d'un programme

Version imprimable

03/03/2007, 16h16
julio26

[VBA-E] Problème d'éxecution d'un programme

Salut tout le monde!
Voilà j'ai un petit problème dans mon code VBA.
Je souhaite créer une fonction qui en entrée prend un Range de cellule ainsi que d'autres paramètres et en sortie, la fonction écrit juste à droite de la première colonne les résultats. En entrée j'ai par exemple:

Citation:

25
26
27
28
30

et la fonction devra faire

Citation:

25 Achete
26 Vends
27 Achete
28 Achete
30 Vends

Donc pour cela, je me place sur la première cellule et j'appelle ma fonction. Dans mon code, je fais un:

Citation:

For Each Cell In selection
...CODE...
NEXT

Pour afficher les ordres "Achete", "Vends", je fais un :

Citation:

cell.offset(0,1).FORMULAR1C1="Achete"
ou
cell.offset(0,1).FORMULAR1C1="Vends"

Le problème c'est que ça ne marche pas...
J'ai mis des points d'arrêts et j'ai debbugé et je me suis apperçu que dès que le programme arrive à cette ligne:

Citation:

cell.offset(0,1).FORMULAR1C1="Achete"

ça bug!! Quelqu'un sait pourquoi?
Si je ne peux pas écrire le résultat dans ma cellule comment traiter ce problème??
Merci pour votre aide,
03/03/2007, 16h50
ouskel'n'or
Je croyais t'avoir répondu mais mon message a disparu. Essaie ça
Code:

1 2 3 cell.offset(0,1).Value="Achete" ou cell.offset(0,1).Value="Vends"
A+
03/03/2007, 16h55
julio26

Merci pour ta réponse,
J'ai essayé avec le ".value" et ça ne marche pas :(
03/03/2007, 16h59
ouskel'n'or

Montre ton code, avant et dans ta boucle (Ce qui m'intéresse c'est ta "Selection" et ta boucle
A+

Tu dis "Ça bug !"
Où ? Quel message ?

ça bug car ça n'écrit pas les ordres dans mes cellules et ça me met : #VALEUR!
Voici mon 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
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
 
 
Function trading(selection As Range, nb_std As Double, moyenne As Double, std As Double) As String
Dim rdt_jour As Double
Dim lim1, lim2, lim3, lim4, limMax, limMin As Double
Dim cell As Range
'Definition de notre pnl
Dim pnl As Double
 
 
 
'Definition des limites qui vont decider de notre achat ou non
lim1 = moyenne + nb_std * std
lim2 = moyenne + (nb_std + 1) * std
limMax = moyenne + (nb_std + 2) * std
 
lim3 = moyenne - nb_std * std
lim4 = moyenne - (nb_std + 1) * std
limMin = moyenne - (nb_std + 2) * std
 
For Each cell In selection
    rdt_jour = cell.Value
    Dim current_signal As String
 
    Select Case rdt_jour
 
    'Règles d'entrée sortie en cas de hausse
    Case moyenne To lim1
        current_signal = "Achete 1"
        updateOrder (current_signal)
        cell.Offset(0, 1).Value = current_signal
    Case lim1 To lim2
        current_signal = "Achete 2"
        updateOrder (current_signal)
        cell.Offset(0, 1).Value = current_signal
    Case Is > lim2, previous_Signal = "Achete 2"
        current_signal = "Vendre 2"
        updateOrder (current_signal)
        cell.Offset(0, 1).Value = current_signal
 
 
 
    'Règles d'entrée sortie en cas de baisse
 
    Case moyenne To lim3
        current_signal = "Vendre 1"
        updateOrder (current_signal)
        cell.Offset(0, 1).Value = current_signal
    Case lim3 To lim4
        current_signal = "Vendre 2"
        updateOrder (current_signal)
        cell.Offset(0, 1).Value = current_signal
    Case Is < lim4, lastOrder = "Vendre 2"
        current_signal = "Achete 2"
        updateOrder (current_signal)
        cell.Offset(0, 1).Value = current_signal
 
    'Cas où rien ne se passe
    Case Else
        cell.Offset(0, 1).Value = "Rien"
    End Select
Next
 
 
trading = "ok"
 
End Function

03/03/2007, 17h11
ouskel'n'or

C'est bien ce qu'il me semblait, tu utilises "selection" dans

Citation:

For Each cell In selection

alors que selection est un mot clé. Tu perturbes VBA
Change de nom de paramètre, pour commencer. Ensuite tu dis si tu as toujours une erreur.
Tu connais Debug.print ? A ta place je l'utiliserais pour vérifier les paramètres passés à la fonction
A+

NB - Balise ton code : tu le sélectionnes puis un clic sur # ;)
03/03/2007, 17h22
julio26
Merci pour ta réponse!
J'ai changé selection en MySelection, mais j'ai toujours le #VALEUR!
J'ai fait la petite fonction suivante pour faire un test:
Citation:
Code:

1 2 3 4 5 Function petitTest(cell As Range) As String cell.Offset(0, 1).FormulaR1C1 = "COUCOU" petitTest = "ok" End Function
Et je me suis apperçu que ça affiche bien le "COUCOU" 1 case à côté, mais à l'endroit où j'ai appelé la fonction, il y a #VALEUR!. Pourtant la fonction renvoit "ok"... je comprends pas trop pourquoi
03/03/2007, 17h52
ouskel'n'or

Affiche ta fenêtre Exécution. Dans l'éditeur VB -> Affichage -> fenêtre Exécution
et met cette ligne dans tes "case" après

Citation:

updateOrder (current_signal)
cell.Offset(0, 1).Value = current_signal

Code:

Debug.print current_signal

Et dis moi ce qu'il y a dans la fenêtre Exécution
A+
03/03/2007, 18h33
ouskel'n'or

En relisant ton code, et d'après ce que tu dis j'en déduis que la formule que tu colles dans la cellule n'a pas la bonne syntaxe.
Montre, qu'on voit ça...
Je ne comprends pas non plus ton code, là

Citation:

updateOrder (current_signal)

si c'est une fonction, la valeur retournée est updateOrder, et non current_signal. Et dans la ligne

Citation:

cell.Offset(0, 1).Value =

c'est updateOrder qui devrait être utilisé...
Mais là je suppute :mouarf:
A+

Tout d'abord je vais répondre à tes questions.

Citation:

updateOrder (current_signal)

La fonction updateOrder fait partie d'une classe que j'ai crée. Elle met à jour la variable lastOrder. C'est un peu l'equivalent de la fonction set() en Java.
Elle prend en paramètre l'ordre courant (current_signal) et met à jour la variable. Je fais ça car il m'est utile de savoir le dernier ordre qu'on a passé.

Citation:

cell.Offset(0, 1).Value =
c'est updateOrder qui devrait être utilisé...
Mais là je suppute

cell.Offset(0,1).Value=... me permet d'écrire dans la colonne mes ordres d'achat/vente. Peut être y-a t'il une autre methode mais celle ci devrait marcher.

Ensuite, j'ai changé mon code en:

Citation:

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
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
 
Function trading(MySel As Range, nb_std As Double, moyenne As Double, std As Double) As String
Dim rdt_jour As Double
Dim previous_Signal As String
Dim lim1, lim2, lim3, lim4, limMax, limMin As Double
Dim cell As Range
'Definition de notre pnl
Dim pnl As Double
 
'Test
'MsgBox "Voici le dernier ordre que vous avez passe" & lastOrder
 
'Definition des limites qui vont decider de notre achat ou non
lim1 = moyenne + nb_std * std
lim2 = moyenne + (nb_std + 1) * std
limMax = moyenne + (nb_std + 2) * std
 
lim3 = moyenne - nb_std * std
lim4 = moyenne - (nb_std + 1) * std
limMin = moyenne - (nb_std + 2) * std
For Each cell In MySel
    rdt_jour = cell.Value
    Dim current_signal As String
 
    Select Case rdt_jour
 
    'Règles d'entrée sortie en cas de hausse
    Case moyenne To lim1
        current_signal = "Achete 1"
        updateOrder (current_signal)
        cell.Offset(0, 1).Value = current_signal
        Debug.Print current_signal
    Case lim1 To lim2
        current_signal = "Achete 2"
        updateOrder (current_signal)
        cell.Offset(0, 1).Value = current_signal
        Debug.Print current_signal
    Case Is > lim2, previous_Signal = "Achete 2"
        current_signal = "Vendre 2"
        updateOrder (current_signal)
        cell.Offset(0, 1).Value = current_signal
        Debug.Print current_signal
 
 
    'Règles d'entrée sortie en cas de baisse
 
    Case moyenne To lim3
        current_signal = "Vendre 1"
        updateOrder (current_signal)
        cell.Offset(0, 1).Value = current_signal
        Debug.Print current_signal
    Case lim3 To lim4
        current_signal = "Vendre 2"
        updateOrder (current_signal)
        cell.Offset(0, 1).Value = current_signal
        Debug.Print current_signal
    Case Is < lim4, lastOrder = "Vendre 2"
        current_signal = "Achete 2"
        updateOrder (current_signal)
        cell.Offset(0, 1).Value = current_signal
        Debug.Print current_signal
 
    'Cas où rien ne se passe
    Case Else
        cell.Offset(0, 1).Value = "Rien"
        Debug.Print current_signal
    End Select
Next
 
 
trading = "ok"
 
End Function

J'ai affiché la fenetre d'execution, celle ci apparait en bas de l'écran. J'ai lancé le programme en mettant un point d'arrêt, je fais F8 pour aller à la ligne suivante mais jamais rien ne s'affiche dans la fenêtre d'execution....
Merci beaucoup pour ton aide

03/03/2007, 18h51
ouskel'n'or

Si tu n'as rien dans la fenêtre exécution, c'est que tu n'as rien dans current_signal.
C'est une formule cette variable ?
Tu es allé voir ce qu'il y a dans les cellules #VALEUR ?
Cela semble indiquer une formule.
A+
03/03/2007, 19h06
julio26
current_signal est une variable locale à la fonction.
J'ai rajouté dans le case else:
Code:

1 2 3 4 5 6 Case Else current_signal = "Rien" cell.Offset(0, 1).Value = "Rien" Debug.Print current_signal End Select
Parceque j'avais oublié de mettre une valeur pour current_signal dans ce cas là. Ca ne change rien, j'ai toujours rien dans la fenêtre d'execution...
J'ai remarqué quelque chose. Quand j'execute mon code en mode debug, j'appuie sur F8 pour faire du pas à pas. Je vois que la fleche jaune descend dans le case Else, elle arrive sur la ligne

Code:

current_signal = "Rien"

dans la fenetre variables locales je vois que current_signal passe à "Rien", puis j'appuie sur F8 je passe sur la ligne:

Code:

cell.Offset(0, 1).Value = "Rien"

Et là quand je rappuie sur F8 ça ne va pas à la ligne suivante
Code:

1 2 Debug.Print current_signal
Mais ça ressort de la fonction et ça retourne au debut de la fonction sur la ligne:
Code:

1 2 Function trading(MySel As Range, nb_std As Double, moyenne As Double, std As Double) As String
(là où j'ai mis le point d'arrêt).
Bref je n'y comprends pas grand chose...
03/03/2007, 19h28
ouskel'n'or

Tu as un on error resume next dans la procédure appelante ? Si oui, c'est que tu as une erreur de syntaxe avec ta ligne

Citation:

cell.Offset(0, 1).Value = "Rien"

Comme je n'ai jamais utilisé Offcet (en 10 ans) je ne suis pas à même de voir l'erreur. Je te suggère de tester un bricollage qui "devrait" conctionner (!)

Code:

Cells(Cell.Row,Cell.column+1).Value = "Rien"

Et dès qu'un utilisateur d'offset passe par là, il te donnera la bonne syntaxe ;)
Tu me tiens au courant
A+

Tu peux aussi tester

Code:

Debug.print Cell.address
03/03/2007, 20h40
julio26
J'ai effectué les tests suivants:
1) J'ai crée la fonction petitTest:
Code:

1 2 3 4 5 6 Function petitTest(cell As Range) As String Debug.Print cell.Address Cells(cell.Row, cell.Column + 1).Value = "COUCOU" petitTest = "OK" End Function
2) J'ai crée la macro suivante:
Code:

1 2 3 4 5 6 Sub petitTest2() Dim cell As Range Set cell = Range("A1") Cells(cell.Row, cell.Column + 1).Value = "COUCOU" End Sub
Le résultat est que dans le cas de la macro, ça écrit bien dans la cellule B1 "COUCOU", alors que dans la sub ça n'écrit pas "COUCOU" 1 case à droite et en plus ça met le mot #VALEUR! là où j'appelle la fonction.
J'en viens donc à penser qu'il est impossible d'écrire dans une case à l'intérieur d'une fonction sinon ça bug!
Qu'en pensez vous??

Non, sui tu "envoies" une adresse à une foncton, pas de pb
Teste ça
Code:

1 2 3 4 5 6 7 8 9 10 11 Sub LancerTest() Dim cell As Range Set cell = Range("A1") r = petitTest(cell) End Sub Function petitTest(cell As Range) As String Debug.Print cell.Address Cells(cell.Row, cell.Column + 1).Value = "COUCOU" petitTest = "OK" End Function
Tu es sûr que tu envoies une adresse à ta fonction ?
A+
Que donne

Code:

Debug.print Cell.address

?

03/03/2007, 23h37
AlainTech

D'après ce que je peux comprendre, le fonction est appelée dans une cellule.

Il n'est pas possible, de cette façon, de modifier une quelconque cellule.

Une fonction, appelée dans une cellule, ne peut modifier le contenu de la feuille.
04/03/2007, 09h05
ouskel'n'or

Ok, je pensais la fonction appelée par une macro. Il ne m'est pas venu à l'idée qu'elle l'était dans une cellule. :cry:
Alors j'abonde dans le sens d'Alain. La prochaine fois, je poserai la question... :oops:

Merci pour vos réponses!
J'ai essayé de créer une sub qui appelle la fonction et dans ce cas là, ça marche bien.
Donc dans une fonction on ne peut pas modifier le contenu des cellules de la feuille... C'est tout de même etonnant.
Donc pour résoudre mon probleme, je vais faire la chose suivante:
Avant, c'était une fonction qui appelait la fonction trading dont j'ai mis le code plus haut. Maintenant je vais changer ça et creer une sub qui appelle trading.
Mon probleme est que je ne sais pas creer manuellement la "selection" dont a besoin la fonction.
J'ai essayé ça:
Code:

1 2 3 4 5 6 7 8 9 10 11 Dim MySelection As Range MySelection = Range("C6:C2056").Select Dim nb_std, moyenne, std As Double nb_std = 1 moyenne = 1.2324371060443E-03 std = 3.01334951261029E-02 Dim res As String Dim obj As Ordres Set obj = New Ordres res = obj.trading(MySelection, nb_std, moyenne, std)
Mais ça ne marche pas...
Il n'y a pas un moyen d'ouvrir une boite de dialogue qui demande à l'utilisateur de selectionner manuellement sa colonne? Le même genre d'interface qu'il y a quand on lance une fonction en quelque sorte.
Merci d'avance

04/03/2007, 12h05
ouskel'n'or

Inputbox dans une macro fait ça très bien

Code:

Set LaCell = Application.InputBox(prompt:="Sélectionner une colonne", Type:=8)

Permet à l'utilisateur, dans une macro, de sélectionner une cellule, plusieurs, un plage, une ligne ou une colonne, sans interrompre la macro ;)
A+

PS

Citation:

Envoyé par Tu

Donc dans une fonction on ne peut pas modifier le contenu des cellules de la feuille...

Si la fonction est appelée depuis une cellule.
04/03/2007, 14h10
julio26

Merci!
Ca y est, mon problème est résolu. Je vous remercie pour votre aide !:yaisse2: