implémentation de date sous excel 2003 Résolu/Fermé

Question

Bonjour,  

je voudrait sous excel 2003 arrive a placer la date dans un champs b(x) par exemple dès que je mets une donnée alphanumérique dans la cellule a(de la même ligne) il faut que cet date sois fixe par exemple je mets blabla à la ligne a1 et la cellule b1 enregistre la date de ce jour demain je mets coucou dans la cellule a2 et la cellule b2 prend la date de demain , mais en b1 la date de hier est restée. 
merci d'avance pour votre aide 


Configuration: Windows Vista / Firefox 3.6.13

Pseudo · Answer

=IF(A1<>"";NOW();NOW())

Raymond PENTIER · Answer

Bonjour jmloulou.

Ce ne sera pas évident : La fonction AUJOURDHUI() donne en effet chaque jour, par définition, une date différente !

jmloulou · Answer

Attention je voudrait que la cellule date ce mette à chaque fois dans la case b par exemple de la même ligne et quel reste sans revenir a la date du jour ou j'ouvre le fichier c'est de la que vient mon souci.

merci pur vos réponse

Pseudo · Answer

Tu as raison, Raymond.  En fait ce n'est pas faisable dans une cellule, mais bien en se basant par exemple sur l'événement "change" en VBA.  

On parcourt la liste des cellules A, B de 1 à ....

Si B est vide et A est non vide, mettre NOW() dans B

Mais c'est lourd de chez lourd là où sous access il s'agit d'un problème trivial.

Pseudo · Answer

Et plus simple encore, sur la méthode change, simplement détecter quelle cellule (A) a changé, et dans la cellule B en regard, placer NOW()

Faire Alt-F11 puis dans le code de FEUILL1, mettre  :

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
 On Error Resume Next
 Dim Rw As Long
 If Target.Column = 1 Then
  Rw = Target.Row
  Range("B" & Rw).Value = Now()
 End If
End Sub

jmloulou · Answer

le problème dans mon cas c'est qu'il me faudrait une formule toute faite je suis débutant  en excel, je ne connais pas les langages de programmation :-(

Mike-31 · Answer

Salut

Clic droit sur l'onglet de feuille et colle ce code qui contrôlera la plage A2 à A1000 et mettra la date du jour en B
Peut être serait il judicieux d'ajouter une msgbox qui éviterait l'effacement accidentel en B si on reclique sur une cellule déjà renseignée, ainsi qu'une gestion d'erreur

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect([A2:A1000], Target) Is Nothing Then
If Target <> "" Then Target.Offset(0, 1) = Date
End If
End Sub

Mike-31 · Answer

Re,

Tu fais un clic droit sur l'onglet de ta feuille et clic sur visualiser le code. C'est la même chose que de faire Alt + touche de fonction F11 (F11 est la touche de fonction en haut du clavier F9, F10 F11 etc ...)

Mike-31 · Answer

Re,

Teste ce code 

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Not Intersect([A2:A1000], Target) Is Nothing Then
If Target <> "" And Target.Offset(0, 1) = "" Then
Target.Offset(0, 1) = Date
End If
End If
End Sub

Implémentation de date sous excel 2003

9 réponses

Discussions similaires