Calcul amplitude suivant cellule remplies

C'est normal, pour rechercher la dernière colonne , je regardais l'occupation de la ligne8 (celle ou il y a indiqué les heures), or cette ligne se trouve en 7ème position donc li faut modifier ici:

DerCol = Range("ZZ8").End(xlToLeft).Column

remplacez le 8 par la valeur 7

    DerCol = Range("ZZ7").End(xlToLeft).Column

@Arturo83, ajoutez "application.volatile" au début de votre fonction, changer le couleur n'est pas suffisant pour recalculer tout.

Function Ampl(Plage As Range, Ligne As Long) As Double

Dim i As Long, DerCol As Long, deb As Double, fin As Double

Application.volatile

DerCol = Range("ZZ8").End(xlToLeft).Column For i = 6 To DerCol

etc

Merci BsAlv pour ce rappel.

Bonne journée