XL 2010 trouver le code couleur en MFC

migau · 8 Décembre 2020

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

job75 · 9 Décembre 2020

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 · 10 Décembre 2020

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

job75 · 10 Décembre 2020

La 2ème feuille est une feuille auxiliaire, il n'y a pas besoin d'en-têtes.

migau · 10 Décembre 2020

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

XL 2010 trouver le code couleur en MFC

migau

XLDnaute Nouveau

job75

migau

XLDnaute Nouveau

job75

XLDnaute Barbatruc

migau

XLDnaute Nouveau

Discussions similaires