heure automatique

[rem$]

bonjour à tous,

voici une macro qui permet d'afficher la date et l'heure ET de la figée en fonction du remplissage de la cellule à ça gauche
c'est tres interessant mais je voudrais que cela soit applicable à d'autres cellules (7 de plus) alors comme je n'y comprend rien en vba merci de m'aider à la modifier




Private Sub Worksheet_Change(ByVal Target As Range) 'à chaque modification
'supp msg erreur
On Error GoTo noErr
'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("A4: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
noErr:

End Sub



donc en fait quand je rentre une valeur en AE la date incremente AF
idem pour AI et AJ / AK et AL / AM et AN / AO et AP / AR et AS / AU et AV

faut-il recopier la ligne If notapplication..... en changent la zone d'intersection ???? et remettre les lignes suivante Target.offset..... et If Target.......

merci de votre aide
rem$

 

[rem$]

re

je crois que ma piste était bonne ca a l'air de marcher