Ralentir l'exécution d'un macro

[Thierry37]

Bonjour,

Je souhaiterai que ma macro s'exécute moins vite, explications :

En fait, j'aimerais que lorsque j'arrive sur la feuille sélectionnée que le titre s'affiche :

soit lentement
soit se mette à clignoter pour attirer l'oeil du lecteur.

Comment faire ?
Merci pour votre aide.
A+

Thierry


voici le code VBA car le serveur de ma société bloque les macros... grrrr !!!! ;-)

Sub tabp1()
'
' tabp1 Macro
' Macro enregistrée le 16/09/2005 par CHAUVIER-00430
'

'
Sheets('P').Select
Range('A1').Select
Selection.Font.ColorIndex = 3
Range('A1').Select
ActiveCell.FormulaR1C1 = 'Accueil Physique'
Range('A1:B1').Select
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.ShrinkToFit = False
.MergeCells = False
End With
Selection.Merge
With Selection
.HorizontalAlignment = xlLeft
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.IndentLevel = 0
.ShrinkToFit = False
.MergeCells = True
End With
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.ShrinkToFit = False
.MergeCells = True
End With
Selection.Merge
Selection.Font.ColorIndex = 1
Selection.Font.ColorIndex = 3
End Sub
Sub tabp2()
'
' tabp2 Macro
' Macro enregistrée le 16/09/2005 par CHAUVIER-00430
'

'
Range('A1').Select
Selection.Font.ColorIndex = 3
End Sub

 

[Tenormadness]

bonjour,

Sub tabp2()
dim lintNbFois as integer,lintCpt as integer

lintnbfois = 10 ' nombre de fois le clignotements

for lintCpt = 1 to lintnbfois
select lintcpt mod 2
case 1
Range('A1').Font.ColorIndex = 3
case0
Range('A1').Font.ColorIndex = xlnone ' on index de la couleur blanc
end select
application.wait (Now + TimeValue('0:00:01')) ' clignote une seconde
next lintCpt

End Sub

 

[corto]

Salut Thierry
essaie avec :
Application.Wait Now + TimeValue('00:00:01')

01 = 1 seconde

Mais je ne suis pas sûr d'avoir répondu à ton pb.

Cdt

Corto

 

[Thierry37]

Bonjour,

J'ai fait un copier coller et ça pas marché.
J'ai une erreur de compilation : erreur de syntaxe !!!

Sub tabp2() est surligné ainsi que select lintcpt mod 2

comment faire ?
Merci

A peluche !!!

 

[Thierry37]

Bonjour Tenormadness et vous tous,

Bon j'ai toujours cette fichue erreur de syntaxe !
Elle se trouve à la ligne : select lintcpt mod 2
Merci de me dire ce que je dois faire car le VBA, je n'y connais rien !
A+

Thierry