Discussion :

[djmisterjon1]

Bonjours j'aimerai savoir comment combiner c'est 2 code
De facon séparer,car j'ai une erreur ,on ne peut metre 2 Worksheet_Change dans la meme feuille !

le code 1

Code vb :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Option Explicit
 
Public Sub Worksheet_Change(ByVal Target As Range)
  If Target.Column <> 6 Then Exit Sub
  Temp# = Target.Row
  Cells(Temp#, 7) = 60
  Call RunOnTime
End Sub

le code 2

Code vb :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("G:G")) Is Nothing Then
Target.Offset(0, 3) = Date
End If
End Sub

Y aurait-il une facon pour que sa fonctionne , en fait lorsque une cellule dans G est modifier jaimerai date + heure dans la cellule
J

Merci beaucoup de votre aide.

[casefayere]

Bonsoir,

une idée à adapter :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("G:G")) Is Nothing Then
  Application.EnableEvents = False
  Target.Offset(0, 3) = Date
  Application.EnableEvents = True
End If
If Target.Column <> 6 Then Exit Sub
Application.EnableEvents = False
Temp# = Target.Row
Cells(Temp#, 7) = 60
Call RunOnTime 'là je ne peux rien dire car procédure inconnue pour moi
Application.EnableEvents = True
End Sub

[djmisterjon1]

Je suis désoler mais cela ne fonctionne pas je vous donne donc le code complet ainsi que la feuille Excel
Espérant que quelqu'un trouve une solution, car pour l'instant je reste mal prit.

Je vous explique son fonctionnement lorsque je entre en E2 une valeur , un chrono de 60 seconde démarré en F2.
une foi le Chonos Terminer, je dois entrer une nouvelle valeur en G2, et au moment ou je entre une valeur en G2, je dois avoir La date et L'heure fixer dans I2.Croyez vous que cest possible ?


voici les code complet

Code vb :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Option Explicit
 
Public Sub Worksheet_Change(ByVal Target As Range)
  If Target.Column <> 6 Then Exit Sub
  Temp# = Target.Row
  Cells(Temp#, 7) = 60
  Call RunOnTime
End Sub

Module1

Code vb :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Option Explicit
 
Public Temp#
Public dTime As Date
 
Sub RunOnTime()
  dTime = Now + TimeSerial(0, 0, 1)
  Application.OnTime dTime, "RunOnTime"
  Cells(Temp#, 7).Value = Cells(Temp#, 7).Value - 1
  If Cells(Temp#, 7).Value = 0 Then Call CancelOnTime
End Sub
 
Sub CancelOnTime()
  Application.OnTime dTime, "RunOnTime", , False
  Cells(Temp#, 7).Value = "Terminer"
End Sub

et voici le document Excel

Merci a vous.