Faire clignoter le cadre d'1 cellule

[Thierry37]

Bonjour,

J'aimerais pouvoir faire clignoter le cadre d'une cellule à l'aide d'une macro.
voici la macro basique :

Sub Macro11()
'
' Macro11 Macro
' Macro enregistrée le 16/09/2005 par thierry
'

'
Range('C3').Select
ActiveCell.FormulaR1C1 = 'Bonjour !'
Range('C3').Select
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


Avec ça le texte et le cadre apparaisse mais rien ne clignote.
Comment faire pour que le cadre clignote quelques secondes puis qu'il revienne à son état initial ?
Merci pour votre aide car je découvre le monde des macros mais le VBA je connais pas trop.
A peluche !

Thierry


PS : pour les réponses merci d'intégrer le code VBA dans votre message, le serveur de mon entreprise bloque les macros !!!

 

[Sylvie]

Bonjour Thierry37,

va voir ce Lien supprimé , tu y trouveras ton bonheur.

A+

 

[Thierry37]

Bonjour Sylvie,

Merci de m'avoir trouvé et indiqué des liens mais j'ai eu beau regarder ce qui ce faisait, j'ai testé. Mais ça ne marche pas.
Je ne dois pas faire ce qu'il faut et ce qui est sûr c'est que je ne comprends rien au VBA.
Ce que j'ai trouvé ne semble pas répondre à ce que souhaite faire.
Alors qui pourrait m'aider a y arriver et me faire comprendre comment ça fonctionne ?
Merci

A peluche !!!

 

[Eric C]

Bonjour le forum
Bonjour Thierry37, bonjour Sylvie

Essaies ceci :

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

Bonne fin de soirée à toutes & à tous

 

[JeanMarie]

Bonsoir tout le monde

Voici un fil du Forum 1ère génération
Lien supprimé

Il suffit de placer le code qui se trouve dans le module, et du ThisWorkBook, de créer le nom dans le classeur, et de définir la MFC, et Excel fait le reste.

@+Jean-Marie

 

[Thierry37]

Bonjour Eric,

C'est bien ce que je recherche. Par contre comment revenir à l'état initial après la fin du clignotement ?
Merci

A peluche !!!

 

[Thierry37]

Eric,

J'avais oublié de signaler que si l'utilisateur a le malheur de cliqué sur une autre cellule alors que le clignotement tourne toujours alors la cellule sélectionnée clignote !
Comment faire pour régler le temps de clignotement et éviter qu'en cliquant ailleurs il déplace le clignotement ?
Merci pour ton aide,


A peluche,

Thierry