Bonjour, Je voudrais faire un formulaire simple avec un champ "minute" et "seconde" qui démarrerait à zéro dés l'ouverture du formulaire.( et un bouton de remise à zéro) merci Configuration: Windows / Chrome 79.0.3945.117

bonjour, cela peut se faire en utilisant la propriété TimerInterval du formulaire, et l’événement Timer du formulaire. Private Sub Form_Load() Me.TimerInterval = 1000 'déclenche toutes les secondes End Sub Private Sub Form_Timer() ' modifie l'affichage du minuteur End Sub

Minuteur [Résolu]

Réponse 2 / 5

le meruvien Messages postés 1111 Date d'inscription vendredi 12 août 2011 Statut Membre Dernière intervention 15 avril 2024 40
12 janv. 2020 à 11:04

Merci yg-be, mais ou je met tout ça??

yg_be Messages postés 22724 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 25 avril 2024 1 476
Modifié le 12 janv. 2020 à 12:11

peux-tu partager ton fichier, avec, dans le formulaire, les champs pour afficher le minuteur, et un bouton destiné à la remise à zéro?

Réponse 3 / 5

yg_be Messages postés 22724 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 25 avril 2024 1 476
12 janv. 2020 à 12:10

voici un exemple de code, à mettre dans le code du formulaire, avec un bouton qui s'appelle zero et une etiquette qui s'appelle minuteur.

Option Compare Database
Option Explicit
Dim debut As Date
Private Sub Form_Load()
debut = Now()
affiche_minuteur
Me.TimerInterval = 1000
End Sub
Private Sub form_timer()
affiche_minuteur
End Sub
Private Sub zero_Click()
debut = Now()
affiche_minuteur
End Sub
Private Sub affiche_minuteur()
Dim delai As Date, minutes As Long, secondes As Integer
delai = Now() - debut
minutes = Int(delai * 24 * 60)
secondes = (delai * 24 * 60 - minutes) * 60
Me.minuteur.Caption = CStr(minutes) + "min " + CStr(secondes) + "sec"
End Sub

Réponse 4 / 5

le meruvien Messages postés 1111 Date d'inscription vendredi 12 août 2011 Statut Membre Dernière intervention 15 avril 2024 40
12 janv. 2020 à 15:26

ben ça marche pas!!
J'ai mis mon fichier sur ci-joint, tu peut regarder.
https://www.cjoint.com/c/JAmoybwaIOd
merci

yg_be Messages postés 22724 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 25 avril 2024 1 476
12 janv. 2020 à 15:42

comment le message d'erreur que tu obtiens l'indique, tu as deux lignes avec Option Compare Database, il faut supprimer l'une des deux.
je vois aussi que tu n'as pas appelé le bouton zero. tu dois soit renommer le bouton, soit adapter la ligne 12 du code.

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question

Réponse 5 / 5

le meruvien Messages postés 1111 Date d'inscription vendredi 12 août 2011 Statut Membre Dernière intervention 15 avril 2024 40
13 janv. 2020 à 07:28

Bonjour, et un grand MERCI!! ça marche!!

Minuteur

5 réponses

Discussions similaires

Newsletters