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

[GAILLARD]

Bonjour,

Voici plu clairement ma demande :

Mes formules marchent mais je n’ai que la date du jour, je ne sais pas comment conserver les anciennes valeurs.

Dans le tableau 1

Récupération des données :

Colonne date : formule qui rajoute une ligne avec la date du jour tout en gardant les anciennes.

Colonne retard : si une date de la colonne délai demande est < a la date du jour elle comptabilise dans cette colonne.

Colonne en cours : comptabilise le total de délais demande


Dans le tableau 2

Base, tableau renseigné manuellement


Merci d’avance

 

[jp14]

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

 

[jp14]

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

 

[GAILLARD]

merci bcp tout marche