bizbiz_2
Messages postés3Date d'inscriptionmercredi 7 janvier 2004StatutMembreDernière intervention28 janvier 2004
-
12 janv. 2004 à 02:58
bizbiz_2
Messages postés3Date d'inscriptionmercredi 7 janvier 2004StatutMembreDernière intervention28 janvier 2004
-
12 janv. 2004 à 23:45
Bonjour je sais pas si quelqu'un pourrait m'aider... je dois faire un questionnaire mais j'arrive pas a faire fonctionner le compte a rebours.
Voici mon code... quesque je dois y ajouter???
Dim NbFois As Byte
Dim Numéro As Byte
Public Sub Activate()
OptChoix1.Value = False
OptChoix2.Value = False
OptChoix3.Value = False
Private Sub Form_Load()
Corriger
Numéro = 1
Afficher
NbFois = 10
EtiRésultat.Caption = NbFois
End Sub
Private Sub Form_Activate()
OptChoix1.Value = False
OptChoix2.Value = False
OptChoix3.Value = False
End Sub
Private Sub MinRebours_Timer()
NbFois = NbFois - 1
EtiRésultat.Caption = NbFois
If NbFois = 0 Then
MinRebours.Enabled = False
MsgBox "C'est trop long"
Numéro = Numéro + 1
End If
End Sub
Public Sub Corriger()
If Numéro = 1 Then
If OptChoix1.Value = True Then
MsgBox "Erreur"
End If
If OptChoix2.Value = True Then
MsgBox "Bravo"
End If
If OptChoix3.Value = True Then
MsgBox "Erreur"
End If
End If
Activate
... même chose pour les autre numéros
End Sub
Private Sub OptChoix1_Click()
Corriger
Numéro = Numéro + 1
Afficher
Activate
End Sub
K@zuya
Messages postés306Date d'inscriptionvendredi 21 février 2003StatutMembreDernière intervention15 février 2016 12 janv. 2004 à 06:42
Il faut que tu declare ta variable NBFois dans les Options Explicit (en hait de ta form) pour qu'elle soit accessible à toute ta feuille, ci c'est déjà fait alors, tu peut aussi faire comme ça:
EtiRésultat.Caption = EtiRésultat.Caption -1
If EtiRésultat.Caption = 0 then
etc...