Date et heure fixe

Résolu/Fermé
EKP - 3 févr. 2017 à 07:49
 EKP - 6 févr. 2017 à 14:53
Bonjour. J'ai une cellule A1 et B1 d'une feuille. J'aimerais inséré une formule dans la cellule A1 pour qu'il m'affiche une date et heure fixe quand j'insère une valeur dans B1. Merci

2 réponses

Vaucluse Messages postés 26496 Date d'inscription lundi 23 juillet 2007 Statut Contributeur Dernière intervention 1 avril 2022 6 394
3 févr. 2017 à 08:19
Bonjour

je ne crois que vous puissiez faire ça par formule
voyez cette option, si vous acceptez les macros (fichier xlsm):

clic droit sur le nom d'onglet
dans le menu: "visualiser le code"
et coller ça

Private Sub Worksheet_change(ByVal Target As Range)

Dim Rw As Long
Rw = Target.Row
If Target.Column = 2 Then
Range("A" & Rw).Select
ActiveCell.Value = Now
End If
End Sub



crdlmnt


0
Bonsoir. J'arrive à le faire mais quand je veux fermé la feuille il me dit que je peux pas enregistré celui sans macro. Comment faire?
0
Vaucluse Messages postés 26496 Date d'inscription lundi 23 juillet 2007 Statut Contributeur Dernière intervention 1 avril 2022 6 394 > EKP
3 févr. 2017 à 16:05
Re
enregistrer sous
dans la fenêtre affichée carde du bas "type", sélectionnez
classeur Excel (prenant en charge les macros)(*xlsm)
crdlmnt
0
EKP > Vaucluse Messages postés 26496 Date d'inscription lundi 23 juillet 2007 Statut Contributeur Dernière intervention 1 avril 2022
4 févr. 2017 à 11:33
Bonjour. Est il possible d'avoir la même fonction dans la colonne F?
0
Vaucluse Messages postés 26496 Date d'inscription lundi 23 juillet 2007 Statut Contributeur Dernière intervention 1 avril 2022 6 394
Modifié par Vaucluse le 4/02/2017 à 11:52
vi
si c'est pour placer la date en E (ou ailleurs) copier coller ci dessous. (vous verrez alors dans le collage des lignes explicatives non fonctionnelles en vert)

Private Sub Worksheet_change(ByVal Target As Range)
'identifier la ligne sélectionnée
Dim Rw As Long
Rw = Target.Row
'préciser la colonne Active (N° colonne dans la feuille)
If Target.Column = 2 Then
'déterminer la colonne recevant la date
Range("A" & Rw).Select
ActiveCell.Value = Now
End If
'idem avec action en F pour date en E
If Target.Column = 6 Then
Range("E" & Rw).Select
ActiveCell.Value = Now
End If
'etc...si besoin
End Sub


crdlmnt
0
Super. Grand merci à vous
0
Mike-31 Messages postés 18310 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 29 mars 2024 5 073
Modifié par Mike-31 le 3/02/2017 à 09:03
Bonjour,
Comme le dit l'ami Vaucluse que je salue, par formule il n'est pas possible de fixer la date et l'heure ou il faut passer par VBA si tu as quelques notions,
mais si tu n'as que A1 à renseigner pourquoi écrire un code, tu peux faire simplement en cliquant en même temps sur deux touches
Ctrl et point virgule, espace et Ctrl et double point
Ctrl avec ; espace et Ctrl avec :
A+
Mike-31

Pas savoir n'est pas un échec, l'échec est le refus d'apprendre.
0
Bonsoir. J'ai autres colonnes à ajouté après. J'y arrive pas par ctrl+l car rien n'apparaît quand je fais la combinaison.
0