Microsoft 365 Historique des modifications

de_hanstrapp · 30 Septembre 2023

Bonjour le forum,

J'ai crée dans un classeur une feuille (AA_Historique) qui permet d'obtenir un historique des modifications.
Avec le code ci-après je récupère un certin nombre d'informations. Ma question est comment je peux intégrer en colonne 6 la valeur de la cellule avant la modification.

Merci pour votre aide.

VB:

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
On Error Resume Next
If Sh.Name = AA_Historique.Name Or Sh.Name = "AA_Donnees" Then Exit Sub
With AA_Historique
    .Unprotect Password:=Wbk_Protect
    With .Range("A65536").End(xlUp)
        .Offset(1, 0).Value = Now()
        .Offset(1, 1).Value = Environ("computername")
        .Offset(1, 2).Value = Environ("username")
        .Offset(1, 3).Value = Sh.Name
        .Offset(1, 4).Value = Target.Address
[COLOR=rgb(184, 49, 47)]        .Offset(1, 5).Value = ???[/COLOR]
        .Offset(1, 6).Value = Target.Value
    End With
    .Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, Password:=Wbk_Protect
End With
On Error GoTo 0
End Sub

sylvanu · 30 Septembre 2023

Bonjour,
Une idée possible, dans la feuille, rajoutez :

Code:

Public ValeurAuClic, AdresseAuClic
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    ValeurAuClic = Target
    AdresseAuClic = Target.Address
    ' Pour test
    Application.StatusBar = AdresseAuClic & " - " & ValeurAuClic
End Sub

Les variables AdresseAuClic et ValeurAuClic contiendront l'adresse et la donnée présentent dans la dernière cellule cliquée, donc avant sa modification.
Le Statusbar ( pour test ) recopie ces 2 variables bans la barre de status, à supprimer évidemment.

Staple1600 · 30 Septembre 2023

Bonjour le fil

Puisque le préfixe de la discussion indique Office 365, pourtant ne pas en profier ?

Collaborer sur des classeurs Excel simultanément avec la co-édition - Support Microsoft

Vous pouvez ouvrir un classeur Excel et collaborer avec d’autres personnes simultanément à l’aide de la co-édition. Cet article vous explique comment procéder.

support.microsoft.com

Voir particulièrement ce chapitre

de_hanstrapp · 30 Septembre 2023

sylvanu à dit:
Bonjour,
Une idée possible, dans la feuille, rajoutez :

Code:

Public ValeurAuClic, AdresseAuClic Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Count > 1 Then Exit Sub ValeurAuClic = Target AdresseAuClic = Target.Address ' Pour test Application.StatusBar = AdresseAuClic & " - " & ValeurAuClic End Sub

Les variables AdresseAuClic et ValeurAuClic contiendront l'adresse et la donnée présentent dans la dernière cellule cliquée, donc avant sa modification.
Le Statusbar ( pour test ) recopie ces 2 variables bans la barre de status, à supprimer évidemment.

Bonjour Sylvanu,
Merci pour votre réponse mais je vous avoue que je ne comprends pas la manipulation que je dois effectuer...

de_hanstrapp · 30 Septembre 2023

Staple1600 à dit:
Bonjour le fil

Puisque le préfixe de la discussion indique Office 365, pourtant ne pas en profier ?

Collaborer sur des classeurs Excel simultanément avec la co-édition - Support Microsoft

Vous pouvez ouvrir un classeur Excel et collaborer avec d’autres personnes simultanément à l’aide de la co-édition. Cet article vous explique comment procéder.

support.microsoft.com

Voir particulièrement ce chapitre
Regarde la pièce jointe 1180082

Bonjour Staple1600,
Personnellement j'utilise office 365 mais ce n'est pas le cas de toutes les personnes qui utilisent le fichier d'où ma volonté de créer un historique.

sylvanu · 30 Septembre 2023

Re, bonjour Staple,
Un ex en PJ.

de_hanstrapp · 30 Septembre 2023

sylvanu à dit:
Re, bonjour Staple,
Un ex en PJ.

Merci bcp pour l'exemple c'est plus clair.

de_hanstrapp · 1 Octobre 2023

Re,
Est-il possible d'écrire un code qui supprime par exemple l'historique qui dépasse 15j ?
Merci pour votre aide.
de_hanstrapp

sylvanu · 1 Octobre 2023

Re,
Un fichier test permettrait de savoir quoi faire et où.
... et en plus éviterait qu'on se retape un fichier exemple.

de_hanstrapp · 1 Octobre 2023

sylvanu à dit:
Re,
Un fichier test permettrait de savoir quoi faire et où.
... et en plus éviterait qu'on se retape un fichier exemple.

Voici un fichier exemple.
Je souhaiterais supprimer les infos contenues dans l'onglet "JOURNAL" qui datent de plus de 2 semaines par exemple.

Staple1600 · 1 Octobre 2023

Bonjour le fil

Si le classeur ne contient pas de macros, l'ancienne option Revision permet justement d'indiquer le nombre de jours

Sous Suivi des modifications, cliquez sur Survenues au cours des et dans la zone jours, tapez le nombre de jours d’historique des modifications que vous souhaitez conserver. Par défaut, Excel conserve l’historique des modifications pendant 30 jours et efface de façon permanente tout historique des modifications antérieur à ce nombre de jours. Pour conserver un historique pendant plus de 30 jours, entrez un nombre supérieur à 30.

En théorie doit fonctionner sur toutes versions d'Excel

Pour plus de détails

sylvanu · 1 Octobre 2023

Bonjour de_hanstrapp, Staple,
Si vous le voulez en VBA, voir PJ avec :

VB:

Sub Nettoyage() ' Supprime toute ligne antérieur à 15 jours.
Application.ScreenUpdating = False
With Sheets("JOURNAL")
    For L = .Cells(.Cells.Rows.Count, "B").End(xlUp).Row To 3 Step -1
        If Date - .Cells(L, "B") > 15 Then Rows(L).Delete Shift:=xlUp
    Next L
End With
End Sub

Un bouton de test dans la feuille Journal.
Vous pouvez l'appelez en fin de Workbook_SheetChange.
Il y a surement plus rapide, mais le nombre de lignes à nettoyer restera faible.

Microsoft 365 Historique des modifications

de_hanstrapp

XLDnaute Occasionnel

sylvanu

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

Collaborer sur des classeurs Excel simultanément avec la co-édition - Support Microsoft

de_hanstrapp

XLDnaute Occasionnel

de_hanstrapp

XLDnaute Occasionnel

Collaborer sur des classeurs Excel simultanément avec la co-édition - Support Microsoft

sylvanu

XLDnaute Barbatruc

Pièces jointes

de_hanstrapp

XLDnaute Occasionnel

de_hanstrapp

XLDnaute Occasionnel

sylvanu

XLDnaute Barbatruc

de_hanstrapp

XLDnaute Occasionnel

Pièces jointes

Staple1600

XLDnaute Barbatruc

sylvanu

XLDnaute Barbatruc

Pièces jointes

Discussions similaires