Discussion :

[nonoitalia42]

Hello tout le monde !

J'ai créé un USF qui est censé récupérer une variable que je déclare dans un module mais visiblement je m'y prends mal... Après avoir regardé pas mal de discussions sur le sujet, essayé de déclarer ma variable en Global ou en public sans plus de résultat je poste moi aussi une discussion en espérant un miracle

Voici le contenu de mon module :

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
 Sub DVD()
 
        Dim DVD As Variant
        Dim cel As Variant
        Dim montant_DVD As String
        Dim i As Long
 
 
        For i = 11 To 131 Step 1
         Set cel = Cells(i, 59) 'Définit la cellule du nombre de jours restant avant dividende
         Set ticker = Cells(i, 2)   'Définit la cellule du ticker
 
         montant_DVD = Cells(i, 11)
            If cel > 0 And cel < 10 Then
 
                    Alerte_Dividende.Label_Div.Caption = "Le dividende de " & ticker & " est dans " & cel.Value & " jours" & vbCrLf & "Il est de " & montant_DVD & Chr(128) & " par titre "
                    'Définit le texte du USF
                    Alerte_Dividende.Show 'Fait apparaitre l' USF
 
            End If
 
         Next i
 
 
    End Sub

Et celui de mon USF :

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
Private Sub Bouton_Acheter_Click()
 
 
        BLP = DDEInitiate("Winblp", "bbk")
        Call DDEExecute(BLP, "<Blp-1>")
        Call DDEExecute(BLP, ticker & " <EQUITY>" & " GIP<go>")
        Call DDEExecute(BLP, " XB<go>")
        Call DDETerminate(BLP)
        Unload Alerte_Dividende
 
End Sub
 
 
Private Sub Bouton_Retour_Click()
    Unload Me
End Sub

Vous l'aurez compris, le but est de récupérer la variable ticker du module pour l'insérer dans le USF et plus précisément dans la sub Bouton_Acheter_Click(), si vous avez des pistes ou des idées, je suis preneur

Bonne journée à tous et par avance un grand merci !

[Thautheme]

Bonjour Nono, bonjour le forum,

J'avais mal lu, je viens de rééditer mon post :

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
Public ticker As range
 
Sub DVD()
Dim DVD As Variant 'Je ne vois pas où est utilisée cette variable
Dim cel As Range '<=
Dim montant_DVD As String
Dim i As Long
 
For i = 11 To 131 '<= step 1 est la valeur par défaut, inutile de préciser dans ce cas
    Set cel = Cells(i, 59) 'Définit la cellule du nombre de jours restant avant dividende
    Set ticker = Cells(i, 2)   'Définit la cellule du ticker
    montant_DVD = Cells(i, 11).Value
    If cel > 0 And cel < 10 Then
        Alerte_Dividende.Label_Div.Caption = "Le dividende de " & ticker.value & " est dans " & cel.Value & " jours" & vbCrLf & "Il est de " & montant_DVD & Chr(128) & " par titre "
        Alerte_Dividende.Show 'Fait apparaitre l' USF
        Exit For '<= jai rajouté cette ligne car je pense qu'elle est logique
    End If
Next i
End Sub

Ensuite :

Code :

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

1
2
3
4
5
6
7
8
Private Sub Bouton_Acheter_Click()
BLP = DDEInitiate("Winblp", "bbk")
Call DDEExecute(BLP, "<Blp-1>")
Call DDEExecute(BLP, tiker & " <EQUITY>" & " GIP<go>")
Call DDEExecute(BLP, " XB<go>")
Call DDETerminate(BLP)
Unload Alerte_Dividende
End Sub

ou

Code :

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

1
2
3
4
5
6
7
8
Private Sub Bouton_Acheter_Click()
BLP = DDEInitiate("Winblp", "bbk")
Call DDEExecute(BLP, "<Blp-1>")
Call DDEExecute(BLP, ticker.Value & " <EQUITY>" & " GIP<go>")
Call DDEExecute(BLP, " XB<go>")
Call DDETerminate(BLP)
Unload Alerte_Dividende
End Sub

[nonoitalia42]

Merci @Thautheme pour ta réponse et ta réactivité !
j'ai modifié en conséquence mais la réponse de VB reste la même, ticker = 0 dans la private sub Bouton_Acheter_Click()
Au pire est ce que je peux paramétrer les actions de Bouton_Acheter_Click() depuis ma sub DVD() ?

[Thautheme]

Re,

Bon de toutes manières, sans fichier, contrairement aux super cadors de ce site, je suis incapable de tester et par conséquent de trouver une solution...