Tous les téléchargements de ouskel'n'or
|
|
Place un bouton après le dernier bouton de la barre "Standard" et lui affecte la macro "NomMacroAssociée" à l'ouverture du classeur et le supprime à la fermeture.
|
|
|
|
|
Utilisez la fonction API GetTickCount pour mesurer le temps écoulé.
|
|
|
|
|
Utilisation de la fonction API GetTickCount
En tête d'un module standard, déclarer la fonction vb Public Declare Function GetTickCount& Lib "kernel32" () puis pour l'utiliser : vb Sub MesureDuTempsQuiPasse() Dim Départ As Double, arrivée As Double, Durée As Double,i As Long Dim mn As Integer, ms As Integer, sd As Integer, tps As String Départ = GetTickCount& '************* ton code ******************** For i = 1 To 100000 'remplace le déroulement du code DoEvents Next '***************************************** arrivée = GetTickCount& Durée = arrivée - Départ mn = Int(Durée / 1000 / 60) sd = Int((Durée ... Voir la suite |
|
|