Date et heure automatique saisie cellule Excel

Résolu/Fermé
CharlesDB
Messages postés
78
Date d'inscription
samedi 20 février 2010
Statut
Membre
Dernière intervention
9 mars 2015
- 15 févr. 2013 à 20:35
 you - 9 mars 2016 à 09:11
Bonjour,

Je souhaite obtenir de l'aide pour mettre en place si cela est possible un système permettant d'indiquer l'heure et la date automatiquement lorsque je saisi des données dans une cellule.

Par exemple, j'écris "100" dans ma cellule A1 et je souhaite que dans ma cellule B1 il soit affiché automatiquement "20h34 - 15/02/2013" ce qui correspond en fait au format suivant : "hh mm dd mm yyyy".

Cordialement,
CharlesDB

10 réponses

Mike-31
Messages postés
17950
Date d'inscription
dimanche 17 février 2008
Statut
Contributeur
Dernière intervention
23 mai 2022
4 948
Modifié par Mike-31 le 16/02/2013 à 08:16
Salut,

Tu aurais aussi vite fait de faire un simple clic sur deux touches Ctrl et point virgule

avec la fonction Maintenent la date changera tous les jours et avec un code VBA le fait de changer la donnée en A entrainera automatiquement le changement de la date en B
si c'est que tu cherches, clic droit sur l'onglet de ta feuille et colle ce code

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Not Intersect(Target, [A1:A100]) Is Nothing Then
Target(1, 2) = Now
End If
End Sub

si le code se limite à cette simple saisie tu peux écourter le code comme ceci

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Not Intersect(Target, [A1:A100]) Is Nothing Then Target(1, 2) = Now
End Sub

il est possible de figer la date en B pour éviter tout changement après postérieur et obliger la modification manuelle mais on verra plus tard
A+
Mike-31

Une période d'échec est un moment rêvé pour semer les graines du savoir.
6
hops007
Messages postés
6
Date d'inscription
lundi 31 décembre 2007
Statut
Membre
Dernière intervention
26 mars 2014

26 mars 2014 à 11:26
Bonjour Tout le monde
Grace au code de Mike-31 j'ai pu résoudre la moitié de mon problème, cependant j'aimerais bien que le résultat soit figé

Merci d'avance à vous tous
Très bonne journée
0
Mike-31
Messages postés
17950
Date d'inscription
dimanche 17 février 2008
Statut
Contributeur
Dernière intervention
23 mai 2022
4 948
26 mars 2014 à 14:08
Bonjour,

Que veux tu dire par "cependant j'aimerais bien que le résultat soit figé "
Cordialement
Mike-31
0
you > Mike-31
Messages postés
17950
Date d'inscription
dimanche 17 février 2008
Statut
Contributeur
Dernière intervention
23 mai 2022

9 mars 2016 à 09:11
merci
0
khaoulasai
Messages postés
1
Date d'inscription
mercredi 13 août 2014
Statut
Membre
Dernière intervention
13 août 2014

13 août 2014 à 11:11
bonjour
M. mike-31 je tiens a vous remercie pour le code ... je veux savoir si je peux figé le résultat par exp : quand je fais entré une valeur dans A1 j'aurai "13/08/2014 09:56:17 " dans B1 , si après une heurs je ferai des modifications dans la cellule A1 la cellule B1 reçoit "13/08/2014 10:56:17 " alors que moi je veux gardé la 1ère date ... mercii
0
Mike-31
Messages postés
17950
Date d'inscription
dimanche 17 février 2008
Statut
Contributeur
Dernière intervention
23 mai 2022
4 948
21 août 2014 à 23:11
Salut Khoulasai,

je découvre ta demande en rentrant de vacance, essaye ce code

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Not Intersect(Target, [A1:A100]) Is Nothing Then
If Target(1, 2) = "" Then Target(1, 2) = Now
End If
End Sub
0