Maj Date

[amapacha]

Bonjour à vous!

voilà!! je vais essayer de faire court, j'ai un probleme
je souhaiterais que quand on modifie une cellule du pojet 1 par exemple, la date du jour s'affiche et dans la colonne des dates et un commentaire dans la colonne com.
est ce qu'on peut m'aider.?

Merci d'avance

 

[phlaurent55]

Re : Maj Date

Bonjour amapacha,

voir fichier joint,
il est nécessaire d'activer les macros à l'ouverture du fichier

à+
Philippe

 

[amapacha]

Re : Maj Date

Merci à toi philippe ça marche, mais j'ai essayé un truc j'ai ecrit ailleur sur plusieurs cellules j'ai directement copié et collé mais ça donne un message d'alerte.

 

[phlaurent55]

Re : Maj Date

Re,

lorsqu'on copie plusieurs cellules dans la zone coloriée, il faut utiliser ce code (légèrement modifié par rapport à l'autre)

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("B3:G40")) Is Nothing Then
debut:
    Message = InputBox("Quelle est la raison de ce changement ?")
If Message = "" Then GoTo debut
For Each cellule In Target
    cellule.ClearComments
    cellule.AddComment
    cellule.Comment.Text Text:="Cellule modifiée le" & Chr(10) & Format(Date, "dd/mm/yyyy") & " à " & Format(Time, "hh:mm:ss") & Chr(10) & Chr(10) & "Motif :" & Chr(10) & Message
Next cellule
End If
End Sub

à+
Philippe

 

[amapacha]

Re : Maj Date

Thank you mister philippe it's great!!!
TIP! TOP!

 

[phlaurent55]

Re : Maj Date

Re,

avec un petit plus

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("B3:G40")) Is Nothing Then
debut:
    Message = InputBox("Quelle est la raison de ce changement ?")
If Message = "" Then GoTo debut
For Each cellule In Target
    cellule.ClearComments
    cellule.AddComment
    cellule.Comment.Text Text:="Cellule modifiée le" & Chr(10) & Format(Date, "dd/mm/yyyy") & " à " & Format(Time, "hh:mm:ss") & Chr(10) & Chr(10) & "Motif :" & Message & Chr(10) & "Par: " & Application.UserName
Next cellule
End If
End Sub

à+
Philippe

 

[amapacha]

Re : Maj Date

Là franchement c'est super! je ne sais pas comment te remercier.
J'essai d'interpreter et comprendre le code si j'ai des questions particulieres je reviendrai soliciter ton genie.