date modification cellule

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

Merci de votre aide
--
MCA
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
JB
Le #5328591
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
Bonjour,
Comment connaître la date de modification d'une cellule ?

Merci de votre aide
--
MCA


MCA
Le #5328561
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
Bonjour,
Comment connaître la date de modification d'une cellule ?

Merci de votre aide
--
MCA






JB
Le #5328451
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
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


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 -



Publicité
Poster une réponse
Anonyme