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

**julio26** · 03/03/2007, 16h16

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:

25
26
27
28
30

et la fonction devra faire

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:

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

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

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:

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,

**ouskel'n'or** · 03/03/2007, 16h50

Je croyais t'avoir répondu mais mon message a disparu. Essaie ça

Code :

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

1
2
3
cell.offset(0,1).Value="Achete"
ou
cell.offset(0,1).Value="Vends"

A+

**julio26** · 03/03/2007, 16h55

Merci pour ta réponse,
J'ai essayé avec le ".value" et ça ne marche pas

**ouskel'n'or** · 03/03/2007, 16h59

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 ?

**julio26** · 03/03/2007, 17h02

ça bug car ça n'écrit pas les ordres dans mes cellules et ça me met : #VALEUR!
Voici mon code

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

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

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

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 #

**julio26** · 03/03/2007, 17h22

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:

Code :

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

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

**ouskel'n'or** · 03/03/2007, 17h52

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

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

Code :

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

Debug.print current_signal

Et dis moi ce qu'il y a dans la fenêtre Exécution
A+

**ouskel'n'or** · 03/03/2007, 18h33

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à

updateOrder (current_signal)

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

cell.Offset(0, 1).Value =

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

A+

**julio26** · 03/03/2007, 18h41

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

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

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:

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

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

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+

**julio26** · 03/03/2007, 19h06

current_signal est une variable locale à la fonction.
J'ai rajouté dans le case else:

Code :

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

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 :

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

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 :

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

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

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

Code :

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

1
2
 
Debug.Print current_signal

Mais ça ressort de la fonction et ça retourne au debut de la fonction sur la ligne:

Code :

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

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

**ouskel'n'or** · 03/03/2007, 19h28

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

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 :

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

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 :

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

Debug.print Cell.address

**julio26** · 03/03/2007, 20h40

J'ai effectué les tests suivants:
1) J'ai crée la fonction petitTest:

Code :

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

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 :

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

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

**ouskel'n'or** · 03/03/2007, 20h55

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

Code :

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

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 :

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

Debug.print Cell.address

?

**AlainTech** · 03/03/2007, 23h37

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.

**ouskel'n'or** · 04/03/2007, 09h05

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.

Alors j'abonde dans le sens d'Alain. La prochaine fois, je poserai la question...

**julio26** · 04/03/2007, 10h52

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 :

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

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

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

Inputbox dans une macro fait ça très bien

Code :

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

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

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.

**julio26** · 04/03/2007, 14h10

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

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

Macros et VBA Excel

Discussions similaires

Partager

Partager