Rajout de Ligne automatique avec suivi de formules

Bonsoir,

J'ai besoin de votre aide afin de savoir comment je peux faire suivre automatiquement des formules lors d'un ajout de ligne automatique (via une macro) dans une BDD. Je m'explique, j'ai une BDD de plusieurs lignes qui comprend des montants dans plusieurs colonnes qui s'additionnent en fin de tableau (une synthèse scindée par quelques lignes). Quand je clique sur "rajout de lignes", une ligne vierge apparaît bien, avec format compris. Or, les nouvelles données que je rentre correspondant à un nouveau dossier ne suivent pas dans la "synthèse" du dessous. Ce qui m'oblige à reprendre mes formules et ajouter la ligne correspondante, ce qui n'est pas pratique.

Je vous remercie de vos informations. Si besoin, je pourrais vous adresser un extrait de la BDD modifiée pour cause de confidentialité.

Dans l'attente de vous lire,

Bonne soirée à tous.

VALOU

Bonjour

Un fichier est indispensable pour écrire un code VBA

Cordialement

Bonjour Amadéus,

Je joins le fichier modifié. Merci de ton aide.

VALOU

Bonjour

Modifies la fin de ta macro

   .Rows(ZtNumLig).Copy
    .Rows(ZtNumLig).Insert Shift:=xlDown
    .Rows(ZtNumLig + 1).ClearContents
  End With
End Sub

Bonjour Banzai64 et merci.

J'ai fait comme tu as dit. Ca fonctionne bien concernant la partie de gauche, sauf pour la partie de droit concernant les montants des enjeux et des provisions qui ne s'additionnent pas dans le récap total du bas.

Voici la macro en question sur laquelle j'ai rajouté tes indications. J'ai certainement mal fonctionné ! Merci encore de tes conseils.

Bien à toi

VALOU

Sub NouvelleLigneEnDessous()

Dim DLig As Long

Dim ZtNumLig As Long ' ATTENTION pas en Integer

'Dim ZtDerCol As Integer

If MsgBox("Ajouter une ligne ?", vbQuestion + vbYesNo, "QUESTION ...") = vbNo Then Exit Sub

' Avec la feuille active

With ActiveSheet

' Chercher la dernière ligne remplie de la feuille

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

' La fin du tableau se trouve 5 lignes au dessus de la dernière

ZtNumLig = DLig - 5

' *** Les lignes de dessous peuvent être remplacées

' ZtDerCol = ActiveCell.SpecialCells(xlCellTypeLastCell).Column

'.Range(.Cells(ZtNumLig, 1), .Cells(ZtNumLig, ZtDerCol)).Copy

'.Range(Cells(ZtNumLig + 1, 1), Cells(ZtNumLig + 1, ZtDerCol)).Insert Shift:=xlDown

' *** par

.Rows(ZtNumLig).Copy

.Rows(ZtNumLig).Insert Shift:=xlDown

.Rows(ZtNumLig + 1).ClearContents

End With

End Sub

Bonjour

Je n'ai pas ce problème

Toutes les formules de cette page sont impactées lors de l'ajout d'une ligne

J'ai refait des essais avec le fichier que tu avais envoyé et pas de soucis

Vérifies bien avant d'insérer une ligne que tes formules sont conformes