Macro/Programme de test

Salut Toto,

En voici un que j'utilise très régulièrement pour tester la rapidité des PC et les comparer :

'************************************
Option Explicit
Const Maxi As Byte = 50
Sub TestRapidité()
Dim i, j, k, plage_de_départ, plage_d_arrivée As Variant, Départ As Long
Columns("A:J").Select
Selection.ColumnWidth = 5
Selection.NumberFormat = "#,##0"
Range("l1:l2").Select
Selection.NumberFormat = "h:mm:ss.0"
Cells(1, 12).Value = Now()
Départ = Timer
For k = 0 To Maxi 'Step 3
For i = 1 To 10
For j = 1 To 10
Cells(i, j).Value = j + (((i - 1) * 10) + (k * (k <> 0) * (-100)))
With Cells(i, j).Interior
.ColorIndex = k
.Pattern = xlSolid
End With
Next
Next
Selection.NumberFormat = "h:mm:ss"
Cells(2, 12).Value = Now()
Range("l2").Select
Selection.NumberFormat = "h:mm:ss"
Cells(3, 12).Value = Minute(Cells(2, 12).Value) * 60 + Second(Cells(2, 12).Value) _
- Minute(Cells(1, 12).Value) * 60 - Second(Cells(1, 12).Value)
Next
Cells(65536, 13).End(xlUp).Offset(1, 0) = Format(Environ("USERNAME"), "@")
Cells(65536, 14).End(xlUp).Offset(1, 0) = (Timer - Départ)
End Sub

'************************************

Pour être efficace, hormis Excel, aucune tache ne doit tourner.

A+
Benead


Toto a écrit:

Bonjour

Est ce qu'il existe un programme ou une macro qui me permette de tester le fonctionnement de Excel apres l'application d'une mise a jour de securite.
Sinon je recherche une macro qui fait plein de test (nimporte quoi, c'est juste pour tester si tout va bien)

Merci
Toto