Compte à rebours sur userform avec pause et reprise

[frederic1994]

Bonjour,

Sur un jeu que j'ai créé sur excel, j'utilise des chronos, mais, je souhaite avoir des chronos qui décompte, comme des compte à rebours qui commenceront à 60 secondes, avec l'affichage des dixièmes de secondes. Tout est expliqué sur la première page du classeur. Ci-joint un extrait de mon classeur.

Merci par avance pour votre aide, bonne après-midi.

 

[fredl]

Re : Compte à rebours sur userform avec pause et reprise

Legere amélioration sur le décompte du joueur 1 qui fonctionne(a adapter au joueur 2)
Par contre je n'ai pas reussi à gérer la pause... à faire...
Dis moi si tu ne t'en sorts pas.
Fred

 

[frederic1994]

Re : Compte à rebours sur userform avec pause et reprise

Bonsoir,

Merci de m'avoir aidé dans l’avancement de mon problème, j'ai réussis à intégrer le pause/reprise en mettant "+" à la place du "-". Tout fonctionne très bien sauf quand il arrive zéro, où il plante, et là je ne sais que faire. Je vous mes mon fichier avancé en pièce jointe.

Merci, bonne soirée.

 

[fredl]

Re : Compte à rebours sur userform avec pause et reprise

essaie ça :

Sub chrono_tourne()Do While fin_chrono = True
    
    Temps = DepartPause - [Now()]
    If Manche3.Label1.Caption = "00.02" Or Manche3.Label1.Caption = "00.01" Then
        Manche3.Label1.Caption = "00.00"
        Exit Sub
    End If
    Manche3.Label1.Caption = WorksheetFunction.Text(Temps, "ss.00")
    If Manche3.Label1.Caption < "10.00" Then
    Manche3.Label1.ForeColor = &HFF&
    End If
    If Manche3.Label1.Caption = "00.10" Then
    DoEvents
    Manche3.Image1.BackColor = &HFF&
    Manche3.Label1.BackColor = &HFF&
    Manche3.Label1.ForeColor = &HFF&
    J2
    End If
    
DoEvents
Loop
End Sub

 

[frederic1994]

Re : Compte à rebours sur userform avec pause et reprise

Bonjour,

Merci infiniment, le code fonctionne parfaitement.

Bon week-end.