Date non volatile
Résolu
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
--
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
--
4 réponses
-
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
-
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
-
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'éditeurPrivate 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
-
ContributeurBonjour,
le plus simple est d'utiliser le raccourci clavier Ctrl+; pour mettre la date en A.
eric
