Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Couleur appliquée par une MFC

Couleur appliquée par une MFC

10 réponses
Avatar
Julien
Bonsoir à tous,

J'utilise une macro qui contrôle la couleur des cellules (Interior.Color).
apparemment, cette méthode ne permet pas de "voir" la couleur des cellules
colorés par une MFC (mise en forme conditionnelle).

Est-ce que quelqu'un connait un moyen de récupère la couleur quand elle est
appliquée par une MFC ?

Merci de votre aide,

Julien
Signaler un problème avec ce contenu

10 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Jacky
Bonsoir,

Regarde ici

http://www.excelabo.net/excel/conditionformat.php#couleurdeMEFC

Ps / Perso. j'utilise la condition utilisée pour la Mfc pour faire ce genre
de
contrôle.

--
Salutations
JJ


"Julien" a écrit dans le message de news:

Bonsoir à tous,

J'utilise une macro qui contrôle la couleur des cellules (Interior.Color).
apparemment, cette méthode ne permet pas de "voir" la couleur des cellules
colorés par une MFC (mise en forme conditionnelle).

Est-ce que quelqu'un connait un moyen de récupère la couleur quand elle
est appliquée par une MFC ?

Merci de votre aide,

Julien





Avatar
Julien
Merci Jacky.
J'ai testé la procédure proposée par Excelabo, mais sous Excel 2003, elle ne
me renvoi que la couleur de la MFC, même si elle n'est pas appliquée.

Qu'entends tu par "j'utilise la condition utilisée pour la Mfc pour faire ce
genre de contrôle" ?

Merci,

Julien



"Jacky" a écrit dans le message de news:

Bonsoir,

Regarde ici

http://www.excelabo.net/excel/conditionformat.php#couleurdeMEFC

Ps / Perso. j'utilise la condition utilisée pour la Mfc pour faire ce
genre de
contrôle.

--
Salutations
JJ


"Julien" a écrit dans le message de news:

Bonsoir à tous,

J'utilise une macro qui contrôle la couleur des cellules
(Interior.Color).
apparemment, cette méthode ne permet pas de "voir" la couleur des
cellules
colorés par une MFC (mise en forme conditionnelle).

Est-ce que quelqu'un connait un moyen de récupère la couleur quand elle
est appliquée par une MFC ?

Merci de votre aide,

Julien










Avatar
Jacky
Re...
Pour mettre en place la MFC, il faut une condition Vrai/faux qui la plupart
du temps est la résultante d'une formule
Par exemple
A1>100
ou
=NB.SI($A$2:$A$100;A2)>1
format etc...
Ben, j'utilise cette même condition dans le code Vba pour parvenir a mon
résultat.

--
Salutations
JJ


"Julien" a écrit dans le message de news:

Merci Jacky.
J'ai testé la procédure proposée par Excelabo, mais sous Excel 2003, elle
ne me renvoi que la couleur de la MFC, même si elle n'est pas appliquée.

Qu'entends tu par "j'utilise la condition utilisée pour la Mfc pour faire
ce genre de contrôle" ?

Merci,

Julien



"Jacky" a écrit dans le message de news:

Bonsoir,

Regarde ici

http://www.excelabo.net/excel/conditionformat.php#couleurdeMEFC

Ps / Perso. j'utilise la condition utilisée pour la Mfc pour faire ce
genre de
contrôle.

--
Salutations
JJ


"Julien" a écrit dans le message de news:

Bonsoir à tous,

J'utilise une macro qui contrôle la couleur des cellules
(Interior.Color).
apparemment, cette méthode ne permet pas de "voir" la couleur des
cellules
colorés par une MFC (mise en forme conditionnelle).

Est-ce que quelqu'un connait un moyen de récupère la couleur quand elle
est appliquée par une MFC ?

Merci de votre aide,

Julien














Avatar
Julien
Je vais creuser, merci

"Jacky" a écrit dans le message de news:
%
Re...
Pour mettre en place la MFC, il faut une condition Vrai/faux qui la
plupart du temps est la résultante d'une formule
Par exemple
A1>100
ou
=NB.SI($A$2:$A$100;A2)>1
format etc...
Ben, j'utilise cette même condition dans le code Vba pour parvenir a mon
résultat.

--
Salutations
JJ


"Julien" a écrit dans le message de news:

Merci Jacky.
J'ai testé la procédure proposée par Excelabo, mais sous Excel 2003, elle
ne me renvoi que la couleur de la MFC, même si elle n'est pas appliquée.

Qu'entends tu par "j'utilise la condition utilisée pour la Mfc pour faire
ce genre de contrôle" ?

Merci,

Julien



"Jacky" a écrit dans le message de news:

Bonsoir,

Regarde ici

http://www.excelabo.net/excel/conditionformat.php#couleurdeMEFC

Ps / Perso. j'utilise la condition utilisée pour la Mfc pour faire ce
genre de
contrôle.

--
Salutations
JJ


"Julien" a écrit dans le message de news:

Bonsoir à tous,

J'utilise une macro qui contrôle la couleur des cellules
(Interior.Color).
apparemment, cette méthode ne permet pas de "voir" la couleur des
cellules
colorés par une MFC (mise en forme conditionnelle).

Est-ce que quelqu'un connait un moyen de récupère la couleur quand elle
est appliquée par une MFC ?

Merci de votre aide,

Julien


















Avatar
Daniel.C
Bonsoir.
Essaie la macro suivante. Elle teste la cellule A1 dans l'exemple et
nécessite l'utilisation d'une cellule intermédiaire (ici A2) :

Sub test()
Dim FC As FormatCondition
For Each FC In Range("A1").FormatConditions
Range("A2").FormulaLocal = FC.Formula1
If Evaluate([A2].Formula) = True Then
MsgBox FC.Interior.ColorIndex
Exit For
End If
Next FC
End Sub

Cordialement.
Daniel
"Julien" a écrit dans le message de news:
%
Je vais creuser, merci

"Jacky" a écrit dans le message de news:
%
Re...
Pour mettre en place la MFC, il faut une condition Vrai/faux qui la
plupart du temps est la résultante d'une formule
Par exemple
A1>100
ou
=NB.SI($A$2:$A$100;A2)>1
format etc...
Ben, j'utilise cette même condition dans le code Vba pour parvenir a mon
résultat.

--
Salutations
JJ


"Julien" a écrit dans le message de news:

Merci Jacky.
J'ai testé la procédure proposée par Excelabo, mais sous Excel 2003,
elle ne me renvoi que la couleur de la MFC, même si elle n'est pas
appliquée.

Qu'entends tu par "j'utilise la condition utilisée pour la Mfc pour
faire ce genre de contrôle" ?

Merci,

Julien



"Jacky" a écrit dans le message de news:

Bonsoir,

Regarde ici

http://www.excelabo.net/excel/conditionformat.php#couleurdeMEFC

Ps / Perso. j'utilise la condition utilisée pour la Mfc pour faire ce
genre de
contrôle.

--
Salutations
JJ


"Julien" a écrit dans le message de news:

Bonsoir à tous,

J'utilise une macro qui contrôle la couleur des cellules
(Interior.Color).
apparemment, cette méthode ne permet pas de "voir" la couleur des
cellules
colorés par une MFC (mise en forme conditionnelle).

Est-ce que quelqu'un connait un moyen de récupère la couleur quand
elle
est appliquée par une MFC ?

Merci de votre aide,

Julien






















Avatar
JB
Bonjour,

Function CouleurMFC(cel)
Application.Volatile
Set c = Range(cel.Address)
ff = Array("Somme", "aujourdhui()", "nb.si", "equiv", "recherchev")
fa = Array("Sum", "today()", "countif", "match", "vlookup")
a = Array("=", ">", "<", ">=", "<=", "<>", "BETWEEN")
b = Array(xlEqual, xlGreater, xlLess, xlGreaterEqual, xlLessEqual,
xlNotEqual, xlBetween)
i = 1
Do While i <= c.FormatConditions.Count And Not témoin
If c.FormatConditions(i).Type = xlCellValue Then
tmp1 = Evaluate(c.FormatConditions(i).Formula1)
oper = a(Application.Match(c.FormatConditions(i).Operator, b, 0)
- 1)
If oper <> "BETWEEN" Then
If Evaluate(c & oper & tmp1) Then
coul = c.FormatConditions(i).Interior.ColorIndex
témoin = True
End If
Else
tmp2 = Evaluate(c.FormatConditions(i).Formula2)
If Evaluate("AND(" & c & ">=" & tmp1 & "," & c & "<=" & tmp2 &
")") Then
coul = c.FormatConditions(i).Interior.ColorIndex
témoin = True
End If
End If
Else
z = c.FormatConditions(i).Formula1
For k = LBound(ff) To UBound(ff)
z = Replace(z, UCase(ff(k)), UCase(fa(k)))
Next k
If Evaluate(z) = True Then
coul = c.FormatConditions(i).Interior.ColorIndex
témoin = True
End If
End If
i = i + 1
Loop
CouleurMFC = coul
End Function

http://cjoint.com/?dklg6dt8Qk

JB
On 9 mar, 21:30, "Julien" wrote:
Bonsoir à tous,

J'utilise une macro qui contrôle la couleur des cellules (Interior.Color ).
apparemment, cette méthode ne permet pas de "voir" la couleur des cellul es
colorés par une MFC (mise en forme conditionnelle).

Est-ce que quelqu'un connait un moyen de récupère la couleur quand ell e est
appliquée par une MFC ?

Merci de votre aide,

Julien


Avatar
JB
Autre fonction:

Function compteCoulMFC(champ As Range, coul)
Application.Volatile
For Each c In champ
If CouleurMFC(c) = coul Then
t = t + 1
End If
Next c
compteCoulMFC = t
End Function

http://cjoint.com/?dklBq0EftC

JB
http://boisgontierjacques.free.fr/

On 10 mar, 11:07, JB wrote:
Bonjour,

Function CouleurMFC(cel)
  Application.Volatile
  Set c = Range(cel.Address)
  ff = Array("Somme", "aujourdhui()", "nb.si", "equiv", "recherchev")
  fa = Array("Sum", "today()", "countif", "match", "vlookup")
  a = Array("=", ">", "<", ">=", "<=", "<>", "BETWEEN")
  b = Array(xlEqual, xlGreater, xlLess, xlGreaterEqual, xlLessEqual,
xlNotEqual, xlBetween)
  i = 1
  Do While i <= c.FormatConditions.Count And Not témoin
    If c.FormatConditions(i).Type = xlCellValue Then
      tmp1 = Evaluate(c.FormatConditions(i).Formula1)
      oper = a(Application.Match(c.FormatConditions(i).Operator, b , 0)
- 1)
      If oper <> "BETWEEN" Then
        If Evaluate(c & oper & tmp1) Then
          coul = c.FormatConditions(i).Interior.ColorIndex
          témoin = True
        End If
      Else
       tmp2 = Evaluate(c.FormatConditions(i).Formula2)
       If Evaluate("AND(" & c & ">=" & tmp1 & "," & c & "<=" & tmp2 &
")") Then
         coul = c.FormatConditions(i).Interior.ColorIndex
         témoin = True
       End If
     End If
   Else
    z = c.FormatConditions(i).Formula1
    For k = LBound(ff) To UBound(ff)
      z = Replace(z, UCase(ff(k)), UCase(fa(k)))
    Next k
    If Evaluate(z) = True Then
       coul = c.FormatConditions(i).Interior.ColorIndex
       témoin = True
    End If
   End If
   i = i + 1
 Loop
 CouleurMFC = coul
End Function

http://cjoint.com/?dklg6dt8Qk

JB
On 9 mar, 21:30, "Julien" wrote:



Bonsoir à tous,

J'utilise une macro qui contrôle la couleur des cellules (Interior.Col or).
apparemment, cette méthode ne permet pas de "voir" la couleur des cell ules
colorés par une MFC (mise en forme conditionnelle).

Est-ce que quelqu'un connait un moyen de récupère la couleur quand e lle est
appliquée par une MFC ?

Merci de votre aide,

Julien- Masquer le texte des messages précédents -


- Afficher le texte des messages précédents -



Avatar
JB
Bonjour,

Ne fonctionne que pour une MFC formule, mais pas une MFC valeur.

JB
On 10 mar, 00:06, "Daniel.C" wrote:
Bonsoir.
Essaie la macro suivante. Elle teste la cellule A1 dans l'exemple et
nécessite l'utilisation d'une cellule intermédiaire (ici A2) :

Sub test()
Dim FC As FormatCondition
For Each FC In Range("A1").FormatConditions
    Range("A2").FormulaLocal = FC.Formula1
    If Evaluate([A2].Formula) = True Then
        MsgBox FC.Interior.ColorIndex
        Exit For
    End If
Next FC
End Sub

Cordialement.
Daniel
"Julien" a écrit dans le message de news:
%



Je vais creuser, merci

"Jacky" a écrit dans le message de news:
%
Re...
Pour mettre en place la MFC, il faut une condition Vrai/faux qui la
plupart du temps est la résultante d'une formule
Par exemple
A1>100
ou
=NB.SI($A$2:$A$100;A2)>1
format etc...
Ben,  j'utilise cette même condition dans le code Vba pour parvenir a mon
résultat.

--
Salutations
JJ

"Julien" a écrit dans le message de news:

Merci Jacky.
J'ai testé la procédure proposée par Excelabo, mais sous Excel 2 003,
elle ne me renvoi que la couleur de la MFC, même si elle n'est pas
appliquée.

Qu'entends tu par "j'utilise la condition utilisée pour la Mfc pour
faire ce genre de contrôle" ?

Merci,

Julien

"Jacky" a écrit dans le message de news:

Bonsoir,

Regarde ici

http://www.excelabo.net/excel/conditionformat.php#couleurdeMEFC

Ps / Perso. j'utilise la condition utilisée pour la Mfc pour faire ce
genre de
contrôle.

--
Salutations
JJ

"Julien" a écrit dans le message de news:

Bonsoir à tous,

J'utilise une macro qui contrôle la couleur des cellules
(Interior.Color).
apparemment, cette méthode ne permet pas de "voir" la couleur des
cellules
colorés par une MFC (mise en forme conditionnelle).

Est-ce que quelqu'un connait un moyen de récupère la couleur qua nd
elle
est appliquée par une MFC ?

Merci de votre aide,

Julien- Masquer le texte des messages précédents -






- Afficher le texte des messages précédents -







Avatar
Daniel.C
Bonjour.
Je l'ai réalisé en voyant ta fonction. Il était tard, et à ma décharge, je
ne me sers que de formules dans les MFC.
J'ai aussi réallisé qu'avec les MFC "arc en ciel" de XL2007, ça frisait la
mission impossible.
Daniel
"JB" a écrit dans le message de news:

Bonjour,

Ne fonctionne que pour une MFC formule, mais pas une MFC valeur.

JB
On 10 mar, 00:06, "Daniel.C" wrote:
Bonsoir.
Essaie la macro suivante. Elle teste la cellule A1 dans l'exemple et
nécessite l'utilisation d'une cellule intermédiaire (ici A2) :

Sub test()
Dim FC As FormatCondition
For Each FC In Range("A1").FormatConditions
Range("A2").FormulaLocal = FC.Formula1
If Evaluate([A2].Formula) = True Then
MsgBox FC.Interior.ColorIndex
Exit For
End If
Next FC
End Sub

Cordialement.
Daniel
"Julien" a écrit dans le message de news:
%



Je vais creuser, merci

"Jacky" a écrit dans le message de news:
%
Re...
Pour mettre en place la MFC, il faut une condition Vrai/faux qui la
plupart du temps est la résultante d'une formule
Par exemple
A1>100
ou
=NB.SI($A$2:$A$100;A2)>1
format etc...
Ben, j'utilise cette même condition dans le code Vba pour parvenir a
mon
résultat.

--
Salutations
JJ

"Julien" a écrit dans le message de news:

Merci Jacky.
J'ai testé la procédure proposée par Excelabo, mais sous Excel 2003,
elle ne me renvoi que la couleur de la MFC, même si elle n'est pas
appliquée.

Qu'entends tu par "j'utilise la condition utilisée pour la Mfc pour
faire ce genre de contrôle" ?

Merci,

Julien

"Jacky" a écrit dans le message de news:

Bonsoir,

Regarde ici

http://www.excelabo.net/excel/conditionformat.php#couleurdeMEFC

Ps / Perso. j'utilise la condition utilisée pour la Mfc pour faire ce
genre de
contrôle.

--
Salutations
JJ

"Julien" a écrit dans le message de news:

Bonsoir à tous,

J'utilise une macro qui contrôle la couleur des cellules
(Interior.Color).
apparemment, cette méthode ne permet pas de "voir" la couleur des
cellules
colorés par une MFC (mise en forme conditionnelle).

Est-ce que quelqu'un connait un moyen de récupère la couleur quand
elle
est appliquée par une MFC ?

Merci de votre aide,

Julien- Masquer le texte des messages précédents -






- Afficher le texte des messages précédents -







Avatar
Julien
Bonjour JB & Daniel,

Merci pour vos fonctions !

Je vais tester tout ça...

A +

Julien


"JB" a écrit dans le message de news:

Bonjour,

Function CouleurMFC(cel)
Application.Volatile
Set c = Range(cel.Address)
ff = Array("Somme", "aujourdhui()", "nb.si", "equiv", "recherchev")
fa = Array("Sum", "today()", "countif", "match", "vlookup")
a = Array("=", ">", "<", ">=", "<=", "<>", "BETWEEN")
b = Array(xlEqual, xlGreater, xlLess, xlGreaterEqual, xlLessEqual,
xlNotEqual, xlBetween)
i = 1
Do While i <= c.FormatConditions.Count And Not témoin
If c.FormatConditions(i).Type = xlCellValue Then
tmp1 = Evaluate(c.FormatConditions(i).Formula1)
oper = a(Application.Match(c.FormatConditions(i).Operator, b, 0)
- 1)
If oper <> "BETWEEN" Then
If Evaluate(c & oper & tmp1) Then
coul = c.FormatConditions(i).Interior.ColorIndex
témoin = True
End If
Else
tmp2 = Evaluate(c.FormatConditions(i).Formula2)
If Evaluate("AND(" & c & ">=" & tmp1 & "," & c & "<=" & tmp2 &
")") Then
coul = c.FormatConditions(i).Interior.ColorIndex
témoin = True
End If
End If
Else
z = c.FormatConditions(i).Formula1
For k = LBound(ff) To UBound(ff)
z = Replace(z, UCase(ff(k)), UCase(fa(k)))
Next k
If Evaluate(z) = True Then
coul = c.FormatConditions(i).Interior.ColorIndex
témoin = True
End If
End If
i = i + 1
Loop
CouleurMFC = coul
End Function

http://cjoint.com/?dklg6dt8Qk

JB
On 9 mar, 21:30, "Julien" wrote:
Bonsoir à tous,

J'utilise une macro qui contrôle la couleur des cellules (Interior.Color).
apparemment, cette méthode ne permet pas de "voir" la couleur des cellules
colorés par une MFC (mise en forme conditionnelle).

Est-ce que quelqu'un connait un moyen de récupère la couleur quand elle
est
appliquée par une MFC ?

Merci de votre aide,

Julien