Excel ou word
Résolu
jpierre76
Messages postés
80
Statut
Membre
-
jpierre76 -
jpierre76 -
Bonjour,
comment faire clignoter les cellules dans excel et les selections dans word
merci
cordialement
comment faire clignoter les cellules dans excel et les selections dans word
merci
cordialement
3 réponses
-
Salut,
Faire clignoter des cellules dans Excel n'est pas très difficile, par contre que veux tu dire les sélectionner dans Word -
Bonjour JPierre,
Tu veux que ta cellule clignote lorsqu'elle est sélectionnée, lorsqu'un évènement arrive dessus? Quelles sont les conditions du clignotement.
Concernant Excel, cela ne pourra être fait que par une macro. Il faut donc intercepter l'évènement.
-
Re,
Comment faire clignoter une cellule simplement, il faut un critère déclencheur, a moins que tu cherches à faire clignoter simplement la cellule active de la plage A1 à G20 par exemple !
dans ce cas colle ce code dans un module
Option Explicit
Sub Clignot()
Static Fond As Integer
On Error Resume Next
Compteur = Compteur - 1
With ActiveCell 'Feuil2.[C5]
If Compteur <= 0 Then
.Interior.ColorIndex = Fond
Else
If Compteur = Maxi - 1 Then Fond = .Interior.ColorIndex
.Interior.ColorIndex = IIf(Compteur Mod 2 > 0, 7, 0)
Application.OnTime Now + TimeValue("00:00:01"), "Clignot"
End If
End With
End Sub
et celui ci dans les propriété de la feuille
Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
[A1:G20].Interior.ColorIndex = xlNone
With Target
If .Value <> "" Or .Value = "" Then
If Compteur = 0 Then
Compteur = Maxi
Clignot
End If
Else
Compteur = 1
End If
End With
End Sub
A+
Mike-31
Une période d'échec est un moment rêvé pour semer les graines du savoir.