|
|
|
|
Salut chercheur92,
Sub Chrono() Dim sngDepart As Single Dim sngArrivee As Single Dim lng As Long sngDepart = Timer For lng = 1 To 1000000000 Next sngArrivee = Timer MsgBox "Temps écoulé = " & sngArrivee - sngDepart & " secondes", vbInformation, "Chronomètre" End SubA+, Kobaya. |