Date non volatile

Résolu/Fermé

Peponne31 Messages postés 8 Date d'inscription mardi 22 avril 2008 Statut Membre Dernière intervention 5 juillet 2020 - 5 juil. 2020 à 13:29
Peponne31 Messages postés 8 Date d'inscription mardi 22 avril 2008 Statut Membre Dernière intervention 5 juillet 2020 - 5 juil. 2020 à 16:04

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

--

A voir également:

Date non volatile
Cette photo n’a pas été prise cette année. trouvez la date, l'heure et avec quel modèle d'appareil photo elle a été prise. ✓ - Forum Graphisme
Trier par date excel - Guide
Formule excel si date supérieur à une autre date ✓ - Forum Excel
Airpods 3 date de sortie - Guide

4 réponses

Réponse 1 / 4

eriiic Messages postés 24603 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 15 décembre 2024 7 249
5 juil. 2020 à 13:40

Bonjour,

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

Peponne31 Messages postés 8 Date d'inscription mardi 22 avril 2008 Statut Membre Dernière intervention 5 juillet 2020
5 juil. 2020 à 13:49

Merci Eric, cette fonction me convient aussi, j'aurai juste souhaiter la rentrer en automatique de manière à verrouiller le formulaire et laisser la colonne B5 en accé libre.
Cordialement
Peponne31

Réponse 2 / 4

via55 Messages postés 14509 Date d'inscription mercredi 16 janvier 2013 Statut Membre Dernière intervention 2 janvier 2025 2 739
5 juil. 2020 à 13:49

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

Peponne31 Messages postés 8 Date d'inscription mardi 22 avril 2008 Statut Membre Dernière intervention 5 juillet 2020
5 juil. 2020 à 14:10

Merci Via,
Est-il possible de l'étendre jusqu'à la ligne B25 peut être ("A5:A25")
Cordialement
Peponne31

Réponse 3 / 4

JCB40 Messages postés 2971 Date d'inscription lundi 2 juillet 2018 Statut Membre Dernière intervention 10 janvier 2025 465
5 juil. 2020 à 14:28

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

Réponse 4 / 4

via55 Messages postés 14509 Date d'inscription mercredi 16 janvier 2013 Statut Membre Dernière intervention 2 janvier 2025 2 739
5 juil. 2020 à 14:30

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

Peponne31 Messages postés 8 Date d'inscription mardi 22 avril 2008 Statut Membre Dernière intervention 5 juillet 2020
5 juil. 2020 à 16:04

Merci Via, cette formule me convient très bien.
Cordialement
Peponne31

Discussions similaires

je cherche la date et le lieu de naissance d une personne

Problème Whatsapp - "La date est incorrecte"

Jm date resiliation

Problème publipostage date de naissance

MFG pas encore arrivée