Probleme Heure...

[nicolas42]

bonjour, suite a de longue recherche sur le sujet, je me decide enfin a postulé sur le forum. J'espere vraiment avoir un réel soutien dans ma demande. Bref j'en viens au faite :
Je cherche sous excel a introduire dans mes cases l'heure et la date si possible. 😀
Je vous explique un capteur reçoit des informations et les introduits dans la colonne ' A ' a des heures aléatoires. je voudrais savoir si il serait possible de rentrer dans la colonne ' B ' l' heure correspondant a la reception de la valeur(du capteur)
J'ai bien sur essayé la fonction Maitenant() qui actualise a chaque nouvelle valeur donc inutile...
Je remercie ceux qui voudrons bien m'aider 🙂

 

[pierrejean]

Re : Probleme Heure...

bonjour nicolas42

Et bienvenue sur XLD

macro a mettre dans le module de la feuille

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then
 Range("B" & Target.Row) = Now
End If
End Sub

en B tu auras la date et l'heure du changement dans A

 

[nicolas42]

Re : Probleme Heure...

Merci beaucoup pierrejean ton code marche.
Cependant serait-il possible d'avoir quelques explications...😀
je mis connais un peu en codage (C++, html, java, etc..) mais aucune connaissance en vba.
Donc si vous pouviez m'aidez a comprendre cette fonction car j'aimerais bien l'integrer a mon rapport de stage ^^
Merci a bientot 🙂

 

[pierrejean]

Re : Probleme Heure...

Re

La macro est declenchée par un changement dans la feuille

'Si la cellule (Target) qui a declenché la macro est dans la colonne 1 ("A") alors
If Target.Column = 1 Then
 'la cellule située colonne B , même ligne (Target.row) reçoit la date et l'heure (Now equivalent de Maintenant)
 Range("B" & Target.Row) = Now
End If