Discussion :

[perchman]

Bonsoir,

voilà je souhaiterai afficher l'heure et/ou un chrono. Sur mon prgramme qui permet de trouver un nombre entre 1 et 100.

Aussi, je dois faire la saisie du nom et prénom pour le mettre dans une feuille EXcel avec le temps à côté.

Si vous avez besoin du code du programme: le voici:

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
Option Explicit
 
Sub hasard1()
     Dim secret As Integer
     Dim cherche As Integer
     Dim fin As Integer
     Dim inf As Integer
     Dim sup As Integer
     Dim ninf As Integer
     Dim nsup As Integer
     Dim max As Integer
     Randomize
     secret = Int(100 * Rnd) + 1
     ninf = 1
     nsup = 100
     max = 2
        cherche = InputBox("Essai n°1" & "   Intervalle: [" & ninf & ", " & nsup & "].  " & "Entrer un nombre:")
                Do
                   If cherche = secret Then
                       fin = MsgBox("Vous avez gagné !!")
                   Else
                       If cherche > secret Then
                           sup = MsgBox("C'est trop grand !")
                           nsup = cherche
                           cherche = InputBox("Essai n°" & max & "   Intervalle: [" & ninf & ", " & nsup & "].  " & "Entrer un nombre:")
                           max = max + 1
                       Else
                           inf = MsgBox("C'est trop petit !")
                           ninf = cherche
                           cherche = InputBox("Essai n°" & max & "   Intervalle: [" & ninf & ", " & nsup & "].  " & "Entrer un nombre:")
                           max = max + 1
                       End If
                   End If
                Loop While cherche <> secret And max <> 11
            If max = 11 Then
                MsgBox "Perdu"
            Else
                MsgBox "bravo"
            End If
End Sub

merci

[DidierLoche]

Bonsoir,

Il sufit de mémoriser l'heure avant le jeu et l'heure une fois le jeu terminé.

Code :

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

1
2
3
4
Temps_initial = Time
...
Temps_final = Time
Temps_écoulé = Format(Temps_Final - Temps_initial, "hh:mm:ss")

Tu stockes le tout dans un tableau ou tu l'affiches à l'écran.

Didier

[JackOuYA]

Si tu en est à travailler sur l'ergonomie de ton programme.. tu devrai peu-être te lancer et abandonner les inputBox et msgbox , en les remplaçant par un UserForm par exemple...

où des contrôles sur une feuille de calcul ...

tu dis quoi ...?

[perchman]

Disons que je débute en VBA !!

Le UserForm, j'ai pas encore appris !!

Mais c'est peut être le moment

sinon, je voudrai afficher le résultat puis mettre l'info dans une feuille EXcel !!

[JackOuYA]

pour écrire dans la feuille excel, tu peu accéder au classeur contenant ton code grâce à ThisWorkbook

par exemple :

Code :

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

ThisWorBook.sheets("Feuil1").range("A1") = "Ecriture en A1"

[perchman]

je vais tester ça demain, pour moi, ce soir, c'est fini

hop, dodo

merci beaucoup