Sub Tempo(milisecond As Integer)
Dim Start
Dim Pause
Pause = milisecond / 7200
Start = Timer
Do While Timer < Start + Pause
DoEvents
Loop
End Sub
Sub Macro11()
'
' Macro11 Macro
' Macro enregistrée le 16/09/2005 par thierry
'
Range('C3').Select
ActiveCell.FormulaR1C1 = 'Bonjour !'
Range('C3').Select
'Appel de la procédure
For i = 1 To 10
Selection.Borders.ColorIndex = 3 'rouge
Tempo (2000)
Selection.Borders.ColorIndex = 8 'bleu ciel
Tempo (2000)
Next
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.ShrinkToFit = False
.MergeCells = False
End With
Selection.Font.ColorIndex = 3
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = 46
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = 46
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = 46
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = 46
End With
Range('A1').Select
End Sub