XL 2010 trouver le code couleur en MFC

job75

XLDnaute Barbatruc

• 8 Décembre 2020

• #2

Bonsoir migau, bienvenue sur XLD,

Qu'entendez-vous par "récupérer le code couleur jaune" ? Compter les cellules jaunes ?

A+

 

Vote positif 0 Vote négatif

migau

XLDnaute Nouveau

• 8 Décembre 2020

• #3

tout d'abord merci job75 pour votre aide.

j'ai besoin des deux, svp

pour récupérer le code couleur

=couleur(a5) donne(exemple) 6 ( je n'y arrive pas lorsque le fond est de couleur par la mise en forme conditionnelle

et ensuite

compter le nombre de cellules ligne par ligne dont la mise en forme conditionnelle est jaune

ici ce doit être nb.si(a2: a18; 6)

en espérant être assez précis



merci

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 8 Décembre 2020

• #4

Comment voulez-vous qu'on sache où il faut mettre les résultats ?

Déposez un fichier représentatif du problème et montrant les résultats que vous voulez obtenir.

 

Vote positif 0 Vote négatif

migau

XLDnaute Nouveau

• 8 Décembre 2020

• #5

l'exemple de fichier.

merci

 

Pièces jointes

• code_couleur_MFC.xlsx

  11.7 KB · Affichages: 35

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 8 Décembre 2020

• #6

Voyez le fichier joint et cette macro dans le code de la feuille (clic droit sur l'onglet et Visualiser le code) :

VB:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim decal&, c As Range
decal = 8 'décalage à adapter
Application.ScreenUpdating = False
Application.EnableEvents = False 'désactive les évènements
For Each c In [B4:H9] 'plage à adapter
    c.Offset(decal) = c.DisplayFormat.Interior.ColorIndex
Next
Application.EnableEvents = True 'réactive les évènements
End Sub

Elle se déclenche automatiquement quand on modifie ou valide une cellule quelconque.

 

Pièces jointes

• code_couleur_MFC(1).xlsm

  16.6 KB · Affichages: 37

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 8 Décembre 2020

• #7

bonjour
par vba depuis excel 2010 tu récupère la couleur d'une mfc ou pas avec displayformat

VB:

Sub tMfc()
   with ActiveSheet.[A1]
   msgbox  .Interior.Color & vbcrlf  & .DisplayFormat.Interior.Color
   End With
End sub

edit désolé @job75 on c'est croisé

 

Vote positif 0 Vote négatif

migau

XLDnaute Nouveau

• 9 Décembre 2020

• #8

hello job75

puis je déplacer le résultat des codes couleurs sur une autre page , stp.

j'aibien compris que je devais adapter
decal = 8
'décalage à adapter

la plage
[B4:H9] 'plage à adapter

mon tableau fait 256 lignes et 17 colonnes
je souhaiterai que les codes couleurs soient sur une autre page.

pour info, vous rendez service à 256 étudiants en fac, les cours sont dispensés par visio.
afin de récupérer les cours dont les notes sont trop faibles et retravailler le cours.

merci pour eux

 

Pièces jointes

• code_couleur_MFC(1).xlsm

  14.8 KB · Affichages: 28

Vote positif 0 Vote négatif

migau

XLDnaute Nouveau

• 9 Décembre 2020

• #9

@patricktoulon
bonjour

le résultat est dans un msgbox, mais attention la couleur de fond est issue d'une MFC

puis je avoir le résultat dans une cellule sur une autre feuille

merci

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 9 Décembre 2020

• #10

re
bonjour c'est le B a BA
exemple

VB:

Sub tMfc()
   with ActiveSheet.[A1]
   Feuil3.[A1].interior.color=.DisplayFormat.Interior.Color
  ' ou si tu veux le code couleur
 feuil3.[A1].value=DisplayFormat.Interior.Color
End With
End sub

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 9 Décembre 2020

• #11

Bonjour migau, patricktoulon,

Voyez ce fichier (2) et le code :

VB:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim F As Worksheet, i&, j%
Set F = Sheets("code_couleur")
F.Cells.ClearContents 'RAZ
With [B4].CurrentRegion 'plage à adapter
    For i = 1 To .Rows.Count
        For j = 1 To .Columns.Count
            F.Cells(i, j) = .Cells(i, j).DisplayFormat.Interior.ColorIndex
Next j, i
End With
End Sub

A+

 

Pièces jointes

• code_couleur_MFC(2).xlsm

  18 KB · Affichages: 46

Vote positif 0 Vote négatif

Solution

migau

XLDnaute Nouveau

• 9 Décembre 2020

• #12

bonsoir Job75

parfait c'est super, j'ai le résultat escompté.un grand merci

VB:

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
Dim F As Worksheet, i&, j%
Set F = Sheets("code_couleur") ' nom de la seconde feuille
F.Cells.ClearContents 'RAZ
With [E5].CurrentRegion 'plage à adapter
    For i = 1 To .Rows.Count
        For j = 5 To .Columns.Count 'colonne modifiée
            F.Cells(i, j) = .Cells(i, j).DisplayFormat.Interior.ColorIndex
Next j, i
End With
End Sub

par contre si je veux seulement une plage définie
E5 à U 258 , je n'ai pas besoin des couleurs sur les autres cellules.

Si je laisse une colonne vide à droite et une ligne vide en bas du tableau,
je contourne mon soucis.



désolé, je ne peux pas t'envoyer le vrai fichier Excel, il y a des données confidentielles.

à te lire

 

Dernière édition: 9 Décembre 2020

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 10 Décembre 2020

• #13

migau à dit:

par contre si je veux seulement une plage définie
E5 à U 258 , je n'ai pas besoin des couleurs sur les autres cellules.

Cliquez pour agrandir...

C'est assez évident :

VB:

With [E5:U258] 'plage à adapter

Bonne nuit.

 

Vote positif 0 Vote négatif

migau

XLDnaute Nouveau

• 10 Décembre 2020

• #14

hello

j'essaierai à nouveau, ça n'a pas fonctionné hier soir.

merci , je reviendrai fermer le topic après mon ultime esai

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 10 Décembre 2020

• #15

Bien sûr vous devez adapter les formules avec NB.SI.

 

Vote positif 0 Vote négatif