Date non volatile Résolu

Question

Bonjour,

Je souhaiterai afficher une date non volatile sous le format: jour/mois/année à 4 chiffres  en A5 lorsque je renseigne une liste en B5. J'ai mis en place cette formule: 
=SI(B5<>"";MAINTENANT();"") 
en A5 mais la date change le jour suivant.
Pouvez vous m'aider à modifier cette formule.
Cordialement
Pepone31

 
--

eriiic · Answer

Bonjour,

le plus simple est d'utiliser le raccourci clavier Ctrl+; pour mettre la date en A.
eric

via55 · Answer

Bonjour pepone

Ce n'est possible que pas macro
Macro à mettre dans le worksheet de la feuille (ALT+F11 pour ouvrir l'éditeur VBA, double clic sur le nom de la feuille dans l'arborescence, copier-coller la macro dans la page et fermer l'éditeur
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("B5")) Is Nothing And Target.Value <> "" Then Range("A5") = Date
End Sub
Cdlmnt
Via

JCB40 · Answer

Bonjour
A tester

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("B5:B25")) Is Nothing Then
Target.Offset(0, -1) = Date
End If
End Sub

Cordialement

via55 · Answer

Oui bien sûr :
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("B5:B25")) Is Nothing And Target.Value <> "" Then Range("A"  & target.row) = Date
End Sub

Date non volatile

4 réponses

Votre réponse

Discussions similaires