Microsoft 365 Historisation des donnees excel

[DenyscVir]

Bonjour Les experts

Je suis en grande difficulté pour trouver un moyen d'historiser les donner saisies dés que les donnees changes

Vous trouverez en PJ le fichier exemple

Je veux que les donnees se copient sur un autre onglet s'appelant "historic" avec la date

est-ce possible ?

 

[sylvanu]

Bonsoir DenyscVir, et bienvenu sur XLD,
Un essai en PJ avec :

Sub Archivage()
Application.ScreenUpdating = False
With Sheets("Historic")
    DL = 1 + .Cells(.Cells.Rows.Count, "A").End(xlUp).Row
    .Range("B" & DL & ":F" & DL) = [B5:F5].Value
    .Cells(DL, "A") = Date
End With
End Sub

 

[DenyscVir]

Bonsoir DenyscVir, et bienvenu sur XLD,
Un essai en PJ avec :

Sub Archivage()
Application.ScreenUpdating = False
With Sheets("Historic")
    DL = 1 + .Cells(.Cells.Rows.Count, "A").End(xlUp).Row
    .Range("B" & DL & ":F" & DL) = [B5:F5].Value
    .Cells(DL, "A") = Date
End With
End Sub

Bonsoir !

Franchement au top ! Cela marche ! Efficace et pro ! Un grand merci...

Puis-je demander une faveur supplémentaire ?

Est-ce possible de mettre un message ou bloquer si aucune données en B5 ou C5 n'ont été modifié ?
Est-ce aussi possible de mettre un message pour dire que cela a bien été sauvegardé ?

Encore merci