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 !