Discussion :

[Kestion100]

Bonjour,
Est-il possible de faire clignoter une mise en forme conditionnelle déjà existante sur une feuille de calculs?

Je sais qu'il est possible de faire clignoter une cellule mais j'ai déjà toute une MEFC sur ma feuille et voudrait ne pas y toucher, sauf à la faire clignoter.

MERCI

[Kimy_Ire]

Bonjour Kestion100,

Les mises en formes conditionnelles sont, par nature, prioritaires par rapport aux mises en forme manuelles.
Ainsi, tu ne pourras jamais avoir une mise en forme manuelle (ta cellule clignotante) si une mise en forme conditionnelle est présente sur la même cellule.

D'après moi, la seule solution serait, dans la macro (j'imagine) permettant de faire clignoter ta cellule, de retirer la mise en forme conditionnelle associée.

Mais un expert Excel plus performant que moi pourra peut-être apporter une autre solution. Cependant, je doute que cela soit faisable.

Cordialement,
Kimy

[Invité]

bonjour,
Une autre solution qui consiste à insérer une colonne masquée qui elle serait prise en compte dans le filtre conditionnel ou par macro tu vendrais changer la valeur!

[PMO2017]

Bonjour,

Une piste avec le code suivant à copier dans un module Standard

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
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
Dim FC As Object
Dim Bool As Boolean
Dim CouleurMFC&
 
Sub ClignotementMFC(Optional dummy As Byte)
Dim Couleurs
Static Passe%
'---
If Not Bool Then
  Passe% = 0
  Exit Sub
End If
'--- Les couleurs ---
Couleurs = Array(vbRed, vbCyan)  '(vbRed, vbCyan,vbGreen, vbMagenta, vbYellow)
'--- Applique les couleurs ---
If Passe% > UBound(Couleurs) Then Passe% = 0
FC.Interior.Color = Couleurs(Passe%)
Passe% = Passe% + 1
'--- Relance la procédure toutes les secondes ---
Application.OnTime Now + TimeValue("00:00:01"), "ClignotementMFC"
End Sub
 
Sub LanceClignotementMFC()
Dim FC2 As FormatCondition
'---
If Bool Then Exit Sub
'--- Identifie la MFC et mémorise sa couleur d'origine ---
For Each FC2 In ActiveSheet.Cells.FormatConditions
  Set FC = FC2
  CouleurMFC& = FC.Interior.Color
Next FC2
'--- Appelle la procédure de colorisation ---
If Not FC Is Nothing Then
  Bool = True
  Call ClignotementMFC
End If
End Sub
 
Sub StopClignotementMFC()
Bool = False
Call ClignotementMFC
If Not FC Is Nothing Then
  FC.Interior.Color = CouleurMFC& 'remet la couleur d'origine
  Set FC = Nothing
End If
CouleurMFC& = 0
End Sub