Discussion :

[toutoune95800]

Bonjour à tous !

J'ai crée sur Excel un petit compte à rebours ! Seulement, comme vous le savez, avec la fonction SECONDE, pour que tout se décompte, il faut actualiser à chaque fois (pour ma part je tape dans une cellule) ! ! !

J'ai donc penser à Userform pour régler ce problème... Donc, une petit macro écrit dans la cellule A1 le chiffre 5 puis ENTER puis on efface A1 pour réécrire le chiffre 5 et enter (enter suffirait d'ailleurs)

Dans une autre cellule, D4 le résultat, là où les chiffres se décomptent !

Dans l'userform, un textbox qui recopie la Valeur de D4

Seulement voilà, quand je clic sur mon bouton, ça fonctionne ! Mais il faudrait que ça fonctionne tout le temps ! ! ! A chaque seconde !

J'ai essayé avec une boucle While Wend, ça plante tout !

Alors que me conseiller vous ? Un timer ?

J'imaginais qu'avec ma textbox changerais toute seul avec une boucle mais ça ne fonctionne pas ! ! !

Avez vous une idée ?

[Philippe Tulliez]

Bonjour,
Une discussion sur le sujet qui date un peu mais qui est marquée comme résolue

[toutoune95800]

Bonjour,

Vous trouverez en pièce jointe mon fichier Excel de décompte ! J'essai d'incrémenter une boucle pour que les secondes s'enlève seconde par seconde mais je n'y arrive pas ! Les boucles While Wend plante tout le fichier ! ! !

Si quelqu'un pouvait m'apporter et m'expliquer la solution, je lui en serais très reconnaissant !

Merci d'avance !

Fichier joint dans vos discussions

[SfJ5Rpw8]

Bonsoir,



l'on pourrait voir ce fameux code entre balises [code] ?

Une piste ..pour mieux décrire votre problème..

[toutoune95800]

Bonsoir BBil,

J'ai pu trouvé ma réponse sur le net, mais j'avoue que c'est un peu du copier-coller et ce qui me gêne ce que je n'ai pas trop compris le pourquoi... Je m'explique :

Prenons une variable

Code :

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

1
2
3
 
Dim x as byte
x=1

Je souhaite, par exemple, faire exécuté une macro indéfiniment :

Code :

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

1
2
3
4
 
while x=1
module2.macro1
wend

Evidemment, je crée une boucle infinie mais ce que je ne comprends pas, c'est pourquoi ça plante tout Excel ! ! ! Je pensais bêtement, qu'indéfiniment, il me ferais ma petite macro !

Voici le code que j'ai trouvé et modifié pour que ca marche !
J'avoue ne pas avoir y compris grand chose

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
 
Public StopDecompte As Byte
 
Sub Minuterie(Sec As Single)
Dim Arret As Single
Arret = Timer + Sec
Do While Timer < Arret
    DoEvents
Loop
End Sub
 
 
 
Dim texte As String
Do While i >= 0
    If StopDecompte > 0 Then Exit Do
    Feuil1.[I1] = 5
    Feuil1.[I2] = 5
    Frm_Boite_Message.cmdok.Caption = i
    Minuterie 1     '1 = 1 seconde, 0.5 = une 1/2 seconde, etc... et 0.1 = 1 dixième de seconde
    i = Feuil1.[k18]
    texte = CStr(i)
    Frm_Boite_Message.t1.Text = "Vous partirez du pays des Bisounours, dans : " & Chr(13) & Chr(13) & Feuil1.[L10] & " " & Feuil1.[L11] & Chr(13) & Feuil1.[k16] & " " & Feuil1.[L16] & " " & Feuil1.[k17] & " " & Feuil1.[L17] & " " & texte & " " & Feuil1.[l18]
 
 
Loop
 
 
 
 
 
Sub Test()
Decompte Feuil1.[k23]
Beep
If StopDecompte = 0 Then Test
End Sub

Voilà ! Là ça ne plante pas...

Seulement, à part le fait de sortir du sub, j'ai pas tout capté !