Bonjour


Cette fonction a pour but de me créer une alerte dans le cas où j’aurais sept points consécutifs croissants. J’aimerai savoir comment arriver à ce qu’il sélectionne automatiquement la dernière ligne d’un tableau d’extraction et sept points au-dessus.
Je m’explique, mon tableau d’extraction se met à jour quotidiennement, et pour l’instant je suis obligé de sélectionner manuellement la plage à analyser (la plage étant les sept derniers points extraits).

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
 
Function Progression(ParamArray x() As Variant) As Boolean
Dim maxi As Variant
Dim boucle As Variant
Dim compose As Variant
maxi = -10 ^ 308
For Each boucle In x
If VarType(boucle) > 8192 Then
    For Each compose In boucle
        If maxi >= compose Then
        GoTo fin
        Else
                maxi = compose
                End If
    Next compose
Else
If maxi >= boucle Then
    GoTo fin
    Else
    maxi = boucle
End If
End If
    Next boucle
Beep
Beep
Beep
Progression = True
 
Exit Function
fin:
Progression = False
End Function


Merci