salut
j ai un petit fichier excel qui permet de chronométrer un triathlon que nous avons utilisé il y a 6 ans .... oui je sais c'est vieux.
Il utilise une commande
TopTime.Interval = 500 mais elle ne fonctionne plus, quelqu un peut m'aider??
salut
j ai un petit fichier excel qui permet de chronométrer un triathlon que nous avons utilisé il y a 6 ans .... oui je sais c'est vieux.
Il utilise une commande
TopTime.Interval = 500 mais elle ne fonctionne plus, quelqu un peut m'aider??
peux tu etre plus explicite?
tu as essayé de mettre un :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5a=Timer msgbox "tout un tas de chose" tempsdereponse=Timer-a
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6 Private Sub TopTime_Timer() LBTime.Caption = Time TopTime.Interval = 500 End Sub
Si tu penses pouvoir faire quelque chose, je peux t envoyer les fichiers.
Merci d avance
Et l'aide contextuelle et Explorateur d'objets ( F2 ) ?
Tu tapes dans l'éditeur de VB / Macros TopTime et le point et une liste de méthodes et objets va apparaitre..
sinon il y a une erreur dans le code..
je n y connais pas grand chose mais j ai bien 2 colonnes qui apparaissent avec Classes et membre de 'userForm3'
en fait je ne comprends pas trop ce que tu veux faire.
Personnellement pour chronométrer j'utiliserais Timer.
Mais si tu mettais un exemple avec un bout de code peut etre que j'y verrai plus clair.
ben le toptime c'est peur-être un timer... ? tu as (sûrement) changé de PC ..?
dans l'éditeur VBE .. outils Référence ... n'y as t'il pas des référence marquée manquante..?
tiens sinon un petit exemple de chrono , adaptable .. et qui n'utile pas de timer : Chronomètre et chronométrage
je ne connaissais pas, je note le truc.
Après reste a voir si c'est plus elégant que les timer.
Vi je suis un retrograde !
C'est un fichier de chronométrage mais qui propose un mur de chiffre, quand un coureur arrive, tu dois juste cliquer sur le numero, c'est rapide et efficace car les temps sont directement liés au dossard.
je vous copie une page de code, maintenant je peux envoyer les fichiers si quelqu un peut m'aider.
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
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151 Private Sub Label1_Click() End Sub '*********************************************************************************************************************** ' ACTIVATION DE LA FEUILLE '*********************************************************************************************************************** Private Sub UserForm_Activate() Dim i As Integer VNbre1 = 0 VNbre2 = 0 VChemin = ActiveWorkbook.Path VDrap = True 'lorsqu'on change la valeur d'un tgb, l'évennement click a lieu 'Tous les boutons en gris et inaccessible For i = 1 To 400 Controls("tgb" & i).BackColor = &HC0C0C0 Controls("tgb" & i).Enabled = False Next 'TRI Pourquoi ? Application.Goto Reference:="DATA" Selection.Sort Key1:=Range("M1"), Order1:=xlAscending, header:=xlGuess, _ OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom 'On colorise et donne accès aux boutons correspondants aux inscriptions For i = 1 To 400 If Worksheets("DONNEES").Cells(i, 1) <> "" Then Controls("tgb" & i).Enabled = True Controls("tgb" & i).BackColor = RGB(255, 255, 0) End If Next MultiPage1.Value = 0 'lorsqu'on change la valeur d'un toggle la multipage doit être activée 'Si dèja donné un top de passage, le bouton doit être enfoncé For i = 1 To 200 If Worksheets("DONNEES").Cells(i, 12) = "" Then Controls("tgb" & i).Value = False Else Controls("tgb" & i).Value = True VNbre1 = VNbre1 + 1 End If Next MultiPage1.Value = 1 'lorsqu'on change la valeur d'un toggle la multipage doit être activée For i = 201 To 400 If Worksheets("DONNEES").Cells(i, 12) = "" Then Controls("tgb" & i).Value = False Else Controls("tgb" & i).Value = True VNbre2 = VNbre2 + 1 End If Next LbNbre1.Caption = " Participants 1ère vague passés : " & " " & VNbre1 LbNbre2.Caption = " Participants 2ème vague passés : " & " " & VNbre2 VDrap = False 'Maintenant le contrôlebouton peut être activée End Sub '*********************************************************************************************************************** ' B O U T O N S '*********************************************************************************************************************** Private Sub BoutQuit_Click() UFFinCourse.Hide UFMenu.Show End Sub Private Sub BoutSave_Click() On Error GoTo ETierror ActiveWorkbook.Save EtiRetour: Exit Sub ETierror: MsgBox "Veuillez recommencer la sauvegarde s.v.p.", vbCritical, "PROBLEME DE SAUVEGARDE" Resume EtiRetour End Sub '*********************************************************************************************************************** ' P R O C E D U R E S '*********************************************************************************************************************** Sub Ctrl_boutons() 'controle des boutons Dim VReponse As Integer If VDrap = False Then If Controls(MaVariable).Value = False Then VReponse = MsgBox("Retirer le N°" & Controls(MaVariable).Caption & " ?", vbYesNo, "TDT") If VReponse = 6 Then Controls(MaVariable).Value = False Worksheets("DONNEES").Cells(Controls(MaVariable).Caption, 12) = "" If MultiPage1.Value = 0 Then VNbre1 = VNbre1 - 1 Else VNbre2 = VNbre2 - 1 End If Else Controls(MaVariable).Value = True End If Else If Worksheets("DONNEES").Cells(Controls(MaVariable).Caption, 12) = "" Then Worksheets("DONNEES").Cells(Controls(MaVariable).Caption, 12) = LBTime.Caption If MultiPage1.Value = 0 Then VNbre1 = VNbre1 + 1 Else VNbre2 = VNbre2 + 1 End If End If End If End If LbNbre1.Caption = " Participants 1ère vague passés : " & " " & VNbre1 LbNbre2.Caption = " Participants 2ème vague passés : " & " " & VNbre2 End Sub Private Sub TopTime_Timer() LBTime.Caption = Time TopTime.Interval = 500 End Sub '*********************************************************************************************************************** ' T O G G L E B O U T O N S '*********************************************************************************************************************** Private Sub Tgb1_Click() MaVariable = MultiPage1.Pages("page1").ActiveControl.Name Ctrl_boutons End Sub Private Sub Tgb2_Click() MaVariable = MultiPage1.Pages("page1").ActiveControl.Name Ctrl_boutons End Sub ' '(.... la même chose pour les 400 T O G G L E B O U T O N S...) ' Private Sub Tgb400_Click() MaVariable = MultiPage1.Pages("page2").ActiveControl.Name Ctrl_boutons End Sub
d'abords dans l'immédiat pour résoudre ton problème de timer merci de répondre à la question :
ensuite pour tes 400 contrôles... tu pourrai essayer d'utiliser le même principe qu'ici :Envoyé par bbil
Module de Classe, simulation VBA d'un groupe de contrôle
il manquait Itimer mais je l ai rajouté
... ? comment ..?Envoyé par Nikolas-069
et maintenant tu en est ou ..? quel est ton problème..?
J'ai rajouté dans win32 le fichier manquant ietimer.ocx.
Le problème qu'il me reste maitenant c'est qu'à l'endroit ou il est supposé mettre des temps, il me met toujours label1.
Donc pour chaque arrivée j ai label 1 et pas de temps.
pas de message d'erreur..? pas de référence manquante.?
La première fois oui mais plus maintenant.
Tu as un mail? que je te l envoies? je suis sur qu'avec ton experience, tu vas trouvé tout de suite.
ça passe pas en pièce jointe..?Envoyé par Nikolas-069
voilà j'en ai mis 2.
Le principe de fichier était à la base prévu pour chronometrer les différentes épreuves d'un triathlon.
- départ natation
- arrivé natation
- départ vélo
- arrivé vélo
etc..
Le fichier Triathlon servait au départ de la course et à l'arrivée finale, avec en plus la possibilité de gérer les inscriptions.
L'autre fichier ne gére qu une arrivée. C'était avant l époque du wifi et le début des stick USB donc les infos devaient être enregistré sur disquette.
Ca va mieux avec le mot de passe
TJZ5400
as tu gardé une ancienne sauvegarde de ce fichier ( avant utilisation sur un PC où ieTimer n'étais pas installé..) ..
si oui essai à nouveau cette sauvegarde...
si non ... il te faut rajouter sur ton userform3 ... un contrôle ieTimer (voir :
Utiliser les Contrôles ) tu trouveras celui-ci dans Affichage/Boîte à outils/ puis click droit sur la boîtes à outils , contrôles supplémentaires ...sélectionner "Timer Object" puis pose ce nouveau objet "Ie Timer" sur l'userform , le nommer "TopTime" .. et mettre la propriété Interval à 500..
Bon ben j ai essayé mais même si après un passage de debogage tout est ok. Quand je lance, toutes les arrivées sont indiquées comme label1, je pense que c est lié à un autre fichier.
Vous avez un bloqueur de publicités installé.
Le Club Developpez.com n'affiche que des publicités IT, discrètes et non intrusives.
Afin que nous puissions continuer à vous fournir gratuitement du contenu de qualité, merci de nous soutenir en désactivant votre bloqueur de publicités sur Developpez.com.
Partager