Discussion :

[laurent1803]

bonjour
est il possible de faire clignoter une cellule ou une colonne ; non pas avec une macro ; mais avec un format de cellule spécialisée.
ex : si d4<0 (la cellule d4 clignote sinon rien )





dans le format de cellule spécialisée ; # ##0\ [rouge]-# ##0\ dans la colonne D
est il possible de remplacer la fonction [rouge] par une fonction clignot comme dans une macro (voire ci-dessous)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
For compteur = 1 To 20
     With Selection
         .Font.Name = "Arial".Size = 14
         .ColorIndex = 3.
     End With 
Application.Wait Now + TimeValue("00:00:01")
Application.Wait Now TimeValue("00:00:01")) / 2)

Si oui , comment
merci d'avance
laurent

[Gorfael]

Salut
Excel ne sait pas gérer le clignotement => pour le faire, on demande à windows de lancer une macro excel à une certaine heure. Alors, d'après ce que j'ai compris du fonctionnement d'Excel, ta demande est irealisable.
A+

[Invité]

Bonjour

Une petite recherche et Hop : http://www.developpez.net/forums/showthread.php?t=84394

Starec

[DarkVader]

Il a demandé « sans vba » et par le biais de la mise en forme conditionnelle,
ce qui est impossible pour la bonne raison que
1°) Excel évalue une valeur une fois pour toute
(encore heureux sinon pour peu qu'on ait par exemple un rnd ou un now ayant des dépendances dans une feuille, le résultat serait en recalcul permanent)
2°) pour la même raison, les formules de mise en forme conditionnelle ne sont évaluées qu'une fois avec un retour vrai/faux)

En conséquence, utiliser la mise en forme conditionnelle nécessite qu'une cellule (cachée) soit mise à jour à la fréquence voulue et raffraichie automatiquement.

Exemple proche de ceux fournis

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
' Dans les évènements Workbook
Private Sub Workbook_Open()
    GetTempo
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Application.OnTime EarliestTime:=Now, Procedure:="GetTempo", Schedule:=False
End Sub
 
' Dans un module
Dim vTempo As Boolean
 
Sub GetTempo()
    vTempo = Not vTempo
    Application.OnTime Now + TimeValue("00:00:01"), "GetTempo"
    [Feuil1!A1] = vTempo
End Sub

Il reste alors à utiliser le résultat dans la formule de mise en forme conditionnelle
=> =SI(ET($A$4=1;$A$1);VRAI;FAUX)

Problème
Les formules de mise en forme conditionnelle ne permettent pas de faire appel à des formules d'autres feuilles
il faudra donc ajouter dans chaque feuille pour laquelle la clignotement est utilisé un fonction =Feuil1!A1