Bonjour à tous,
 
j'ai la fonction suivante "progression" qui me permet de m'alerter lorsque j'ai sept points croissants consécutifs. Lorsque l'on insère cette fonction, il faut selectionner manuellement une plage de cellule.
Je voulais savoir comment modifier ce code afin que ceci ne se fasse plus manuellement mais en fonction d'une cellule.
Je m'explique, j'ai une macro qui m'extrait des valeurs et ma fonction progression
étudie les 7 dernières valeurs extraites.
Je voudrais modifier le code de la fonction afin qu'elle sélectionne automatiquement les 7 dernières lignes. Mais je ne sais pas comment faire!
 
PS: Dans mon classeur excel, j'ai une cellule qui a pour valeur le numéro de la dernière ligne extraite, je pensais donc l'utiliser pour sélectionner la plage de cellule.
 
Merci d'avance
[cpp]Function Progression(ParamArray x() As Variant) As Boolean
Dim maxi As Variant
Dim boucle As Variant
Dim compose As Variant
Dim Réponse_1 As Variant
Dim Réponse_2 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
'Réponse_1 = MsgBox("Attention, il y a sept points consécutifs croissants. Vérifier qu'il n'y ait pas de dérive du Process" )
 
Exit Function
fin:
Progression = False
End Function[cpp]