XL 2019 Renvoyer la valeur d'une cellule en fonction de sa couleur RÉSOLU

[gigiwin]

Bonjour,

Existe-t-il une formule pour renvoyer la valeur d'une cellule en fonction de sa couleur?
J'ai noté les chiffres manuellement, mais cela est très long.

Je voudrais, si la couleur existe sur la plage:
En K3, le chiffre qui est dans la plage B2:I2 colorée comme la cellule K2.
En L3, le chiffre qui est dans la plage B2:I2 colorée comme la cellule L2.
En M3, le chiffre qui est dans la plage B2:I2 colorée comme la cellule M2.
Et ainsi de suite...pour toutes les lignes.

J'ai tenté plusieurs approches mais aucunes ne fonctionnent pleinement.
Je vous remercie à l'avance de votre aide.

 

[Dranreb]

Bonjour.
Les valeurs en B3:I32 sont donc sans importance ?
En K3, à propager sur 30 lignes et 5 colonnes :

=SIERREUR(EQUIV(K$1;NO_COULEUR($B3:$I3);0);"")

N'ayant pas le complément utilisé, j'ai écrit dans un module standard :

Option Explicit
Function NO_COULEUR(ByVal Rng As Range) As Variant()
   CalcNo_Couleur NO_COULEUR, Rng
   End Function
Sub CalcNo_Couleur(T(), ByVal Rng As Range)
   Dim L&, C&
   ReDim T(1 To Rng.Rows.Count, 1 To Rng.Columns.Count)
   For L = 1 To UBound(T, 1): For C = 1 To UBound(T, 2)
      T(L, C) = Rng(L, C).Interior.Color
      Next C, L
   End Sub

Bien entendu en K1, propagé sur 5 colonnes :

=NO_COULEUR(K2)

 

[sylvanu]

Bonjour Gigiwin, Dranreb,
Avec des formules, je ne sais pas. Je suis sous XL2007 et assez limité dans ce domaine.
Mais en VBA, sans problème, voir PJ avec :

Sub Colore()
Application.ScreenUpdating = False
Dim Col%, L%, C%, Couleur
For Col = 11 To 15
    Couleur = Cells(2, Col).Interior.Color
    For C = 2 To 9
        For L = 3 To 32
           If Cells(L, C) = Cells(L, Col) Then Cells(L, C).Interior.Color = Couleur
        Next L
    Next C
Next Col
End Sub

 

[TooFatBoy]

Bonjour,

Une proposition en pièce jointe.

 

[gigiwin]

re,

Les valeurs en B3:I32 sont donc sans importance ?

il faut la même chose que sur la ligne 3, pour chaque ligne.

Mais en VBA, sans problème, voir PJ avec :

Merci, cela fonctionne.
Mais comment actualiser si je change les couleurs de place en B:I?

Une proposition en pièce jointe.

Impossible d'ouvrir le fichier...

Merci à tous de votre participation.

 

[TooFatBoy]

Impossible d'ouvrir le fichier...

Je viens de le retélécharger. Peux-tu essayer de nouveau ?

 

[TooFatBoy]

Mais en VBA, sans problème, voir PJ avec :

Merci, cela fonctionne.
Mais comment actualiser si je change les couleurs de place en B:I?

Ah mince, moi j'ai fait le contraire : Je n'ai pas colorié le tableau de gauche en fonction des valeurs du tableau de droite, j'ai mis les valeurs du tableau de gauche dans le tableau de droite en fonction des couleurs.

 

[sylvanu]

Re,

Mais comment actualiser si je change les couleurs de place en B:I?

Pas compris. Les couleurs du tableau de gauche sont issus des couleurs de K2:O2.
Il suffit de changer ces couleurs et de ré actualiser. Non ?

 

[TooFatBoy]

Pas compris. Les couleurs du tableau de gauche sont issus des couleurs de K2:O2.
Il suffit de changer ces couleurs et de ré actualiser. Non ?

Je crois qu'il faut remplir le tableau de droite avec la valeur de la cellule qui a la même couleur que celle d'en-tête du tableau de droite.

Je voudrais, si la couleur existe sur la plage:
En K3, le chiffre qui est dans la plage B2:I2 colorée comme la cellule K2.

Je crois qu'il faut comprendre : En K3, inscrire le nombre contenu dans la cellule, de la plage B3:I3, qui est de la même couleur que K2.

 

[sylvanu]

Re,
@TooFatBoy,
Alors la conclusion de Gigiwin est erronée :

Merci, cela fonctionne.

Car j'ai fait la même chose que vous.

 

[TooFatBoy]

Alors la conclusion de Gigiwin est erronée

Oui, je crois. D'où ma citation en #7.

Car j'ai fait la même chose que vous.

Non, moi j'ai fait comme j'ai expliqué en #7.

 

[gigiwin]

Bonsoir à tous,

il semblerait que je me sois mal expliquer sur ce que je voulais, toutes mes excuses.

Je viens de le retélécharger. Peux-tu essayer de nouveau ?

Le téléchargement a fonctionné, merci.
C'est tout comme je le voulais.

encore merci à tous et bonne soirée.