fonction maintenant()

Bonjour
Il faut soit faire un copier collage spécial valeur de ta celule B2 mais elle aura déjà changé de valeur (quelques secondes) le temps de faire la manip.
Sinon il faut du VBA événementiel associé à la feuille pour écrire l'heure dans la ligne correspondante chaque fois qu'une cellule de la colonne A change.

Chris

salut

voila pour toi : a adapter suivant ta feuille

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [A1:A8]) Is Nothing Then
Target.Offset(0, 1) = Now
End If

end sub

a placer dans ta feuille et dans change

a+

jp

Merci à tous les 2, mais je vais avoir besoin d'un peu d'aide pour mettre en place ton code car je ne connais pas bien VBA.

Je sais créer une macro en faisant "nouvelle macro" et en enregistrant la macro.

Ensuite je modifie le code avec le code de jp, est ce que cela pose problème ?

Et pour modifier le code par rapport à mes besoins, j'aurais besoin de connaître sa signification.
Merci pour les explications et pour votre aide.

A+

Céline

en plus je n'arrive pas à exécuter la macro pas à pas pour voir le détail :-(

Salut Céline, Chris, JP, le forum,

JP est trop rapide... Chapeau ! Comme je me suis cassé la tête aussi je t'envoie quand même. C'est exactement le plan de JP (j'ai rectifié mes erreurs grâce à lui) avec un tout petit plus qui efface la date si tu effaces un code Barre (en version Full Comment comme dit Thierry).

Private Sub Worksheet_Change(ByVal Target As Range) 'à chaque modification
'n'agit que si la cellule active (Target) est dans la colonne A
'si l'intersection plage(A2:A65536) et Target n'est pas vide
If Not Application.Intersect(Target, Range("A2:A65536")) Is Nothing Then
'écrit l'équivalent de MAINTENANT() mais figé dans la cellule adjacente
Target.Offset(0, 1).Value = Now
'si tu effaces le code barre, efface aussi la date
If Target.Value = "" Then Target.Offset(0, 1).Value = ""
End If
End Sub

Re à tous,

J'avais pas actualiser donc...

En pièce jointe ton fichier. Pour voir les codes, clique du bouton droit sur la Feuil1 et l'option [Visualiser les codes]. [Alt]+[F11] pour revenir au fichier Excel.

À plus,

Robert

Merci beaucoup !

C'est exactement ce que je voulais !
Bonne fin de journée à tous les 3.
Bises

Céline