XL 2010 trouver le code couleur en MFC

migau

XLDnaute Nouveau
bonjour à tous

excel 2016

malgré le tutoriel du forum, je n'arrive pas à mes fins.

j'ai un tableau 250 lignes et 17 colonnes
selon un critère bien défini des cellules sont coloriées en jaune soit 0 , ou 1 ou 2 cellules par lignes par une mise en forme conditionnelle
je cherche à récupérer le code couleur jaune de cette cellule.

d'après ce que j'ai trouvé , il faut ajouter display à la commande.

pouvez vous m'aider?

merci
 
Solution
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+

migau

XLDnaute Nouveau
hello

merci job75 pour ton aide et ta patience

je mets en résolu, même si je dois bidouiller la seconde feuille après l'exécution de la macro.
j'arrive au résultat souhaité

Lorsque j' exécute la macro , l'entête de la seconde feuille (code_couleur)
ainsi que les données des colonnes à gauche de A a D sont effacées.

mais comme indiqué , je ne peux pas te faire passer le fichier sur le forum,
ça serait plus facile pour toi de voir ce que je recherche.
en privé oui, mais je ne veux pas abuser de ta bonne volonté

merci à toi.

ca fait 10 ans que je ne touche plus a excel, ce que je fais aujourd'hui, c'est pour aider quelqu'un
 

migau

XLDnaute Nouveau
hello

la personne me demande sur la feuille auxiliaire d'avoir aussi les entêtes, ou
du moins les données des colonnes A à D.

tu viens de me donner une idée, je vais créer une 3eme feuille avec les données des colonnes A à D et pour mon mon calcul, j'irai chercher dans la feuille auxiliaire

voila ce dont j'ai besoin dans la feuille auxiliaire, le chiffre 6 représente le code couleur
pour trouver dans une ligne, le nombre de cellule ayant le code couleur 6

VB:
=NB.SI(E2:U2;6)

et ce calcul suivant que j'afficherai sur la feuille 3

w3 correspond au nombre de cellule qui ont le code couleur 6 dans mon exemple
soit 0 cellule si aucune cellule à ce code couleur
soit 1 , si une cellule avec le code couleur
soit 2

Code:
=SI(W3=0;C3;SI(W3=1;C3*17/16;SI(W3=2;C3*17/15)))

parfait, je vais me débrouiller avec ce que tu m'as donné

encore merci.

Edit: parfait: avec la 3 eme page, j'ai vraiment le résultat escompté.

à nouveau merci
 
Dernière édition:

Discussions similaires

Réponses
2
Affichages
113

Statistiques des forums

Discussions
311 733
Messages
2 082 019
Membres
101 872
dernier inscrit
Colin T