Discussion :

[djmisterjon1]

Bonjours a vous tousse existe-t-il une formule faire ceci.

Exemple lorsque que une cellule de la colonne A est remplie, un décompte de 60 seconde apparait dans la cellule B, a coter de la A, une foi le décompte de 60 seconde terminer , la cellule B écrit (Terminer)

Merci a vous

[Theze]

Bonsoir,

Teste ce qui suit mais attention, pour modifier une autre cellule, il te faudra attendre la fin du décompte :

Code :

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
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
 
Private Declare Function GetTickCount Lib "Kernel32" () As Long
 
Sub Minuterie(Milliseconde As Long)
 
    Dim Arret As Long
 
    Arret = GetTickCount() + Milliseconde
 
    Do While GetTickCount() < Arret
 
        DoEvents
 
    Loop
 
End Sub
 
Private Sub Worksheet_Change(ByVal Target As Range)
 
    Dim I As Integer
 
    If Target.Column <> 1 Then Exit Sub
 
    I = 60
 
    'évite l'appel inutile de cette proc tant que le décompte n'est pas fini
    'l'évènement "Change" est appelé chaque foir que la décrémentation
    'à lieu en colonne B
    Application.EnableEvents = False
 
    Do
 
        Minuterie 1000
        I = I - 1
        Target.Offset(, 1) = I
 
    Loop While I > 0
 
    Target.Offset(, 1) = "Terminé"
 
    Application.EnableEvents = True
 
End Sub

Hervé.

[djmisterjon1]

Merci je vai tester

Je vais définir un peut mon raisonnement,
en fait je dois recueillir des chiffres sur un site boursier ,

si exemple J'écrit en A1 ,ex: 824,
en B1 Ya un compte a rebours de 60 seconde ,
lorsque celui-ci arrive a 0 , B1 Affiche Terminer
et En C1 je rentre la nouvelle valeur que Jai cueilli.

Ensuite D1 m'afficheront une statistique, mais pour le moment je suis bloquer sur le timer de B1

[Invité]

Une variante avec laquelle tu peux continuer à travailler sur le fichier en parallèle.

Dans le module de la feuille:

Code :

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

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

Et dans un module standard:

Code :

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

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

[djmisterjon1]

ptrsafe.

Salut Theze , c'est exactement ce que je voulais
tout semble bien fonctionner
j'ai du ajouter l'attribut ptrsafe car Jai Excel 64bit.

Le seule problème, comme tu a fait mention c'est que pendant le décompte
j'aimerai la possibilité de mettre des valeurs dans d'autre cellule
Pendant le décompte des que j'écrit quelque chose sur une autre cellule
tout s'arête .

Salut vcottineau, malheureusement sa ne fonctionne pas rien ne ce passe en B1, lorsque j'écrit quelque chose en A1.
Une idée ?

[Invité]

Salut vcottineau, malheureusement sa ne fonctionne pas rien ne ce passe en B1, lorsque j'écrit quelque chose en A1.
Une idée ?

Teste le classeur en PJ t'as du faire une erreur quelque part.

Par contre il ne faut pas s'amuser à changer d'autres valeurs dans la colonne A sinon ça va faire bugguer la macro.

[djmisterjon1]

Ses vraiment super, sa fonctionne très bien,
j'ai une petite question ,
esceque ces possible de faire en sorte que le décompte ne sarrette pas
pendant que l'on entre des chose dans une autre cellule ,
exemple en D1 quand je rentre des chiffres le décompte stop

j'aimerai pouvoir travailler sur d'autre cellule en même temp que le décompte
tu aurai une idée ?