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
anonymousA
bonjour,
à ma connaissance , ce n'est pas possible de le faire automatiquement par une déclaration dans Outils/options/Général. Par contre avec une macro pour metter à jour des dates c'est possible. Exemple suivant qui met à jour toutes les dates des commentaires si elles existent et qui autrement met une date en début de commentaire . Ce n'est pas exactement ta demande, mais tu peux l'adapter à tes souhaits p.e en ne changeant pas les dates des commentaires si celles-ci existent déjà.
Dim cmt As Comment Dim ws As Worksheet
Set wsh = ActiveSheet
For Each cmt In wsh.Comments With cmt If IsDate(Left(.Text, 17)) Then If CDate(Left(.Text, 17)) < Now Then .Text Text:=Format(Now(), "dd/mm/yy hh:mm:ss") & Right(.Text, Len(.Text) - 17) Else .Text Text:=Format(Now(), "dd/mm/yy hh:mm:ss") & " " & .Text End If End With Next
A+
Bonjour,
En insérant un commentaire, le nom de l'utilisateur apparaît automatiquement, est-ce possible d'ajouter automatiquement la date d'insertion également.
Merci à l'avance !
Lucie
bonjour,
à ma connaissance , ce n'est pas possible de le faire automatiquement par
une déclaration dans Outils/options/Général.
Par contre avec une macro pour metter à jour des dates c'est possible.
Exemple suivant qui met à jour toutes les dates des commentaires si elles
existent et qui autrement met une date en début de commentaire .
Ce n'est pas exactement ta demande, mais tu peux l'adapter à tes souhaits
p.e en ne changeant pas les dates des commentaires si celles-ci existent déjà.
Dim cmt As Comment
Dim ws As Worksheet
Set wsh = ActiveSheet
For Each cmt In wsh.Comments
With cmt
If IsDate(Left(.Text, 17)) Then
If CDate(Left(.Text, 17)) < Now Then .Text Text:=Format(Now(),
"dd/mm/yy hh:mm:ss") & Right(.Text, Len(.Text) - 17)
Else
.Text Text:=Format(Now(), "dd/mm/yy hh:mm:ss") & " " & .Text
End If
End With
Next
A+
Bonjour,
En insérant un commentaire, le nom de l'utilisateur apparaît
automatiquement, est-ce possible d'ajouter automatiquement la date
d'insertion également.
à ma connaissance , ce n'est pas possible de le faire automatiquement par une déclaration dans Outils/options/Général. Par contre avec une macro pour metter à jour des dates c'est possible. Exemple suivant qui met à jour toutes les dates des commentaires si elles existent et qui autrement met une date en début de commentaire . Ce n'est pas exactement ta demande, mais tu peux l'adapter à tes souhaits p.e en ne changeant pas les dates des commentaires si celles-ci existent déjà.
Dim cmt As Comment Dim ws As Worksheet
Set wsh = ActiveSheet
For Each cmt In wsh.Comments With cmt If IsDate(Left(.Text, 17)) Then If CDate(Left(.Text, 17)) < Now Then .Text Text:=Format(Now(), "dd/mm/yy hh:mm:ss") & Right(.Text, Len(.Text) - 17) Else .Text Text:=Format(Now(), "dd/mm/yy hh:mm:ss") & " " & .Text End If End With Next
A+
Bonjour,
En insérant un commentaire, le nom de l'utilisateur apparaît automatiquement, est-ce possible d'ajouter automatiquement la date d'insertion également.
Merci à l'avance !
Lucie
Lucie
Merci infiniment, c'est fonctionnel. -- Merci à l'avance ! Lucie
bonjour,
à ma connaissance , ce n'est pas possible de le faire automatiquement par une déclaration dans Outils/options/Général. Par contre avec une macro pour metter à jour des dates c'est possible. Exemple suivant qui met à jour toutes les dates des commentaires si elles existent et qui autrement met une date en début de commentaire . Ce n'est pas exactement ta demande, mais tu peux l'adapter à tes souhaits p.e en ne changeant pas les dates des commentaires si celles-ci existent déjà.
Dim cmt As Comment Dim ws As Worksheet
Set wsh = ActiveSheet
For Each cmt In wsh.Comments With cmt If IsDate(Left(.Text, 17)) Then If CDate(Left(.Text, 17)) < Now Then .Text Text:=Format(Now(), "dd/mm/yy hh:mm:ss") & Right(.Text, Len(.Text) - 17) Else .Text Text:=Format(Now(), "dd/mm/yy hh:mm:ss") & " " & .Text End If End With Next
A+
Bonjour,
En insérant un commentaire, le nom de l'utilisateur apparaît automatiquement, est-ce possible d'ajouter automatiquement la date d'insertion également.
Merci à l'avance !
Lucie
Merci infiniment, c'est fonctionnel.
--
Merci à l'avance !
Lucie
bonjour,
à ma connaissance , ce n'est pas possible de le faire automatiquement par
une déclaration dans Outils/options/Général.
Par contre avec une macro pour metter à jour des dates c'est possible.
Exemple suivant qui met à jour toutes les dates des commentaires si elles
existent et qui autrement met une date en début de commentaire .
Ce n'est pas exactement ta demande, mais tu peux l'adapter à tes souhaits
p.e en ne changeant pas les dates des commentaires si celles-ci existent déjà.
Dim cmt As Comment
Dim ws As Worksheet
Set wsh = ActiveSheet
For Each cmt In wsh.Comments
With cmt
If IsDate(Left(.Text, 17)) Then
If CDate(Left(.Text, 17)) < Now Then .Text Text:=Format(Now(),
"dd/mm/yy hh:mm:ss") & Right(.Text, Len(.Text) - 17)
Else
.Text Text:=Format(Now(), "dd/mm/yy hh:mm:ss") & " " & .Text
End If
End With
Next
A+
Bonjour,
En insérant un commentaire, le nom de l'utilisateur apparaît
automatiquement, est-ce possible d'ajouter automatiquement la date
d'insertion également.
Merci infiniment, c'est fonctionnel. -- Merci à l'avance ! Lucie
bonjour,
à ma connaissance , ce n'est pas possible de le faire automatiquement par une déclaration dans Outils/options/Général. Par contre avec une macro pour metter à jour des dates c'est possible. Exemple suivant qui met à jour toutes les dates des commentaires si elles existent et qui autrement met une date en début de commentaire . Ce n'est pas exactement ta demande, mais tu peux l'adapter à tes souhaits p.e en ne changeant pas les dates des commentaires si celles-ci existent déjà.
Dim cmt As Comment Dim ws As Worksheet
Set wsh = ActiveSheet
For Each cmt In wsh.Comments With cmt If IsDate(Left(.Text, 17)) Then If CDate(Left(.Text, 17)) < Now Then .Text Text:=Format(Now(), "dd/mm/yy hh:mm:ss") & Right(.Text, Len(.Text) - 17) Else .Text Text:=Format(Now(), "dd/mm/yy hh:mm:ss") & " " & .Text End If End With Next
A+
Bonjour,
En insérant un commentaire, le nom de l'utilisateur apparaît automatiquement, est-ce possible d'ajouter automatiquement la date d'insertion également.
