Macro - Automatiser formule de différence pour graphique

Bonsoir all,

Je souhaiterais automatiser la sélection de donnée pour un graphique en se basant sur une différence.

Je m'explique, je dois sélectionner pour mon graphique la plage de donnée la plus petite ayant plus de 10 degrés d'écarts.

Pour essayer d'être le plus simple et clair possible, la suite ce base sur les données de l'exemple.

Pour l'aller, mon chiffre de référence est H2 (c'est pour aidé qu'un macro le mettra là, mais il corresponde tout simplement au dernier chiffre de la colonne A). A partir de ce chiffre là, cherche une macro qui le soustrait au dernier chiffre de ma colonne A et regarde si la différence est supérieur à 10, si ce n'est pas le cas, il remonte d'une ligne et fait la même opération ainsi de suite jusqu'à trouver une différence de 10 (ici donc de A13).

Une fois cette plage de cellule repéré, je souhaite qu'un graphique soit crée (donc ici avec la plage A13:B36).

Pour le retour c'est la même chose sauf qu'on doit toujours commencer par la cellule E3 la soustraction et que cette fois on doit descendre pour continuer à comparer (et la référence c'est toujours E3)

Important : la longueur des colonnes est variable mais mais pour chaque mouvement il y aura le même nombre de ligne angle et tension.

Si c'est possible de faire ça en macro ça me ferait gagné énormément de temps pour mon mémoire,

Merci d'avance à tout le monde !

Un petit macro pour mon mémoire, mais un grands pas pour la science :p

Simon

Re tout le monde,

Avec l'aide d'un copain on a réussi à faire ça comme code

Sub ALLER()
    xDerlig = Range("A65536").End(xlUp).Row
    For Each xCell In Range("A3:A" & xDerlig)
        xDiff = [H2] - xCell
        If xDiff > -10 Then
            xPlage = "$A$" & xCell.Row - 1 & ":$B$" & xDerlig
            Call Graphique("Graphique 1", xPlage)
            Exit For
        End If
    Next xCell
    [H2].Select
End Sub

Suivi de

Sub Graphique(NumGraph, Plage)
    ActiveSheet.ChartObjects(NumGraph).Activate
    ActiveChart.SeriesCollection(1).Select
    ActiveChart.SetSourceData Source:=Range(Plage)
End Sub

Ce qu'on ne sait pas faire c'est mettre le tout en une macro. L'objectif étant quand une macro on enchaine 4, 5 fois la même opération pour différents graphiques sur différentes feuilles.

Quelqu'un connaitrait-il une astuce pour cela ?