Date et heure fixe
Résolu
EKP
-
EKP -
EKP -
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
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
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
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.
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.
enregistrer sous
dans la fenêtre affichée carde du bas "type", sélectionnez
classeur Excel (prenant en charge les macros)(*xlsm)
crdlmnt
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