R
rem$
Guest
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$
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$