Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel date modification cellule

date modification cellule

3 réponses
Avatar
MCA
Bonjour,
Comment connaître la date de modification d'une cellule ?

Merci de votre aide
--
MCA
Signaler un problème avec ce contenu

3 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
JB
Bonjour,

Mémorise l'historique des cellules dans la zone commentaire des
cellules:

http://boisgontierjacques.free.fr/fichiers/Evenementiel/HistoriqueModificati on.xls

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Target.Column = 3 And Target.Count = 1 Then ' colonne 3
seulement
If Target.NoteText = "" Then Target.AddComment ' Création
commentaire
Target.Comment.Text Text:=Target.Comment.Text & _
Format(Target.Value, "# ##0.00 EURO") & " Modifié par:" &
Environ("UserName") & _
" Le " & Now & vbLf
Target.Comment.Shape.TextFrame.AutoSize = True
End If
Application.EnableEvents = True
End Sub

JB
http://boisgontierjacques.free.fr/

On 26 mar, 11:26, MCA wrote:
Bonjour,
Comment connaître la date de modification d'une cellule ?

Merci de votre aide
--
MCA


Avatar
MCA
Merci JB de ta réponse,
Est-il possible de mettre la modif dans une colonne à côté ? Je n'aurais de
toute façon qu'un seul utilisateur qui modifiera la zone en une seule fois.


--
MCA



Bonjour,

Mémorise l'historique des cellules dans la zone commentaire des
cellules:

http://boisgontierjacques.free.fr/fichiers/Evenementiel/HistoriqueModification.xls

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Target.Column = 3 And Target.Count = 1 Then ' colonne 3
seulement
If Target.NoteText = "" Then Target.AddComment ' Création
commentaire
Target.Comment.Text Text:=Target.Comment.Text & _
Format(Target.Value, "# ##0.00 EURO") & " Modifié par:" &
Environ("UserName") & _
" Le " & Now & vbLf
Target.Comment.Shape.TextFrame.AutoSize = True
End If
Application.EnableEvents = True
End Sub

JB
http://boisgontierjacques.free.fr/

On 26 mar, 11:26, MCA wrote:
Bonjour,
Comment connaître la date de modification d'une cellule ?

Merci de votre aide
--
MCA






Avatar
JB
Pour saisie en colonne 1:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 And Target.Count = 1 Then
Target.Offset(0, 1) = Now
End If
End Sub

JB

On 26 mar, 11:38, JB wrote:
Bonjour,

Mémorise l'historique des cellules dans la zone commentaire des
cellules:

http://boisgontierjacques.free.fr/fichiers/Evenementiel/HistoriqueMod...

Private Sub Worksheet_Change(ByVal Target As Range)
  Application.EnableEvents = False
  If Target.Column = 3 And Target.Count = 1 Then    ' colonne 3
seulement
    If Target.NoteText = "" Then Target.AddComment    ' Créati on
commentaire
    Target.Comment.Text Text:=Target.Comment.Text & _
       Format(Target.Value, "# ##0.00 EURO") & " Modifié par:" &
Environ("UserName") & _
         " Le " & Now & vbLf
    Target.Comment.Shape.TextFrame.AutoSize = True
  End If
  Application.EnableEvents = True
End Sub

JBhttp://boisgontierjacques.free.fr/

On 26 mar, 11:26, MCA wrote:



Bonjour,
Comment connaître la date de modification d'une cellule ?

Merci de votre aide
--
MCA- Masquer le texte des messages précédents -


- Afficher le texte des messages précédents -