ajouter des lignes et sauvegarder les données avec la date du jour.

Bonjour

Pour répondre au problème une macro serait souhaitable.

Ci joint le fichier avec une macro qui lorsque l'on active la feuille décale d'une ligne et recopie les formules lorsque la première ligne ne contient pas la date du jour.

A tester

JP14

Nouveau fichier avec la macro du post suivant

Bonsoir

Ci dessous un code à tester

Option Explicit
Sub changement()
Dim Date1 As String
Dim Nomfeuille1 As String
With Sheets(ActiveSheet.Name)
' on insere une ligne
If .Range("g15") = Format(.Range("H8"), "dd/mm/yyyy") Then Exit Sub
.Range("G16:I16").Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove ' insertion d'une ligne
.Range("G15:I15").Copy (.Range("G16"))
'.Range("G15:I15").Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove ' insertion d'une ligne
' on recopie les données

.Range("G15") = Format(.Range("H8"), "dd/mm/yyyy") ' ecriture de la date
.Range("H15") = .Range("H3") ' copie des formules
.Range("I15") = .Range("H4")

End With
End Sub

Lorsque l'on insère une ligne dans un tableau le Graphique est mis à jour automatiquement.
La macro insère la ligne 16, puis recopie les données de la ligne 15 dans la nouvelle ligne, ensuite on inscrit les valeurs dans la ligne 15.

A tester

JP14

merci bcp tout marche