Bonjour à tous,

Je travaille sur un fichier de suivi et surtout sur un sub qui "surveille" les valeurs dans un tableau, quand une des valeurs est supérieure à une cible un msgbox apparaît avec des informations sur la ligne de la valeur en question.
Et là je bloque sur un point tout bête...
Je définis ma variable "Ticker" avec une fonction offset mais j'ai une erreur 424 objet requis qui apparaît et je ne vois pas comment arranger ça...
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
Sub Surveille_suite()
    Dim Tableau_Variations As Range
        Set Tableau_Variations = Workbooks("TEST sbf").Worksheets("TableauFixe").Range("AW11:AW131")
        ' Définit la taille du tableau
 
    Dim limite_variations As Integer
        limite_variations = Workbooks("TEST sbf").Worksheets("TableauFixe").Cells(3, 3).Value
        'Limite à la hausse
 
    Dim Ticker As String
        Ticker = Cell.Offset(0, -47).Value
 
    Dim Nom_action As String
        Nom_action = Cell.Offset(0, -46).Value
 
    Dim variations As Integer
        variations = Cell.Value * 100 & "%"
 
 
    For Each Cell In Tableau_Variations
    If Cell.Value > limite_variations Then
 
        MsgBox Ticker & Chr(47) & Chr(32) & Nom_action & " varie de " & variations _
        & " sur les 15 dernières minutes, que voulez-vous faire ?", vbCritical, "Alerte variations"
 
        Else
 
    End If
    Next Cell
End Sub
Si vous avez des idées de réponse à mon problème, je suis preneur
Bonne journée à tous !