Excel ou word
Résolu
jpierre76
Messages postés
77
Date d'inscription
Statut
Membre
Dernière intervention
-
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
A voir également:
- Excel ou word
- Word et excel gratuit - Guide
- Word 2013 - Télécharger - Traitement de texte
- Tableau word - Guide
- Si ou excel - Guide
- Liste déroulante excel - Guide
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
Faire clignoter des cellules dans Excel n'est pas très difficile, par contre que veux tu dire les sélectionner dans Word
jpierre76
je veux dire si je surligne un mot d'une phrase et qu'il puisses clignoter
Raymond PENTIER
Messages postés
58988
Date d'inscription
Statut
Contributeur
Dernière intervention
17 353
Alors là, il te faut acheter la version spéciale "Las Vegas by night" de Microsoft Office !
jpierre76
je cherche pas a faire un sapin de noêl !!! surtout que je l'ai déja fait sur une ancienne version de word mais là je cale , mais sur excel ce doit être plus facile je pense , si quelqu'un peut me donner le truc merci
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.
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.
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.