Calcul au changement dans une feuille

Bonsoir à toutes et tous,

Question un peu complexe,

Dans la feuille "Débit" du fichier ci-joint, est calculé dans chaque dernière ligne de chaque page ( lignes 29, 58, ...) les totaux des valeurs de la page.

Ces totaux sont calculés via le module "Calcul_totaux" et insérés dans la feuille "Débit" à chaque fois que le module "A_Module_Débit_caissons" et "B_Module_Débit_pièces" colle le contenu de la feuille "modele" dans la feuille "Débit".

Jusque là aucun problème, le code fonctionne très bien.

Mon problème est que si jamais je viens à effectuer une modification dans la feuille "Débit", les totaux ne se recalcule pas ....

Je pense qu'il va falloir mettre quelque chose dans le Worksheet_Change, mais je ne sais pas quoi ...

Si cela peut vous aider, chaque page aura toujours le même nombre de ligne, mais le nombre de page est totalement aléatoire

Je suis donc preneur de toute aide

Merci d'avance, ;)

Bonjour SOTIN, le forum,

Un essai ... espérant que cela soit stable

Dans le feuille "Débit",

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim Ligne, i As Long

    Application.ScreenUpdating = False
    Application.Calculation = xlCalculationManual
    Application.EnableEvents = False

    Ligne = Range("A" & Rows.Count).End(xlUp).Row

    If Not Intersect(Target, Range("A7:R" & Ligne)) Is Nothing Then
        Call Calcul_totaux.calcul
    End If

    Application.Calculation = xlCalculationAutomatic
    Application.EnableEvents = True

End Sub

bastr

Re,

Merci beaucoup pour le coup de pouce ;)

Je regarderai demain plus en détail. Histoire de comprendre les outils utilisés ;)

A+