Date non volatile

Résolu
Peponne31 Messages postés 8 Date d'inscription   Statut Membre Dernière intervention   -  
Peponne31 Messages postés 8 Date d'inscription   Statut Membre Dernière intervention   -
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


--

4 réponses

Réponse 1 / 4
eriiic Messages postés 24603 Date d'inscription   Statut Contributeur Dernière intervention   7 266
 
Bonjour,

le plus simple est d'utiliser le raccourci clavier Ctrl+; pour mettre la date en A.
eric
0
Peponne31 Messages postés 8 Date d'inscription   Statut Membre Dernière intervention  
 
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
0
Réponse 2 / 4
via55 Messages postés 14512 Date d'inscription   Statut Membre Dernière intervention   2 742
 
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
0
Peponne31 Messages postés 8 Date d'inscription   Statut Membre Dernière intervention  
 
Merci Via,
Est-il possible de l'étendre jusqu'à la ligne B25 peut être ("A5:A25")
Cordialement
Peponne31
0
Réponse 3 / 4
JCB40 Messages postés 3001 Date d'inscription   Statut Membre Dernière intervention   463
 
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
0
Réponse 4 / 4
via55 Messages postés 14512 Date d'inscription   Statut Membre Dernière intervention   2 742
 
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
0
Peponne31 Messages postés 8 Date d'inscription   Statut Membre Dernière intervention  
 
Merci Via, cette formule me convient très bien.
Cordialement
Peponne31
0

Discussions similaires

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

2 réponses
MFG pas encore arrivée
kkwtanne -
brucine -

2 réponses
Problème publipostage date de naissance
garbiche22 -
cg13 -

3 réponses
Jm se désabonner
Michaelay -
MPMP10 -

1 réponse
Opposition CB pour stopper abonnement JM DATE
Jean9904 -
spiralio -

7 réponses