Chronométrer une tâche sous VBA Fermé

Question

Bonjour, 
Je souhaite chronométrer une tâche sous Visual Basic. En fait j'ai un programme qui fait un certain nombre de fois la même opération (c'est une boucle conditionnelle) et je voudrais chronométrer le temps que la machine a mis pour faire toutes ces opérations. 
Le chrono doit démarrer au moment où l'utilisateur clique sur le bouton de lancement des opérations et doit s'arrêter automatiquement une fois que la machine a terminé son travail. 
Je programme sous Visual Basic Express 2010 mais je suis un débutant. J'ai aperçu le timer mais je ne sais pas bien l'utiliser et les tutos sur le site du zéro et autre ne répondent pas à mon problème.

Voilà un peu à quoi ressemble le programme :
"
Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

'Les variables (nbop est une variable définie par l'utilisateur)
 Dim nbop As Integer
 Dim X As Integer = 1

'La boucle conditionnelle
While X < nbop
            X = X + 1
End While

End Sub
End Class
"
Au moment où on clique sur le Button1, le chrono démarre et s'arrête automatiquement une fois que X=nbop.

J'espère que j'ai été compris :D
Merci pour tout ceux qui m'apporterait une aide !!!!

Configuration: Windows 7 / Firefox 14.0.1

ccm81 · Answer

si j'ai compris ta demande, un exemple d'utilisation du timer 

Private Sub CommandButton1_Click()
Dim t1 As Single, t2 As Single, t As Single
Dim i As Long, ifin As Long
Dim s As Double
ifin = Range("A1").Value
t1 = Timer
For i = 1 To ifin
  s = Log(1 + i) * (Sin(i) ^ i + Cos(i) ^ i)
Next i
t2 = Timer
t = t2 - t1
MsgBox "temps mis : " & t & " secondes"
End Sub
bonne suite

totodunet · Answer

merci mais il me dit que "Timer" est un type et qu'il ne peut pas être utilisé en tant que expression et c'est justement ça le gros problème.
pour le "Range" pareil il me dit qu'il n'est pas accessible dans son contexte car il est Friend.
et est ce que tu peux me dire ce que représente le s, le i et le infin ainsi que la belle formule mathématique ^^
J'avoue que je suis perdu, je pensai que ça allait être juste deux lignes, une avant le while et une après le end while et un label texte qui m'affiche le temps... :O
merci!!

Chronométrer une tâche sous VBA

2 réponses

Discussions similaires