vba excel boucle

Version imprimable

vba excel boucle

Bonjour,

Je vous explique mon problème, j'ai mis en place l'affichage de l'heure et de la date lorsque je scanne un code barre à l'aide d'une douchette.
Code:

1 2 3 4 5 6 7 8 9 10 11 Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("A1:A50")) Is Nothing Then Target.Offset(0, 1) = Date If Not Intersect(Target, Range("A1:A50")) Is Nothing Then Target.Offset(0, 2) = Time End If End If End Sub
Je souhaiterais que lorsque je scanne une deuxième fois le code barre, l'heure et la date de fin apparaissent sur la même ligne.

J'ai plusieurs codes barres différents à scanner.

Cela est-il possible ?

Merci d'avance

Salut,

tu peux essayer de partir sur

Code:

1
2
3
4
5
6
7
8
9
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A1:A50")) Is Nothing Then
If Target.Offset(0, 1)<>Date Then
Target.Offset(0, 1) = Date
Else
Target.Offset(0, 2) = Time
End If
End If
End Sub

24/04/2018, 10h24
Menhir

Citation:

Envoyé par polysntc

Je souhaiterais que lorsque je scanne une deuxième fois le code barre, l'heure et la date de fin apparaissent sur la même ligne.

Je ne comprends pas trop ton explication.
Qu'est-ce que tu appelles "date de fin" ?
Est-ce que ça veut dire que la date dont tu parles avant est une "date de début" ?
Est-ce que tu voudrais que la date de fin remplace la première date que tu as saisie ?
Est-ce que tu voudrais que cette "date de fin" s'enregistre dans une autre cellule (laquelle ?) ?
Est-ce que, lors du second scan, tu es positionné sur la bonne cellule ou faut-il que la macro recherche le code barre correspondant dans une zone ?