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
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