Microsoft 365 Historisation des donnees excel

DenyscVir · 30 Octobre 2023

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 · 30 Octobre 2023

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

VB:

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 · 30 Octobre 2023

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

VB:

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

Microsoft 365 Historisation des donnees excel

DenyscVir

XLDnaute Nouveau

Pièces jointes

sylvanu

XLDnaute Barbatruc

Pièces jointes

DenyscVir

XLDnaute Nouveau

Discussions similaires

Microsoft 365 Historisation des donnees excel

DenyscVir

XLDnaute Nouveau

Pièces jointes

sylvanu

XLDnaute Barbatruc

Pièces jointes

DenyscVir

XLDnaute Nouveau

Discussions similaires

Privacy & Transparency

Privacy & Transparency