De ce que j'ai compris, ça serait bêtement :
Public Sub compteur()
Dim i As Integer
For i = 0 To 500 Step 10
ActiveCell.Value = i
Next
End Sub
edit :
Après relecture de ton premier post, je crois que tu voulais faire ça
(En effet, dans ma première procédure, s'il n'y a que ça, tu risques pas de voir grand chose, si si tu rajoutes un Application.Wait par exemple...)
Sub compteur2()
Dim ra As Range
Set ra = Range("A1" )
ra.Value = 0
For i = 1 To 50
Set ra = ra.Offset(1, 0)
ra.Value = ra.Offset(-1, 0).Value + 10
Next
End Sub
Message édité par devil_k le 10-10-2007 à 16:35:46