récupérer les codes couleurs sur mise en forme conditionnelle

O

obelix77

XLDnaute Junior

• 31 Janvier 2016

• #16

Re : récupérer les codes couleurs sur mise en forme conditionnelle

Hello à tous,

Il n'interresse plus personne mon problème?

Au secours SVP
Bonne fin de week-end

 

Vote positif 0 Vote négatif

M

mécano41

XLDnaute Accro

• 31 Janvier 2016

• #17

Re : récupérer les codes couleurs sur mise en forme conditionnelle

J'ai cherché mais je n'ai pas trouvé...

C'est la condition " If Cel.DisplayFormat.Interior.Color = ..." qui semble ne pas être acceptée dans une fonction...mais je ne sais pas pourquoi...

Désolé...

Cordialement

 

Vote positif 0 Vote négatif

O

obelix77

XLDnaute Junior

• 31 Janvier 2016

• #18

Re : récupérer les codes couleurs sur mise en forme conditionnelle

Merci beaucoup mécano41.

Peut être quelqu'un d'autre aura une diée.

SInon, va falloir que je trouve autre chose que les MFC 🙁 🙁 🙁 🙁

Bon dimanche à tous

 

Vote positif 0 Vote négatif

M

mécano41

XLDnaute Accro

• 1 Février 2016

• #19

Re : récupérer les codes couleurs sur mise en forme conditionnelle

Bonjour,

Tu as toujours la solution proposée par plusieurs intervenants : utiliser les conditions de la cellule munie de la MFC, pour en déterminer la couleur ; mais peut-être cela sera-t-il trop compliqué dans ton application réelle...

PS : j'aurais quand même bien aimé savoir où je me suis trompé dans la fonction que j'ai faite ... 😡 🙂 🙂

Cordialement

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 1 Février 2016

• #20

Re : récupérer les codes couleurs sur mise en forme conditionnelle

Bonjour à tous,

mécano41 à dit:

C'est la condition " If Cel.DisplayFormat.Interior.Color = ..." qui semble ne pas être acceptée dans une fonction...mais je ne sais pas pourquoi...

Cliquez pour agrandir...

Voyez ce lien :

Ce lien n'existe plus

Note that the DisplayFormat property does not work in user defined functions

Cliquez pour agrandir...

A+



Note that the DisplayFormat property does not work in user defined functions

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 1 Février 2016

• #21

Re : récupérer les codes couleurs sur mise en forme conditionnelle

Re,

Par contre appelée dans VBA la fonction fonctionne :

Code:

Sub a()
MsgBox F([A1])
End Sub

Function F(r As Range)
F = r.DisplayFormat.Interior.ColorIndex
End Function

A+

 

Vote positif 0 Vote négatif

O

obelix77

XLDnaute Junior

• 1 Février 2016

• #22

Re : récupérer les codes couleurs sur mise en forme conditionnelle

Bonjour mécano41 et bonjour à tous

En fait, je m'adresse à des utilisateurs basiques qui savent :
utiliser SI
utilise SOMME.SI et NB.SI
et qui sauront utiliser une fonction simple du type "=couleur" ou "couleurMFC", en pointant sur une cellule

D’où ma demande insistante d'voir une fonction qui donne le code couleur d'un fond de cellule, qu'il soit manuel ou MFC.

Je suis sur que, vue les compétences sur ce forum, on va finir par y arriver.
En plus, je suis d'un naturel optimiste 😎

Bon après midi à tous

 

Vote positif 0 Vote négatif

M

mécano41

XLDnaute Accro

• 1 Février 2016

• #23

Re : récupérer les codes couleurs sur mise en forme conditionnelle

Merci, Job75 pour ces renseignements...

Cordialement

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 1 Février 2016

• #24

Re : récupérer les codes couleurs sur mise en forme conditionnelle

Re,

Pourquoi ne pas utiliser une feuille auxiliaire pour stocker les codes couleurs ?

Voyez le fichier joint et cette macro dans le code de la 1ère feuille :

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim P As Range, t, ncol%, i&, j%
Set P = Me.UsedRange
If P.Count = 1 Then
  t = P.DisplayFormat.Interior.ColorIndex
Else
  t = P 'matrice, plus rapide
  ncol = UBound(t, 2)
  For i = 1 To UBound(t)
    For j = 1 To ncol
      t(i, j) = P(i, j).DisplayFormat.Interior.ColorIndex
  Next j, i
End If
With Feuil2 'CodeName de la feuille auxiliaire
  .Cells.ClearContents 'RAZ
  .Range(P.Address) = t
End With
End Sub

Dans les formules analysant la 1ère feuille il suffit d'utiliser la feuille "Couleurs" quand il s'agit d'étudier les couleurs...

A+

 

Pièces jointes

• Couleurs(1).xlsm

  16.9 KB · Affichages: 45

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 1 Février 2016

• #25

Re : récupérer les codes couleurs sur mise en forme conditionnelle

Re,

Exemple d'analyse dans ce fichier (2).

A+

 

Pièces jointes

• Couleurs(2).xlsm

  18.1 KB · Affichages: 45

Vote positif 0 Vote négatif

ROGER2327

XLDnaute Barbatruc

• 1 Février 2016

• #26

Re : récupérer les codes couleurs sur mise en forme conditionnelle

Bonjour à tous.

Un bricolage à adapter...​

Bonne journée.


ℝOGER2327
#8194

Samedi 7 Gueules 143 (Saint Gueule, abbé - fête Suprême Quarte)
12 Pluviôse An CCXXIV, 5,6805h - brocoli
2016-W05-1T13:38:00Z

 

Pièces jointes

• LectureCouleurFondCellule.xlsm

  22 KB · Affichages: 38

Vote positif 0 Vote négatif

M

mécano41

XLDnaute Accro

• 1 Février 2016

• #27

Re : récupérer les codes couleurs sur mise en forme conditionnelle

Une idée...regarde si cela fonctionne bien chez toi...je ne sais pas si cela va bien pour 1 million de lignes...

(cela fonctionne avec une plage de plusieurs colonnes)

Cordialement

 

Pièces jointes

• Couleur fond par MFC2 .xlsm

  20 KB · Affichages: 41

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 1 Février 2016

• #28

Re : récupérer les codes couleurs sur mise en forme conditionnelle

Re, bonjour Roger,

En complément voyez cette fonction fourre-tout qui gère les références :

Code:

Function REF(r As Range, Optional NumeroFeuil = 1, Optional adresse = False)
If adresse Then REF = r.Address(0, 0) _
  Else Set REF = IIf(NumeroFeuil = 1, Feuil1, Feuil2).Range(r.Address)
End Function

Elle renvoie soit l'adresse de la référence (colonne I) soit la référence dans la feuille indiquée (colonne J).

Fichier (3).

A+

 

Pièces jointes

• Couleurs(3).xlsm

  19.7 KB · Affichages: 43

Dernière édition: 1 Février 2016

Vote positif 0 Vote négatif

V

VIARD

XLDnaute Impliqué

• 1 Février 2016

• #29

Re : récupérer les codes couleurs sur mise en forme conditionnelle

Bonjour à Tous

Les procédures utilisant (DisplayFormat.Interior.ColorIndex) ne fonctionnent que sur office2013 et après, mais office2007 c'est râpé.
par contre avec la procédure de "L.Longre" pas de souci, je l'appel depuis une autre c'est tout bon.

A+ Jean-Paul

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 1 Février 2016

• #30

Re : récupérer les codes couleurs sur mise en forme conditionnelle

VIARD à dit:

Les procédures utilisant (DisplayFormat.Interior.ColorIndex) ne fonctionnent que sur office2013 et après

Cliquez pour agrandir...

Testé sur mon autre ordi avec Excel 2010 : aucun problème.

 

Vote positif 0 Vote négatif